Hallo,
ich beschäftige mich zur zeit mal wieder mit meinem kleinen chat programm.
Für die kommunikation verwende ich TServerSocket und TClientSocket.
Nun will ich einen datei versand einbaun, der über den server läuft.
D.h. vom client zum server und der leitet die daten dann weiter an den client, am besten ohne die dateien auf dem server zwischen zu speichern.
1. wie versende ich datein mit den obigen komponenten (anscheinend bin ich für die beispiele hier im forum zu dumm
)
2. wie leute ich die daten am server um
MfG - Ghost007
[EDIT]
also dateien kann ich nun versenden.
mit folgendem code:
Delphi-Quellcode:
[b]CLIENT:[/b]
procedure TForm1.Button1Click(Sender: TObject);
var
fs: TFileStream;
begin
if not OpenDialog1.Execute then exit;
with IdTCPClient1 do
begin
fs := TFileStream.Create(OpenDialog1.FileName, fmOpenRead or fmShareDenyWrite);
Connect;
try
OpenWriteBuffer;
try
WriteStream(fs, true, true, 0);
CloseWriteBuffer;
except
CancelWriteBuffer;
raise;
end;
finally
Disconnect;
fs.Free;
end;
end;
end;
[b]SERVER:[/b]
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
fs: TFileStream;
SizeOfIncomingStream: integer;
begin
if not SaveDialog1.Execute then exit;
fs := TFileStream.Create(SaveDialog1.Filename, fmCreate or fmShareExclusive);
with AThread.Connection do
try
SizeOfIncomingStream := ReadInteger;
ReadStream(fs, SizeOfIncomingStream);
finally
Disconnect;
fs.Free;
end;
end;
Wie kann ich nun die datei anstatt auf dem server zu speicher an einen client weiter schicken?
[/EDIT]