Prüfen ob Verbindung zu FTP-Server besteht

[DeddyH]

Result könnte aber undefiniert sein. Besser wäre es so:

Delphi-Quellcode:

function TInetFTP.GetFile(const remotefile, localfile: string):Boolean;
begin
   if not FtpGetFile(FHSession, PChar(remotefile), PChar(localfile), False, FILE_ATTRIBUTE_NORMAL,
   GetTransferMode, 0) then
    begin
      connect(true);   //  Prozedur zum Verbinden
      result := FtpGetFile(FHSession, PChar(remotefile), PChar(localfile), False, FILE_ATTRIBUTE_NORMAL,
            GetTransferMode, 0);
    end else result:=true;
end;