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 ?

Delphi-Quellcode:

var
  hSession, hfile: hInternet;
  infoBuffer: array [0..512] of char;
  infoBuffer2: array [0..512] of char;
  dummy: DWORD;
  bufLen: DWORD;

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.