procedure TForm1.Button1Click(Sender: TObject);
var
str : TFileStream;
begin
clientsocket1.Active:=true;
str := TFileStream.Create('C:\1.exe',fmOpenRead);
str.Position := 0;
ClientSocket1.Socket.SendStream(str);
clientsocket1.Active:=false;
ClientSocket1.Close;
end;
/////////Сервер
procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
ibLen : integer;
buf : Mass;
str : TMemoryStream;
begin
ibLen := ServerSocket1.Socket.ReceiveLength;
SetLength(buf,ibLen+1);
showmessage(inttostr(iblen));
str := TMemoryStream.Create;
str.Position := 0;
// Showmessage(Socket.ReceiveText); - вот здесь всегда ноль!!!
Socket.ReceiveBuf(buf,ibLen);
str.WriteBuffer(buf,ibLen);
str.Position := 0;
str.SaveToFile('c:\2.txt');
SetLength(buf,0);
str.Free;
end;
ЧТО НЕТАК
