Hallo,
wie kann ich dem Client die angeforderte Datei zusenden?
Es geht um die Procedure:
Delphi-Quellcode:
procedure TForm1.Srv1RetrieveFile(ASender: TIdFTPServerThread;
const AFileName: String; var VStream: TStream);
Ich habe es schon so versucht:
Delphi-Quellcode:
var Test : TFileStream;
begin
test := TFileStream.Create('temp.tmp', fmOpenRead);
VStream.CopyFrom(test, test.Size);
freeandnil(test)
end;
Beim Ausführen der Zeile
VStream.CopyFrom(test, test.Size);
wird allerdings eine
Exception ausgelöst (EAccessViolation). Habe das Ganze auch schon mit
VStream.Write(buffer, buffergroesse)
ausprobiert, dabei wird allerdings die gleiche
Exception ausgelöst.
Wo ist mein Denkfehler?
MfG Hitzi