вот код этой процедуры (может я что-то не так делаю... smile
):procedure TFrmServer.TcpServerAccept(Sender: TObject; ClientSocket: TCustomIpClient);
var msg, com: string;
begin
msg := ClientSocket.Receiveln(); //строка приходит в виде 'SEND|сообщение' либо 'SUCCESS|сообщение'
while length(msg) > 0 do
begin
//функция Command разбивает сообшение на команду (com) и само сообщение (msg)
com := Command(msg, True);
msg := Command(msg, False);
MsgLog.Lines.Add(msg);
//команда SEND - что регистратор первый раз отсылает сообщение
if com = 'SEND' then
begin
newMsg := FindUser(msg); //сервер находит в базе сообщение, которое нужно отправить регистратору
ClientSocket.Sendln(newMsg); // Отправить ее обратно
msg := ClientSocket.Receiveln(); // Получить очередную строку
end;
//команда SUCCESS - уведомляет, что регистратор получил ответ от сервера
if com = 'SUCCESS' then
begin
ChangeUser(msg);
msg := ''; com := ''; //я обнуляю сообщение и команду, чтобы больше не проводились никакие действия
end;
end;
ClientSocket.Disconnect; //даже если я убираю эту строчку, все равно та же фигня...
end;
помогите кто, чем может! плиз!!!
