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