FTP - Datei runterladen (eigener Server)

[Neutral General]

Hi,

So ich wenn ich eine Datei mit von meinem Server runterladen will.. dann geht das nicht^^ Die Datei wird erstellt, hat aber 0KB -.-
Ich hab bisschen Quelltext aber der ist eher kopiert als sonstwas (versteh das zwar aber da fehlt anscheinend was oder so ka...)

Delphi-Quellcode:

// Is von woanders übernommen
function ReplaceChars(APath:String):String;
var
 s:string;
begin
  s := StringReplace(APath, '/', '\', [rfReplaceAll]);
  s := StringReplace(s, '\\', '\', [rfReplaceAll]);
  Result := s;
end;

procedure TForm1.FTPStoreFile(ASender: TIdFTPServerThread;
  const AFileName: String; AAppend: Boolean; var VStream: TStream);
begin
  VStream := TFileStream.Create(ExtractFilePath(Application.ExeName)+AFilename,fmCreate);
  VStream.Seek(0, soFromEnd);
end;

procedure TForm1.FTPRetrieveFile(ASender: TIdFTPServerThread;
  const AFileName: String; var VStream: TStream);
begin
  VStream := TFileStream.Create(ReplaceChars(ExtractFilePath(Application.ExeName)+AFilename),fmopenread or fmShareDenyWrite);
end;

Ist da was falsch?

Gruß
Neutral General