[}{ОТТ@БЫЧ]

Раскажите пожалуйста или дайте ссылку где можно прочитать (и посмотреть исходник какой-нить программки) про TTCPserver/client или TIdTCPserver/client
----добавил позже---
никто не ответит?

[Ferra]

Если я не ошибаюсь в стандартных демках есть примеры.. Если не устраивает - смотри в "Исходниках" DelphiSources.ru

http://delphisources.ru/pages/source..._internet.html

[Monemix]

А можно через TCP Client/Server пересылать Массивы?

[lmikle]

Пересылать можно все.
Просто ты должен будешь "упаковать" массив в пакет на одном конце и "распаковать" на другом.

[Monemix]

А как это сделать, пробовал запаковать отправил но пришл чтото типо 4IE

[Monemix]

Отправлял масив:

Код:

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 не селен )

[_(Sly)_]

А МОЖНО ИЩЕ ТАК С ПАКЕТОМ


type
PAKET = record
Error:Integer;
IP:string[16];
NikNameFrom:string[20];
UserDisconnect:string[20];
Mesage:string[100];
TextColor:Integer;
SizeTExt:Integer;
NameFont:TFont;
StatusMesage:Boolean;
NikNameTo:string[20];
UserCount:word;
Password:integer;
GroupNAme:String[20];
end;



procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
var SendPack:PAKET;
begin
////Заполняем пакет
ClientSocket1.Socket.SendBuf(Send,sizeof(send));
end;




Принимаем Также


procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var size:integer; ResivePac:PAKET;
begin
size:=Socket.ReceiveLength;

if size=sizeof(ResivePac) then
begin
Socket.Lock;
Socket.ReceiveBuf(ResivePac,size);
Socket.Unlock;
end;

end;