Sockets , пасылка файла.

//////////Клиент

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;


ЧТО НЕТАК???

ИМХО не КлиентРеад а КлиентВрайт

1. exe какого размера?

всмысле 1.txt - около 3mb а воодще он даже 1б не хочет слать!

Добавлено в 18.11.03, 19:46
Нет Write тоже пишет "0"..

Есть у кого пример?

Что такое Mass ?

type
Mass : array of char;

Ну тогда Str.WriteBuffer(buf[0],SizeOf(buf));