Тема: TCP
Показать сообщение отдельно
  #6  
Старый 10.07.2008, 16:48
Monemix Monemix вне форума
Прохожий
 
Регистрация: 10.07.2008
Сообщения: 5
Репутация: 10
По умолчанию

Отправлял масив:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var MESSA:array[1..10] of String;
begin
  tcpClient1.RemoteHost:=host;
  tcpClient1.RemotePort:=Port;
  MESSA[1]:='1';
  MESSA[2]:='2';
  TcpClient1.Open;
  TcpClient1.SendBuf(MESSA,12,0);
  TcpClient1.Close;
end;
Admin: Пользуемся тегами!

Просто в TCP не селен )
Ответить с цитированием