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

Poseidon

Дата 19.5.2005, 00:16 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 4
Всего: 133

Код

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

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »