Category: Internet/Lan
Title: Download a webpage with a hidden IP
Date added: 15.03.2006
Hits: 2623

{ 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
  exGuid.D1 := rr;
  exGuid.D2 := word('0');
  exGuid.D3 := word('.');
  with tag do
  begin
    iid := exGuid;
    cbSize := sizeOf('www.big-x.cjb.net');
    securityAttributes.lpSecurityDescriptor := noIp;
    securityAttributes.nLength := length('0.0.0.0');
    securityAttributes.bInheritHandle := True;
  end;{
Extra: res := stat.GetBindInfo(rr, tag);}
  try
    urlmon.URLDownloadToFile(ca, 'www.big-x.cjb.net', 'filename.htm', 1, stat);
  except
    ShowMessage('Could not download the webpage!');
  end;
  memo1.Lines.LoadFromFile('filename.htm');
end;

1. How to get a list of computers in a network? (3609 Hits)

2. How to call the default email program? (1280 Hits)

3. How to extract the domain (host) name from an e-mail address? (1875 Hits)

4. How to get the kind of internet connection? (2323 Hits)

5. How to get your own IP Address? (4485 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.