Einzelnen Beitrag anzeigen

Samufi

Registriert seit: 27. Nov 2008
Ort: Güstrow
93 Beiträge
 
Turbo Delphi für Win32
 
#5

Re: Prüfen ob Verbindung zu FTP-Server besteht

  Alt 29. Okt 2009, 23:00
Danke für die Antworten! Ich habe jetzt versucht, das ganze über die Fehlermeldungen der Up- und Downloadfunktionen zu machen - ich denke das könnte funktuionieren, bisher hatte ich aber noch nicht die Situation, weshalb ich nicht weiß, obs wirklich funktioniert. Ich hab also geschrieben
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
      if not FtpGetFile(FHSession, PChar(remotefile), PChar(localfile), False, FILE_ATTRIBUTE_NORMAL,
            GetTransferMode, 0) then
            result:=false
    end else result:=true;
end;
Ich hoffe, das ist nicht allzu großer Käse...
  Mit Zitat antworten Zitat