HTTP Header auslesen. Ohne Indy

[nahpets]

Bei Deiner konkreten Frage kann ich Dir nicht helfen, aber statt der Indy-Komponenten könntest Du es mal mit Overbyte ICS versuchen: http://wiki.overbyte.be/wiki/index.php/ICS_Download

Ist Freeware mit Quelltexten und auch für Deine Delphi-Version verfügbar.

Habe es schon mehrfach benutzt (seit Delphi 3) und läuft genauso gut wie die Indys.

[nahpets]

UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);
Der dritte Parameter liefert den Header:

Delphi-Quellcode:

function InternetOpenUrl(hInet: HINTERNET; lpszUrl: PChar;
  lpszHeaders: PChar; dwHeadersLength: DWORD; dwFlags: DWORD;
  dwContext: DWORD)

Statt nil muss da ein PChar übergeben werden.

[jaenicke]

Zitat von nahpets:

Der dritte Parameter liefert den Header:

Delphi-Quellcode:

function InternetOpenUrl(hInet: HINTERNET; lpszUrl: PChar;
  lpszHeaders: PChar; dwHeadersLength: DWORD; dwFlags: DWORD;
  dwContext: DWORD)

Statt nil muss da ein PChar übergeben werden.

Das ist nicht korrekt. Dort kannst du einen Header angeben, der mit der Anfrage geschickt werden soll.

Auslesen kann man den Header über das UrlHandle nach der Anfrage analog zum Inhalt mit HttpQueryInfo.

[Cubysoft]

Dankeschön. Ich werde das jetzt übers Wochenede umsetzen. Habe denk ich auch verstanden, was ich konkret machen muss. Die Lösung werde ich dann posten.