Eigener Updater

[delphi_user14]

Delphi-Quellcode:

function getfile(server, username, password, remotefile, localfile: 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), False, FILE_ATTRIBUTE_NORMAL, FTP_TRANSFER_TYPE_UNKNOWN, 0);
  InternetCloseHandle(hconnect);
end;

procecdure TForm1.Button1Click(Sender: TObject);
begin
getfile('SERVER', 'USERNAME', 'PASSWORD', '/updates/update.ini', extractfilepath(paramstr(0))+'update.ini');
end;

Es wird keine Datei erstellt.

Was ist falsch?

[Die Muhkuh]

Schau Dir mal die Reihenfolge der Parameter an.

[delphi_user14]

Die Stimmt.

Bei FtpGetFile sind RemoteFile und LocalFile umgedreht und ich gebe die Parameter auch so ein, nur habe ich die Beschreibung noch nicht geändert.

[Fussball-Robby]

Zitat von Die Muhkuh:

Schau Dir mal die Reihenfolge der Parameter an.

Die dürfte imho so richtig sein..
Da kann man nur raten: Tippfehler beim Server, Username, Passwort oder der Datei.. Vielleicht existiert die Datei auf dem Server auch nicht (es kann sein, dass du Groß/Kleinschreibung beachten musst)

[Edit]Toll, konnte ja nicht wissen, dass du die Namen umgedreht hattest

[Die Muhkuh]

Nein, ist verkehrt rum, Robert. Delphi_User14 hat es dann auch bemerkt.

[delphi_user14]

Danke, funktioniert schon. (Endlich)

[RavenIV]

Zitat von delphi_user14:

Es wird keine Datei erstellt.

Was ist falsch?

Wie wär's, wenn Du Dir mal die Rückgabewerte der aufgerufenen Indy-Funktionen anschaust?
Die eine oder andere möchte Dir bestimmt einen Fehlercode mitteilen...