Hey, danke! Es funktioniert.
Ich hätte auch noch eine nicht ganz so schöne Variante anzubieten:
Delphi-Quellcode:
uses
UrlMon;
function GetPageContent(
URL:
string):
string;
var
MyFile:
file;
Buf:
array[0..14]
of Char;
Filename:
string;
MyResult: integer;
begin
Result := '
';
Filename := ExtractFilePath(ParamStr(0)) + '
temp.txt';
UrlDownloadToFile(
nil, PChar(
URL), PChar(Filename), 0,
nil);
AssignFile(MyFile, Filename);
{$i-}
if Fileexists(Filename)
then
Reset(MyFile)
else
ReWrite(MyFile);
{$I+}
if IOResult = 0
then
BlockRead(MyFile, Buf, SizeOf(Buf), MyResult);
CloseFile(MyFile);
DeleteFile(Filename);
Result := Buf;
end;