[fuzz]

Всем привет!
Пытаюсь передать файл с клиента на сервер:

Сервер:

Код:

var	
  stream: TMemoryStream;
  msg: string;
  sz: integer;
begin
  if ClientSocket.Connect then
  begin
    msg := ClientSocket.Receiveln;
    stream := TMemoryStream.Create;
    sz := StrToInt(msg);
    stream.SetSize(sz);
    ClientSocket.Sendln('ok');
    
    ClientSocket.ReceiveBuf(stream, sz);
    stream.SaveToFile(t[1]);
    stream.Free;
    t.Free;
    ClientSocket.Disconnect;
  end;
end;

Клиент:

Код:

var
  stream: TMemoryStream;
  msg: string;
begin  
  if TcpClient1.Connect then
  begin    
    stream := TMemoryStream.Create;
    stream.LoadFromFile(source_file);
    TcpClient1.Sendln(IntToStr(stream.Size));
    if TcpClient1.Receiveln = 'ok' then
      TcpClient1.SendBuf(stream, stream.Size);
    TcpClient1.Disconnect;  
  end;
end;

Файл передается, но при открытии пишет что поврежден. Размер файлов совпадает. В чем может быть проблема?

[Bargest]

Со Stream почти не работал, но попробуй сделать когда получаешь буффер
ClientSocket.ReceiveBuf(stream.memory, sz);
или как-то так

[fuzz]

неа, тоже самое(

[Bargest]

скажи пожалста
1) по какому событию в TCPServer работаешь
2) свойства сервера (в object inspector)

[fuzz]

1. OnAccept
2.
BlockMode bmThreadBlocking
LocalHost 127.0.0.1
LocalPort 8888

[Bargest]

Итак.
Сервер:

Код:

procedure TForm3.TcpServer1Accept(Sender: TObject;
  ClientSocket: TCustomIpClient);
var
  stream: TMemoryStream;
  msg: string;
  sz: integer;
begin
  if ClientSocket.Connect then
  begin
    msg := ClientSocket.Receiveln;
    stream := TMemoryStream.Create;
    sz := StrToInt(msg);
    stream.SetSize(sz);
    ClientSocket.Sendln('ok');

    ClientSocket.ReceiveBuf(stream.Memory^, sz);
    stream.SaveToFile('123.exe');
    stream.Free;
    ClientSocket.Disconnect;
  end;
end;

Клиент:

Код:

procedure TForm4.Button1Click(Sender: TObject);
var
  stream: TMemoryStream;
  msg: string;
begin
  if TcpClient1.Connect then
  begin
    stream := TMemoryStream.Create;
    stream.LoadFromFile('C:\123.exe');
    TcpClient1.Sendln(IntToStr(stream.Size));
    if TcpClient1.Receiveln = 'ok' then
      TcpClient1.SendBuf(stream.Memory^, stream.Size);
    TcpClient1.Disconnect;
  end
  else showmessage('Error connecting');
end;

У меня такой вариант работает.
Дело в том, что recieveBuf(stream,X) по идеи некорректная запись: Stream - это по сути указатель. В итоге получается, что отправляется и принимается не то, что нужно, а X байт, начиная с адреса Stream в памяти.