HTTP Header auslesen. Ohne Indy

[Cubysoft]

Hallo,

ich muss derzeit mit meiner Software mit einer API kommunizieren. Im Header der HTTP Antwort stehen dann Informationen, die ich benötige. Ich hatte diesen Teil bisher immer mit Indy und dem SSL Socket gelöst, aber leider schlagen Virenprogramme (zB Antivir) grundsätzlich immer an, wenn ich diese Klassen verwende. Deshalb suche ich nach einer anderen Möglichkeit, die Daten auszulesen. Ich habe mitlerweile alle API-Anfragen, welche den HTTP Header nicht auslesen müssen auf eine Funktion umgestellt, die mit WININET arbeitet. Leider liefert mir diese Funktion (habe ich nicht selbst geschrieben, nur im Internet gefunden) natürlich nicht den HTTP Header mit.

Deswegen lange Rede kurzer Sinn: Wie kann ich den HTTP Header auslesen ohne Indy zu verwenden? Am besten mit WININET, weil das bisher immer super funktioniert hat!

Das ist die Funktion die ich derzeit benutze (diese liefert keinen Header mit)

Delphi-Quellcode:

function GetUrlContent(const Url: string): UTF8String;
var
  NetHandle: HINTERNET;
  UrlHandle: HINTERNET;
  Buffer: array[0..1023] of byte;
  BytesRead: dWord;
  StrBuffer: UTF8String;
begin
  Result := '';
  NetHandle := InternetOpen('Delphi 2009', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if Assigned(NetHandle) then
    try
      UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);
      if Assigned(UrlHandle) then
        try
          repeat
            InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
            SetString(StrBuffer, PAnsiChar(@Buffer[0]), BytesRead);
            Result := Result + StrBuffer;
          until BytesRead = 0;
        finally
          InternetCloseHandle(UrlHandle);
        end
      else
        raise Exception.CreateFmt('Cannot open URL %s', [Url]);
    finally
      InternetCloseHandle(NetHandle);
    end
  else
    raise Exception.Create('Unable to initialize Wininet');
end;

Vielen Dank für eure Mühe!

[Klaus01]

.. hilft msdn vielleicht weiter..

Grüße
Klaus

[Sir Rufo]

In Seattle gibt es den kompletten Wrapper dafür schon

[Cubysoft]

Hab mich mit Wininet noch nicht beschäftigt und das würde auch den Rahmen den Projekts sprengen, wenn ich mich da jetzt so stark einlesen würde. Leider habe ich auch keine ~500€ rumliegen um mal eben DX10 zu kaufen. Deswegen suche ich Hilfe um das mit meiner XE8 hinzubekommen

[himitsu]

Erstmal ist HTTP nur das Protokoll und die Verbindung geht über TCP/IP.
TIdTcpIp

Gut, eine Namensauflösung, und noch mehr, ist bei den meisten Komponenten auch gleich mit eingebaut.

Allerdingt bietet doch jede halbwegs ordentliche HTTP-Komponente doch auch einen Zugriff auf den Header?
TIdHttp

Was denn Virenscanner angeht ... njain, tun sie nicht immer
und wenn doch, dann wendet man sich an deren Support, meldet die False-Positive und nach paar Minuten/Stunden/Tagen ist das behoben.

[Luckie]

Die Exe als False Positiv dem Antiviren-Softwarehersteller zu schicken?

Und das Beispiel aus dem MSDN ist ja nicht so schwierig nach Delphi umzusetzen.

[Sir Rufo]

Zitat von Cubysoft:

um das mit meiner XE8 hinzubekommen

Das konnte ich ja nicht wissen ... steht ja nirgends (Profil, Signatur, Beitrag, ...)

[Cubysoft]

Hallo,

vielen Dank für eure Antworten bisher.

1) Ja ich weiß, dass man das False-Positive melden kann, allerdings ist mir das heute sehr stark aufgefallen. Ich arbeite derzeit mit einem Freund an dem Projekt und der hatte Antivir auf seinem PC. Das alleinige Einbinden der Indy-Units (IdHTTP und die Unit für die SSL Socket, auch von Indy aber weiß den Namen nichtmehr genau) sorgte schon dafür, dass der Virenscanner Alarm schlug. Und da ich weiß, dass es auch anders geht, würde ich hier lieber auf Indy verzichten.

2) Ich habe mir jetzt seit meinem letzten Post den MSDN Artikel angeschaut, bin jetzt aber auch ziemlich müde. Ich verstehe den Code leider absolut nicht. Das könnte daran liegen, dass ich absolut keine Ahnung habe, wie WinInet funktioniert, ca. garkeine C++ Kenntnisse besitze und mir schlecht wird, wenn ich das Wort Buffer lese, weil ich mich vor den Sachen immer gedrückt habe.

Es wäre wirklich hilfreich, wenn ihr mir helfen könntet, meine Funktion die ich derzeit habe noch so zu erweitern, dass sie den Header (zB als TStringList) und den Content zurückgibt und nicht (wie bis jetzt) nur den Content. (Direkt möchte ich einen Customheader auslesen "X-MaxPage", vllt macht das das ganze etwas einfacher)

Vielen Dank für eure Hilfe und Mühe!

[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.