URL wininet ermitteln

[Pascal95]

Ich habe es geschafft !



Ohne Deine Hilfe hätte ich das nicht geschafft !

Als Dank dafür veröffentliche ich den Code, um die Weiterleitungs-URL herauszufinden:

Delphi-Quellcode:

function GetRedirection(const Url: string): string;
var
  hInet: HINTERNET;
  hConnect: HINTERNET;
  infoBuffer: array [0..512] of char;
  dummy: DWORD;
  bufLen: DWORD;
  okay:  longbool;
  reply: string;
begin
  Result := '?';

  hInet := InternetOpen(PChar('a browser...'), INTERNET_OPEN_TYPE_PRECONFIG,
    nil, nil, 0);

  hConnect := InternetOpenUrl(hInet, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD +
    INTERNET_FLAG_NO_AUTO_REDIRECT, 0);

  if not Assigned(hConnect) then
    Exit
  else
  begin
    dummy  := 0;
    bufLen := Length(infoBuffer);
    okay   := HttpQueryInfo(hConnect, HTTP_QUERY_STATUS_CODE,
      @infoBuffer[0], bufLen, dummy);
    if not okay then
      Exit
    else
    begin
      reply := infoBuffer;
      if (reply = '301') or (reply = '302') then
      begin
        dummy  := 0;
        bufLen := Length(infoBuffer);
        okay   := HttpQueryInfo(hConnect, HTTP_QUERY_LOCATION,
          @infoBuffer[0], bufLen, dummy);
        if not okay then
          Exit
        else
        begin
          reply := infoBuffer;
          if reply <> '' then
            Result := reply;
        end;
      end
      else
        Exit;
    end;
    InternetCloseHandle(hConnect);
  end;
  InternetCloseHandle(hInet);
end;

Hoffentlich kann jemand das gebrauchen !

Nochmals vielen Dank,
liebe Grüße,
Pascal

[JamesTKirk]

Zitat von Pascal95:

Ohne Deine Hilfe hätte ich das nicht geschafft !

Gern geschehen.

Eine Frage habe ich jedoch:

Delphi-Quellcode:

var
  hConnect: HINTERNET;
begin
  ...
  if not Assigned(hConnect) then
    Exit
  else
    ...
end;

Ist HINTERNET als Zeiger definiert? Ansonsten ist Assigned falsch und du solltest stattdessen auf 0 überprüfen.

Gruß,
Sven

[Pascal95]

Ja,

in der wininet.pp:

Delphi-Quellcode:

type
     HINTERNET = LPVOID;

und in der base.inc:

Delphi-Quellcode:

type
...
     LPVOID  = pointer;

Hoffe, dass das passt

Pascal

[JamesTKirk]

Zitat von Pascal95:

Hoffe, dass das passt

Jupp, das passt. Ich hab nur reagiert, da die meiste Zeit die H...-Typen von Windows als Cardinal/QWord definiert sind...

Gruß,
Sven