hallo,
Code:
procedure TMain_Form.FTPServerExecute(AThread: TIdPeerThread);
var
DateiStream: TFileStream;
begin
try
DateiStream := TFileStream.Create(SaveDialog1.FileName, fmCreate);
AThread.Connection.ReadStream(DateiStream);
finally
DateiStream.Free;
FTPClient.Disconnect;
end;
end;
Wenn ich so eine Datei versende ist die gesendete Datei klainer als die Anfangsdatei. Heisst auf Deutsch: Da fehlt was!
Kann mir bitte einer sagen was ich falsch mache?
Wenn was fehlt bitte auch melden, ich hab noch mehr code.
