здравствуйте,задача такая не сервер с адресом *******и портом #### послать пакет например такой :
Код:
1 2 | FF FF FF FF 54 53 6F 75 72 63 65 20 45 6E 67 69
6E 65 20 51 75 65 72 79 00
|
потом получить ответ от сервера
можно ли это сделать с помощью инди ?
вот так я подсоединяюсь
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | procedure TForm1.IdTCPClient1Connected(Sender: TObject);
begin
ShowMessage('Подсоединилось');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
r:SmallInt;
begin
with IdTCPClient1 do
begin
Host:='*******';
Port:=####;
Connect;
form1.IdTCPClient1.SendCmd
end;
end;
|
вообщем направьте меня пожалуйсто на верный путь .
01.02.2009, 23:36
Отправить и получить пакеты
)) уря
Линейный вид
