INDY FTP Server - RetrieveFile - - - Stream Problem

[hitzi]

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

[Kamil]

Versuchs mal mit:

Delphi-Quellcode:

procedure TForm1.Srv1RetrieveFile(ASender: TIdFTPServerThread;
  const AFileName: String; var VStream: TStream);
begin
  VStream := TFileStream.Create('temp.tmp', fmOpenRead);
end;

[hitzi]

Danke - funktioniert.

MfG Hitzi