Hallo,
ich habe folgendes Problem: ich möchte eine Webseite mit natürlich bekannter URL laden, und zwar nicht um sie als Website darzustellen, sondern um die darin enthaltenen Informationen anschließend in Delphi zu parsen und weiter zu verarbeiten. Die Website sollte also anschließend am besten in einem großen PChar oder Stringliste vorliegen.
Nebenproblem: Der Zugriff auf die Website soll über einen Proxy-Server erfolgen.
Kennt jemand dazu irgendwo Beispielcode im Web?
Danke,
Ralf
Hallo Ralf
folgede function lädt den Inhalt einer WebSeite in einen String:
Uses winINet;
function LoadFromURL(url:string;var Data:string):Boolean;
const BufferSize = 256;
var
Buffer: array[1..BufferSize] of char;
BufferLen: DWORD;
ok:Boolean;
hSession:HInternet;
hUrl:HInternet;
begin
result:=false;
data:='';
try
hSession := InternetOpen(Nil,
INTERNET\_OPEN\_TYPE\_PRECONFIG,
nil, nil,
0);
hURL := InternetOpenURL(hSession,
PChar(URL),
nil,0,
INTERNET\_FLAG\_RELOAD,
0);
if hURL=Nil then
begin
exit;
end
except
exit;
end;
try
if hURLNil then
begin
repeat
ok:=InternetReadFile(hURL, @Buffer, SizeOf(buffer), BufferLen);
if not ok then
begin
data:='';
result:=false;
exit;
end;
data:=data+copy(buffer,1,bufferlen);
until bufferlen
Suuper. Recht herzlichen Dank, genau sowas habe ich gesucht.
Das mit dem Proxy klappt auch - muss man nur beim holen der hSession als Parameter übergeben und INTERNET_OPEN_TYPE_PROXY setzen. (In der Registry ist bei mir nix eingetragen)
Danke und Ciao,
Ralf