на DidFinishLoad делай
// вытягиваем урл из компонента WebBrowser
{$ifdef mswindows}
newURL:= (FWebBrowser.GetWeb as IWebBrowserEx).GetLocation;
{$else}
newURL:= FWebBrowser.GetWeb.URL;
{$endif}
( конечно, можно все ето в геттеры\сеттеры завернуть, но времени не было)
везде не тестил. но под винду и ведро работает( я ловил редирект после авторизации в [прости господи] Вконтакте )
TWebBrowserEx.zip
How to use As follows, it can use like TWebBrowser of iOS /Android.
uses
FMX.WebBrowserEx;
type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
FWebBrowser: TWebBrowserEx;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FWebBrowser := TWebBrowserEx.Create(Self);
FWebBrowser.Parent := Panel1;
FWebBrowser.Align := TAlignLayout.Client;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
FWebBrowser.URL := 'http://www.embarcadero.com/';
// As follows, WebBrowserEx can also read a HTML-String.
FWebBrowser.LoadFromStrings('<html><body>Hello WebBrowser!</body></html>', '');
end;
As follows, WebBrowserEx can use JavaScript procedure TForm1.Button2Click(Sender: TObject);
var
Value: String;
begin
// JavaScript function "foo" needs Two-Arguments.
FWebBrowser.CallJS('foo', [Param1, Param2]);
// TWebBrowserEx can call with TWebBrowser default style.
FWebBrowser.EvaluteJavascript('alert("Delphi!")');
// TWebBrowserEx take a Value of HTML Tags.
// If following tag exists,
// <input type="text" id="bar" value="" />
// ↓ can taking id of bar's attribute value.
Value := FWebBrowser.GetTagValue('bar', 'value');
end;
Igorek получил реакцию от Pax Beach в Как узнать мой IP адрес?