PAGUE 6 MESES
LEVE 12 MESES
GARANTIR DESCONTO

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.


Rodrigo Lima

Rodrigo Lima

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar