Как загрузить webpage с скрытым IP?

{ 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;

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...