ipay

On 4/21/2020 at 12:32 PM, Juan Young said:

 

    tags := tstringlist.Create;
    tags.Add(dataweb);
    tags.SaveToFile(System.IOUtils.TPath.GetDocumentsPath + PathDelim + 'DataTampilan.html');
    if FileExists(System.IOUtils.TPath.GetDocumentsPath + PathDelim + 'DataTampilan.html') then
    begin
       tags.LoadFromFile(System.IOUtils.TPath.GetDocumentsPath + PathDelim + 'DataTampilan.html');
    end;
    tags.Free;

    wb1.URL:=System.IOUtils.TPath.GetDocumentsPath + PathDelim + 'DataTampilan.html';
    wb1.Navigate;

    

like that.. and in at DataTampilan.html have lot link A Href... how i can catch if i click that link because if i OnDidStartLoad on that wb1 it will catch 5 times as sum as a href

 

 

 

if i click that url on right WB1 is not fire test on debug view >,,<

Hi, I'm using this code :

procedure Tfrm_isi.WebBrowser1DidStartLoad(ASender: TObject);
var url : string;
begin
  url := WebBrowser1.URL;
  if url<>'about:blank' then
  begin

   //do here

  end;

end;

regards,

Ipay