Нужна помощь по TSocketClient

[zDjsensei]

Подскажите пожалуйста как можно сделать так чтобы когда мне приходит пакет вот такого вида(03 09 0А 00 67 43) чтобы отправлялся в ответ к примеру вот такой пакет(89 а0 7а 9с). Только чтобы только не создавая соединение заного...

[Terran]

Procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
Begin
If ServerSocket1.Socket.ReceiveText='03 09 0А 00 67 43' Then
Begin
Socket.SendText('89 а0 7а 9с');
End;
End;

[KORN]

Procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
  i: integer;
Begin
If Socket.ReceiveText='03 09 0А 00 67 43' Then
Begin
  for i:=0 to ServerSocket1.activeconnection-1 do
  ServerSocket1.connection[i].SendText('89 а0 7а 9с');
End;
End;

ServerSocket1 писать не нужно т.к. переменная сокет уже есть... далее рассылаем всем активным подключениям... если у тебя оно одно то вместо i напиши 0

[DjSeNseI]

Спс что уделили свою время)

Я почти всё так сделал как вы мне ща написали но допускал ошибку:

Procedure TForm1.ServerSocket1ClientRead(Send er: TObject;
Socket: TCustomWinSocket);
Begin
If Form1.ServerSocket1.Socket.ReceiveT ext='03 09 0А 00 67 43' Then
Socket.SendText('89 а0 7а 9с');
End;

[DjSeNseI]

Возник ещё вопрос, как сделать с командами Анализ пакетов ? к примеру
1 команда : 09 85 20 а5
2 команда : 54 0В В1 00
3 команда : 45 9В 00

То есть комне если прийдёт вот этот пакет 45 9В 00 то сразу отправлялось вот такой пакет 54 87 В0
Надо чтобы анализировала все входящие пакета по типу 1-го байта.
К примеру если прийдёт пакет у которого тип 1 байта 0В то в ответ отправиться пакет 78 0В после опять прийдёт пакет если с тип 1 байта 09 то в ответ отправлялся пакет 30 00 а0

Не отключаясь от сервера!

[KORN]

используй функцию copy(Socket.ReceiveText, 1, 2) копируй с первого символа 2 штуки и проверяй