hallo,
möchte ganz simpel das der server eine datei den client schickt.
server
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
FStream: TFileStream;
begin
i
FStream := TFileStream.Create('c:\Windows\cookies');
ServerSocket1.Socket.SendStream(FStream);
end;
end;
client
Code:
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
FStream: TFileStream;
SizeOfFile: Integer;
pBuffer: Pointer;
begin
if SaveDialog1.Execute then
begin
FStream := TFileStream.Create(SaveDialog1.FileName, fmCreate or fmOpenWrite);
SizeOfFile := Socket.ReceiveLength;
GetMem(pBuffer, SizeOfFile);
try
Socket.ReceiveBuf(pBuffer^, SizeOfFile);
FStream.Write(pBuffer^, SizeOfFile);
finally
FreeMem(pBuffer);
FStream.Free;
Adress.Text := 'File fertig geladen';
end;
end;
end;
aber das funzt nicht so richtig.
[Fehler] Unit1.pas(38): Es gibt keine überladene Version von 'Create', die man mit diesen Argumenten aufrufen kann
mfg vader
mfg vader