Fórum Problemas com TWebBrowser e Delphi7 #370476
14/05/2009
0
Pessoal, é o seguinte:
Tenho uma aplicação que preenche dados de formulários em um site (usuário e senha).
No Delphi 5 funciona beleza. Sem problema algum.
So que no Delphi 7, apesar de compilar sem erro, quando a aplicação vai ser executada, ela dá erro de ´tipo de variante inválida´.
Abaixo segue o trecho do código com problema:
procedure Logar(Web2: TWebBrowser; var CodErro: integer; CodLogin, CodSenha: string);
var
Doc: Variant;
Web: IWebBrowser2;
Escreveu, E, F, i: integer;
Elementos: OleVariant;
iDisp: IDispatch;
iColl: IHTMLElementCollection;
InputImage: HTMLInputImage;
begin
1 CodErro:= 0;
2 Escreveu:= 0;
3
4 Web2.Document.QueryInterface(IHTMLDocument2, Doc);
5 Web:= Web2.ControlInterface;
6 Doc:= Web2.Document;
O erro acontece na linha 6.
Pesquisei no site já e não encontrei ajuda pra meu problema.
Não tem como mesmo compilar no Delphi 7 e funcionar?
Desde já agradeço pela ajuda.
Tenho uma aplicação que preenche dados de formulários em um site (usuário e senha).
No Delphi 5 funciona beleza. Sem problema algum.
So que no Delphi 7, apesar de compilar sem erro, quando a aplicação vai ser executada, ela dá erro de ´tipo de variante inválida´.
Abaixo segue o trecho do código com problema:
procedure Logar(Web2: TWebBrowser; var CodErro: integer; CodLogin, CodSenha: string);
var
Doc: Variant;
Web: IWebBrowser2;
Escreveu, E, F, i: integer;
Elementos: OleVariant;
iDisp: IDispatch;
iColl: IHTMLElementCollection;
InputImage: HTMLInputImage;
begin
1 CodErro:= 0;
2 Escreveu:= 0;
3
4 Web2.Document.QueryInterface(IHTMLDocument2, Doc);
5 Web:= Web2.ControlInterface;
6 Doc:= Web2.Document;
O erro acontece na linha 6.
Pesquisei no site já e não encontrei ajuda pra meu problema.
Não tem como mesmo compilar no Delphi 7 e funcionar?
Desde já agradeço pela ajuda.
Rodrigo Lima
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)