IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - WAN IP

WAN IP - Öğrenme
Kod:
//uses kısmına eklenecekler ..

uses ActiveX, SHDocVw, Forms;

 

 

function wanIp: string;

var

  ip: string;

  ms :TMemoryStream;

  html : string;

  strSt : TStringStream;

  adapter: IStream;

  browserStream: IPersistStreamInit;

  WebBrowser1 : TWebBrowser;

  frm: Tform;

begin

  if InternetVarmi=False then

  begin

     Result :='-';

     exit;

  end;

 

  html := '
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Ana formun ismini yazabilirsiniz.! uses kısmına formun unit i yazmak istemdiğim için böyle kullandım !

 

  frm := Tform(Application.FindComponent('frmMain'));

  WebBrowser1 := TWebBrowser.Create(frm);

 

  WebBrowser1.Visible := False;

  WebBrowser1.Height := 1;

  WebBrowser1.Width  := 1;

 

 

  TWinControl(WebBrowser1).Parent := frm;

  WebBrowser1.Navigate(html);

 

 

  while WebBrowser1.ReadyState <> READYSTATE_COMPLETE  do

  begin

    Application.ProcessMessages;

  end;

 

 

   strSt := TStringStream.Create('');

 

   browserStream := webBrowser1.******** as IPersistStreamInit;

   adapter := TStreamAdapter.Create(strSt,soReference);

   browserStream.Save(adapter,true);

   ip := 'WAN IP : ['+strSt.DataString+']';

 

   FreeAndNil(strSt);

   FreeAndNil(WebBrowser1);

 

 

 

  result := ip;

 

end;