Delphi 用idhttp 获取网页源码

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs,IdHTTP, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

function GetWebPage(const Url :string; IsUtf8 :Boolean = False):string;

var

idp :TIdHTTP;

begin

Result := '';

idp := TIdHTTP.Create(Application);

try

idp.HandleRedirects := True;

idp.Request.UserAgent := 'Mozilla/5.0';

Result := idp.Get(Url);

if IsUtf8 then

Result := Utf8ToAnsi(Result);

finally

FreeAndNil(idp);

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ShowMessage(GetWebPage('http://lede100.wicp.net:9600/lede/index.php/Dati/Index/Index.html',true));

end;

end.