[_(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;