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 ?
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
| function LoadURL(URL: String): String;
var
IOpen, IURL: HINTERNET;
Read: Cardinal;
Msg: array[0..4096] of Char;
begin
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; |
Moderiert von 
Narses: Delphi-Tags hinzugefügt
