Quellcode einer Webseite herunterladen

[Amateurprofi]

Mit einer für meine Zwecke umgemodelten Version von shmias Projekt.

Delphi-Quellcode:

class function TMain.CreateRequestObject: IXMLHTTPRequest;
begin
   try
      Result := Createoleobject('Msxml2.XMLHTTP.6.0') as IXMLHTTPRequest;
   except
      on E:Exception do
      begin
         E.Message := 'MSXML 4.0 or higher required!'#13#10+E.Message;
         raise;
      end;
   end;
end;

Delphi-Quellcode:

FUNCTION TMain.ReadSourceCode(const url:string; var headers,texts:string):boolean;
const
   header='User-Agent';
   value='Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0)';
var
   req:IXMLHTTPRequest;
   body:OleVariant;
begin
   req := CreateRequestObject;
   req.Open('GET', url, false, '', '');
   req.SetRequestHeader(header, value);
   body := '';
   req.Send(body);
   headers:=req.GetAllResponseHeaders;
   texts:=req.ResponseText;
   result:=req.statusText='OK';
end;