HTTP_QUERY_LOCATION gibt leeren String aus

**DavidKlimas**

Guten Abend alle zusammen.

Ich hab eine Funktion die überprüft ob eine URL existiert und mit die exakte URL zurückgibt (im fall einer weiterleitung). Leider ist der wert immer leer. Woran kann der fehler liegen ?

markieren

Delphi-Quellcode:

			var

  hSession, hfile: hInternet;

  infoBuffer: array [0..512] of char;

  infoBuffer2: array [0..512] of char;

  dummy: DWORD;

  bufLen: DWORD;

zusammenfalten · markieren

Delphi-Quellcode:

			  hSession := InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

  if assigned(hsession) then

  begin

    hfile := InternetOpenUrl(hsession,PChar(url),nil,0, INTERNET_FLAG_NO_UI,0);

    {Get Validation}

    dummy := 0;

    bufLen := Length(infoBuffer);

    HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @infoBuffer[0], bufLen, dummy);

    result := (infoBuffer ='200') or (infoBuffer ='302');

    if result then

    begin

      {Get Link}

      dummy := 0;

      bufLen := Length(infoBuffer2);

      HttpQueryInfo(hfile, HTTP_QUERY_LOCATION, @infoBuffer2, bufLen, dummy);

      URL := infoBuffer2;

    End;

    if assigned(hfile) then InternetCloseHandle(hfile);

    InternetCloseHandle(hsession);

  end;

Danke für die Hilfe.

HTTP_QUERY_LOCATION gibt leeren String aus

HTTP_QUERY_LOCATION gibt leeren String aus

Stichworte

Forumregeln