Как загрузить webpage с скрытым IP?
Материал из DRKB
{ 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;
Source: http://www.swissdelphicenter.ch/en/tipsindex.php
ID: 03579