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 := 'www.whatismyip.com/automation/n09230945.asp'; // 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;