Hallo,
Ich will gerne Daten z.b. MP3, Exe, usw. versenden (Client -> Server. Server -> Client)
Jetzt will ich eine Datei von Server an denn Client Senden, nur weiß ich nicht wie ich das machen sollte. (Benütze Indy10)
Wie ich eine Datei an denn Server sende weiß ich schon.
Delphi-Quellcode:
//Server. Empfangen
procedure TDesktop.IdTCPServerExecute(AContext: TIdContext);
var
FSTream: TFileStream;
begin
With IniDat do begin
FStream := TFileStream.Create('C:\datei.exe', fmCreate);
end;
try
AContext.connection.IOHandler.ReadStream(fstream);
finally
AContext.connection.Disconnect;
end;
FreeAndNil(FStream);
end;
//Client. Senden
FStream := TFileStream.Create('C:\datei.exe', fmOpenRead);
idtcpclient.Connect;
try
idtcpclient.IOHandler.Write(Fstream,0,true);
finally
idtcpclient.Disconnect;
end;
FreeAndNil(FStream);
Danke.