Показать сообщение отдельно
  #1  
Старый 01.02.2009, 23:36
Аватар для Sharky
Sharky Sharky вне форума
Активный
 
Регистрация: 20.03.2007
Сообщения: 202
Репутация: 10
По умолчанию Отправить и получить пакеты

здравствуйте,задача такая не сервер с адресом *******и портом #### послать пакет например такой :
Код:
 
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
потом получить ответ от сервера
можно ли это сделать с помощью инди ?
вот так я подсоединяюсь
Код:
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;
вообщем направьте меня пожалуйсто на верный путь .
Ответить с цитированием