Hallo allerseits,

ich lade mit FtpGetFile eine Datei vom Server und möchte erreichen, dass während des Downloads die procedure StatusCallback mehrmals aufgerufen wird, um den Fortschritt des Downloads zu bearbeiten. Der Download selbst funktioniert einwandfrei, nur wird die procedure leider nie aufgerufen. Weiss jemand, was ich da falsch mache? Leider geht aus der Dokumentation der Routinen von Microsoft auch nicht hervor, wann bzw. wo InternetSetStatusCallback im Quellcode eingefügt werden muss. Hier die relevanten Teile des Codes:

zusammenfalten · markieren

Delphi-Quellcode:

hSession := InternetOpen(PChar(Application.Title),
            INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

hConnect := InternetConnect(hSession, PChar(Server.Text), INTERNET_DEFAULT_FTP_PORT,
            PChar(User.Text), PChar(Passwort.Text),
            INTERNET_SERVICE_FTP or WININET_API_FLAG_ASYNC, 0, 0);

InternetSetStatusCallback(hSession, @StatusCallback);

result := FtpGetFile(hConnect, PChar(aUrl), PChar(aLokalFile), false, 64, FTP_TRANSFER_TYPE_BINARY, dwBytes);


procedure StatusCallback(hInet: HINTERNET; Context, Status: DWORD;
                         pInformation: Pointer; InfoLength: DWORD);
begin
  ShowMessage('Callback');
end;

mfg
Herbert

Hallo Herbert,

ein paar Hinweise:

• den Callback würde ich direkt nach einem erfolgreichen InternetOpen() setzen
• niemals nicht würde ich ShowMessage() in der callback procedure aufrufen
• die callback procedure muss stdcall als linkage convention verwenden
• last but not least würde ich den Rückgabewert von InternetSetStatusCallback() prüfen

Schönen Abend noch

marabu

Hallo marabu,

das Fehlen von stdcall war es. Jetzt funktioniert das mal. Das ShowMessage war nur versuchsweise, jetzt gebe ich die Ergebnisse in einer Liste aus.

Wie ich den Rückgabewert der Funktion InternetSetStatusCallback noch auswerten kann, ist mir noch unklar, aber damit werde ich noch herumexperimentieren.

Nochmals allerherzlichen Dank für deine Hilfe.

mfg
Herbert