Daten aus dyn. erzeugten URL mittels WinINet extrahieren ?

[FrankBKK]

Hallo zusammen,

ich soll aus einer dynamisch generierten Seite einige Werte extrahieren -
damit meine ich, die im Browser angezeigten Texte, nicht die HTML Codes
mit denen die Seite generiert wird.

Mit der folgenden kleinen Funktion die ich im Web gefunden habe, klappt
das zwar ganz gut, aber nur eben hab ich da nicht die Daten selbst,
sondern nur den Code mit dem die Seite erzeugt wird, d.h. fur statische
HTML Seiten funktionierts, nicht aber fuer Seiten die Daten z.B. aus
einer Datenbank dynamisch anzeigen.

Das ganze soll mittels der WinINet.dll realisiert werden.

Kann mir da bitte jemand auf die Spruenge helfen oder ein Bsp. liefern ?

Code:

function LoadURL(URL: String): String; 
var 
  IOpen, IURL: HINTERNET; 
  Read: Cardinal; 
  Msg: array[0..4096] of Char; 
begin 
   // Load a Internet HTML-page into a string 
  Result := ''; 
  try 
    IOpen := InternetOpen('GetIP', INTERNET_OPEN_TYPE_PRECONFIG, '', '', 
        INTERNET_FLAG_NEED_FILE); 
    if IOpen <> nil then 
    try 
      IURL := InternetOpenUrl(IOpen, PAnsiChar(URL), nil, 0, 
          INTERNET_FLAG_NO_UI or INTERNET_FLAG_PRAGMA_NOCACHE or INTERNET_FLAG_RELOAD, 0); 
      if IURL <> nil then 
      try 
        repeat 
          FillChar(Msg, SizeOf(Msg), 0); 
          if InternetReadFile(IURL, @Msg[0], Pred(SizeOf(Msg)), Read) then 
            Result := Result + Msg 
          else 
            Break; 
        until Read = 0; 
      finally 
        InternetCloseHandle(IURL); 
      end; 
    finally 
      InternetCloseHandle(IOpen); 
    end; 
  except 
  end; 
end;