{codecitation class="brush: pascal; gutter: false;" width="600px"}

Оформил: DeeCo

Автор: http://www.swissdelphicenter.ch

{ Add a button and memo }

implementation

{$R *.dfm}

uses

Urlmon;

procedure TForm1.Button1Click (Sender: TObject);

var

ca: iinterface;

rls: Integer;

stat: iBindStatusCallBack;

rr: Cardinal;

tag: _tagBindInfo;

exGuid: tguid;

noIp: Pointer;

res: HResult;

begin

// Make a 0.0.0.0 ip giud

exGuid.D1:= rr;

exGuid.D2:= word ('0');

exGuid.D3:= word ('.');

// Set Tag options

with tag do

begin

// set «0.» ip guid

iid:= exGuid;

// set needed size

cbSize:= sizeOf ('www.big-x.cjb.net');

// Add ip hiding (not tested, but should work)

securityAttributes.lpSecurityDescriptor:= noIp;

securityAttributes.nLength:= length ('0.0.0.0');

securityAttributes.bInheritHandle:= True;

end;{

Extra: res:= stat.GetBindInfo (rr, tag);}

//Start downloading webpage

try

urlmon.URLDownloadToFile (ca, 'www.big-x.cjb.net', 'filename.htm', 1, stat);

except

ShowMessage ('Could not download the webpage!');

end;

//Load the webpage source to a memo

memo1.Lines.LoadFromFile ('filename.htm');

end;

{/codecitation}