FTP download

[cruso]

Hi!

Ich möchte eine Datei über FTP herunterladen. Könnt ihr mir sagen, was an folgendem Quellcode falsch ist?

Delphi-Quellcode:

function getfile(server, username, password, localfile, remotefile: string; port: word = 21): boolean;
var
  hopen, hconnect: HINTERNET;
begin
  hopen := InternetOpen('myagent', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
  hconnect := InternetConnect(hopen, pchar(server), port, pchar(username), pchar(password), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
  Result := FtpGetFile(hconnect, pchar(localfile), pchar(remotefile), FTP_TRANSFER_TYPE_UNKNOWN, 0);
  InternetCloseHandle(hconnect);
end;

MfG
Cruso

[SirThornberry]

Mir fällt auf das du nirgends prüfst ob InternetConnect erfolgreich ist sondern einfach mal weiterarbeitest mit dem Handle was eventuell gar nicht gültig ist.

[cruso]

Zitat von SirThornberry:

Mir fällt auf das du nirgends prüfst ob InternetConnect erfolgreich ist sondern einfach mal weiterarbeitest mit dem Handle was eventuell gar nicht gültig ist.

Darum geht es erstmal nicht. Sagen wir's mal so: Die Inet-Verbindung steht.

[SirThornberry]

darum geht es schon. Denn wenn das Handle ungültig ist könntest du schlussfolgern ob der Fehler beim verbinden zum FTP-Server ist oder nicht.
Und InternetConnect sorgt ja nich dafür das die Verbindung zum Internet geöffnet wird sondern verbindet zum entsprechenden Server. Anhand der Überprüfung des Handles kannst du also den Fehler eingrenzen. Unt mit GetLastError kannst du sicher auch den Fehler ermitteln.
(was mir auch grad noch auffällt ist das hopen wohl nirgends wieder frei gegeben wird)

[cruso]

Also es ist für mich nicht so wichtig, die Daten über FTP herunterzuladen; HTTP geht auch. Allerdings möchte ich die Indy's nicht verwenden. Gibt es da andere Möglichkeiten, die sich mit einer Delphi 7 Personal realisieren lassen?

[SirThornberry]

Was stört dich an der Variante welche du im ersten Post verwendet hast?
Du musst einfach nur das Handle und gegebenfalls GetLastError auswerten um den Fehler zu finden.

[inherited]

Was stört dich an den Indys?^^

[cruso]

Und wie würde die richtige Version "codemäßig" aussehen?