Problem mit empfangen von Datei

[marabu]

Hallo fran,

kein unlösbares Problem. Du wirst ein eigenes Protokoll verwenden um dem Server mitzuteilen, dass er jetzt mit dem Upload einer Datei rechnen muss, wie groß die ist und auf welchen Namen sie hört. Daraufhin wirst du auf der Server-Seite dem entsprechenden Client einen FileStream zuordnen:

Delphi-Quellcode:

var
  fs: TFileStream;
  fn: TFileName;
begin
  // ...
  fs := TFileStream.Create(fn, fmCreate + fmShareDenyWrite);
end;

Im Ereignis OnClientRead wirst du den entsprechenden Stream ermitteln und die Daten entgegennehmen. Vom Prinzip her etwa so:

Delphi-Quellcode:

procedure TDemoForm.ServerSocketClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  buf: array of Char;
  fs: TFileStream;
  i: Integer;
begin
  with Socket do
  begin
    // fs := GetClientFileStream(SocketHandle); 
    SetLength(buf, ReceiveLength);
    ReceiveBuf(buf[0], ReceiveLength);
    fs.WriteBuffer(buf[0], ReceiveLength);
  end;
end;

Alles ungetestet.

Grüße vom marabu