Kildekoden i en Stringlist

Benyt følgende funktion:

uses
  URLMon, ShellApi;

function GetSourceCode(URL: String): String;
var
  DestFile: PChar;
  List: TStringList;
begin
  Screen.Cursor := crHourGlass;
  GetMem(DestFile, MAX_PATH);
  GetTempFileName(PChar(ExcludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)))), 'src', Random(100000), DestFile);
  if UrlDownloadToFile(nil, PChar(URL), DestFile, 0, nil) <> 0 then
  begin
    Result := '';
    Screen.Cursor := crDefault;
    Exit;
  end;
  List := TStringList.Create;
  List.LoadFromFile(DestFile);
  Result := List.Text;
  List.Free;
  DeleteFile(DestFile);
  Screen.Cursor := crDefault;
end;


og kald den således:

var
  MinStringList: TStringList;
begin
  MinStringList := ....
  MinStringList.Text := GetSourceCode('http://www.tips.dk/spil/lotto/indhold/vindertal_lotto.html');
  //MinStringList har nu kildekoden!
  Memo1.Lines.Text := MinStringList.Text;
  MinStringList.Free;
end;

lukker!