Daten aktualisieren sich nicht

[NickelM]

@himitsu : Denkste wie ich mich mit diesen Funktionen beschäftigt habe, woher ich meine Kenntnisse größsten Teils habe...von der Quelle direkt. Ein bischen googlen und schon findet man was man sucht. Einfach mal eine WinAPI gegoogled und siehe da MSDN Seite. In Englisch aber super beschrieben. Wenn man dann auch noch weis, wie man die C++ Paramter in Delphi umsetzt, kann man jede belibige Funktion importieren und benutzen.
Naja es gibt so viele Funktionen, natürlich kann man sich nicht alle Paramter, Flags usw. merken.
Wenn ich WinAPI schreibe "spicke" ich auch öfters mal bei MSDN, was nochmal wo hingehört.

Aber damit sich manche diese MSDN, die für "Laien" nicht gerade einfach zuverstehen ist, anschauen müssen gibts ja uns Delphilaner, die mal schnell nachgugen und hilfsbereit sind

Gruß NickelM
P.S. : Ich geh jetzt Pennen Bin zeit 24h wach hallo?

[himitsu]

Nur 24?
Ein ordentlicher Tag hat mindestens 48.

Delphi-Quellcode:

function getfile(server, username, password, localfile, remotefile: string; port: word = 21): HRESULT;
var
  hopen, hconnect: HINTERNET;
begin
  hopen := InternetOpen('myagent', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
  if hopen <> 0 then begin
    try
      hconnect := InternetConnect(hopen, PChar(server), port, PChar(username), PChar(password), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
      if hconnect <> 0 then begin
        try
          if FtpGetFile(hconnect, pchar(localfile), pchar(remotefile), false, 0, FTP_TRANSFER_TYPE_UNKNOWN, 0) then
            Result := NO_ERROR
          else
            Result := GetLastError;
        finally
          InternetCloseHandle(hconnect);
        end;
      end else
        Result := GetLastError;
    finally
      InternetCloseHandle(hopen);
    end;
  end else
    Result := GetLastError;
end;

// etwas gekürzt/zusammengefasst (man muß nur wissen was wie/wo/warum gemacht wurde, bzw. wie sich der Code verhält)
function getfile(server, username, password, localfile, remotefile: string; port: word = 21): HRESULT;
var
  hopen, hconnect: HINTERNET;
begin
  hconnect := 0;
  hopen := InternetOpen('myagent', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
  try
    if hopen <> 0 then begin
      hconnect := InternetConnect(hopen, PChar(server), port, PChar(username), PChar(password), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
      if (hconnect <> 0) and FtpGetFile(hconnect, pchar(localfile), pchar(remotefile), false, 0, FTP_TRANSFER_TYPE_UNKNOWN, 0) then
        Result := NO_ERROR
      else
        Result := GetLastError;
    end else
      Result := GetLastError;

    //hconnect := InternetConnect(hopen, PChar(server), port, PChar(username), PChar(password), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
    //if (hopen <> 0) and (hconnect <> 0) and FtpGetFile(hconnect, pchar(localfile), pchar(remotefile), false, 0, FTP_TRANSFER_TYPE_UNKNOWN, 0) then
    //  Result := NO_ERROR
    //else
    //  Result := GetLastError;  // ich weiß jetzt aber nicht ganz sicher, wie InternetConnect bei hopen=0 reagiert
  finally
    InternetCloseHandle(hconnect);
    InternetCloseHandle(hopen);
  end;
end;


E := getfile(...);
if E <> NO_ERROR then
  RaiseLastOSError(E); // RaiseLastWin32Error(E);  // ShowMessage('Problem: ' + SysErrorMessage(E));

Das sind im Prinzip alles Konstanten für erfolgreiche Verarbeitung, hängt halt davon ab, von wo die Fehler kommen, aber im Prinzip isses egal, was man nimmt ... 0 ist 0

Delphi-Quellcode:

  S_OK    = $00000000;
  NOERROR = 0;
  ERROR_SUCCESS = 0;
  NO_ERROR = 0;

[DeddyH]

0 ist aber nicht nil, hast Du ja selbst gesagt.

Delphi-Quellcode:

hopen := InternetOpen(...);
if Assigned(hopen) then