CHAMAR PROCEDURE NO FORMCREATE DO DELPHI

Delphi

27/11/2014

Boa tarde

preciso chamar essa procedure no formcreate.

procedure TFormMain.WebBrowserDocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
  var
  sHTML : IHTMLElement;
  Teste, result: String;
begin
     sHTML:= (WebBrowser.Document AS IHTMLDocument2).body;

     while sHTML.parentElement <> nil do
     begin
       sHTML := sHTML.parentElement;
     end;
     Teste:= WebBrowser.OleObject.Document.Body.InnerText;
     //mmo1.Text:= teste;
     ShowMessage(Validaserial(teste));
     ShowMessage(ExtraiDocumento(teste));

     serialbusca := Validaserial(teste);
     documentobusca := ExtraiDocumento(teste);

end;


alguma solução?
Thalisson Chagas

Thalisson Chagas

Curtidas 0

Respostas

Renato Rubinho

Renato Rubinho

27/11/2014

Buenos,

Não sei para que serve esse IDispatch;
Declara uma variável global para esse objeto e chama o procedimento passando como Sender o WebBrowser, essa variável e uma variável local mesmo para a URL.

var
  oDispatch: IDispatch; 

implementation.

procedure FormCreate(Sender: TObject);
var
  vUrl: OleVariant;
begin
  WebBrowser1DocumentComplete(WebBrowser1, oDispatch, vUrl);
end;


Abraççç,
Renato
GOSTEI 0
POSTAR