
10.07.2008, 16:48
|
Прохожий
|
|
Регистрация: 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 не селен )
|