Gaya

Consegui por partes,sem o botão.Quando eu coloco ele da uns erros: procedure TFrom1.BtnGoClick(Sender: TObject); //linha 222 begin WebBrowser1.UserAgent:=CbUserAgent.Text; WebBrowser1.Navigate(EditURL.Text); end; [Error] Unit1.pas(222): ';' expected but '.' found [Error] Unit1.pas(224): Undeclared identifier: 'WebBrowser1' [Error] Unit1.pas(224): Missing operator or semicolon [Error] Unit1.pas(224): Undeclared identifier: 'CbUserAgent' [Error] Unit1.pas(224): Missing operator or semicolon [Error] Unit1.pas(225): Missing operator or semicolon [Error] Unit1.pas(225): Missing operator or semicolon [Error] Unit1.pas(225): Missing operator or semicolon [Error] Unit1.pas(226): Statement expected, but expression of type 'Text' found [Error] Unit1.pas(48): Unsatisfied forward or external declaration: 'TForm1.BtnGoClick'

Olha como está: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls, Menus, Buttons, StrUtils, ShellApi, XPMan, WinInet, sSkinProvider, sSkinManager, sComboBoxes,MSHTML; const DISPID_AMBIENT_USERAGENT = -5513; type TWebBrowser = class (SHDocVw.TWebbrowser, IDispatch) private FUserAgent: string; procedure SetUserAgent (const Value: string); function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HRESULT; stdcall; public property UserAgent: string read FUserAgent write SetUserAgent; constructor Create(AOwner: TComponent); override; end; type TForm1 = class(TForm) Panel1: TPanel; Button5: TButton; WebBrowser1: TWebBrowser; Memo1: TMemo; Memo2: TMemo; Button2: TButton; Memo3: TMemo; btnAbrir: TButton; dialogAbrir: TOpenDialog; XPManifest1: TXPManifest; edtAbrir: TEdit; sSkinManager1: TsSkinManager; sSkinProvider1: TsSkinProvider; logars: TButton; procedure FormCreate(Sender: TObject); procedure OnDocumentComplete(Sender: TObject;const pDisp: IDispatch;var URL: OleVariant); procedure Button5Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure btnAbrirClick(Sender: TObject); procedure logarsClick(Sender: TObject); private public Continuar: Boolean; colocar: Boolean; navegar: Boolean; end; [Error] Unit1.pas(17): Unsatisfied forward or external declaration: 'TWebBrowser.SetUserAgent' [Error] Unit1.pas(18): Unsatisfied forward or external declaration: 'TWebBrowser.Invoke' [Error] Unit1.pas(21): Unsatisfied forward or external declaration: 'TWebBrowser.Create'

Ok vamos lá: adicionei em baixo dos uses; o seguinte: const DISPID_AMBIENT_USERAGENT = -5513 Agora vem o probelma,quando vou adicionar: type TForm1 = class(TForm) WebBrowser = class (SHDocVw.TWebbrowser, IDispatch) Já da erro de Expected ':' but '=' found.

Deu certo,última dúvida que tenho,tem um site que eu tento acessar via Webbrowser porém não da certo,porque ele não deixar usa o navegador IE,tem como usar outro como base ou "burlar" isso?

Rafael tentei colocar o código e retorno os seguintes erros: [Error] Unit1.pas(353): Undeclared identifier: 'nv' [Error] Unit1.pas(353): Missing operator or semicolon [Error] Unit1.pas(353): Incompatible types: 'String' and 'IDispatch' Nessa linha: nv.OleObject.document.getElementById('password').outerHTML:= '<input type="password" autocomplete="off" class="text password" id="password" name="password" value="teste" placeholder="Password*">';

Estou com uma dificuldade extrema de entender como usar,mas então quer dizer que eu posso usar dessa forma? if OnDocumentComplete() then showmessage('Deu certo'); obs: Não sei arrumar os parametros. Pelo o que entendi é essa comparação que define se foi carregada,porém não da para usar ela no codigo foram da procedure. currentBrowser := pDisp as IWebBrowser;

Bom eu não sei como implatar isso dentro do button para preencher os campos,tenho isso no codigo: procedure TForm1.OnDocumentComplete(Sender: TObject;const pDisp: IDispatch;var URL: OleVariant); var currentBrowser: IWebBrowser; topBrowser: IWebBrowser; document: OleVariant; windowName: string; begin currentBrowser := pDisp as IWebBrowser; topBrowser := (Sender as TWebBrowser).DefaultInterface; if currentBrowser = topBrowser then ShowMessage('Complete document was loaded') else begin document := currentBrowser.Document; windowName := document.ParentWindow.Name; ShowMessage(Format('Frame "%s" was loaded', [windowName])); end; end; Como faço para usar ? Desculpa minha ignorância.

Entendi,então tentei colocar um monte de delay mesmo assim não deu,será que alguma solução?

Olha como fica,mesmo usando o focus,não existe outra forma de preencher esse campo para que fique as bolinhas?

Utilizando .focus agora deu certo,agora meu ultimo problema é que ele adiciona a senha escolhida porém diz estar em branco,porque em vez de estar como password(aquelas bolinhas) ele adiciona como um texto normal,tem como arrumar isso? O erro é esse aqui : Password should not be a blank. Invalid value.

Olha fica assim.Meu codigo: webbrowser1.navigate('https://my.witopia.net/index.php?a=checkout.order'); if not Continuar then Break; delay(2000); while (WebBrowser1.Busy) or (WebBrowser1.ReadyState <> READYSTATE_COMPLETE) do begin Application.ProcessMessages; Sleep(100); end; WebBrowser1.OleObject.Document.All.Item('first_name', 0).value := Nome(); WebBrowser1.OleObject.Document.All.Item('last_name', 0).value := 'Silva'; WebBrowser1.OleObject.Document.All.Item('billing_address', 0).value := 'Rua Oliveira Maciel'; WebBrowser1.OleObject.Document.All.Item('billing_city', 0).value := 'Rio Branco'; WebBrowser1.OleObject.Document.All.Item('billing_country', 0).value := '32';

Não entendo coloquei os códigos exatamente iguais ao seu e não consegui,isso seria no delphi 7 também correto?

Ele coloca os dados porém fica igual na imagem que eu coloquei acima,ele fica em branco,ai quando o webbroswer clica no botão para proseguir o site retorna um erro de que os campos estão em brancos,ai eu vou e clico nos campos manualmente e o site reconhece.Não sei se consegui explicar bem a situação qualquer coisa só me falar.

Sim na pagina de login da certo,porém estou com problemas na hora de fornecer dados como por exemplo na hora da compra,colocar o endereço entre outros, Olhe essa página: https://my.witopia.net/index.php?a=services escolha qualquer coisa e de checkout,para ver a pagina que estou me referindo.

Boa tarde,estou criando um sistema de revenda em delphi e uso webbrowser para isso,eu segui o tutoria do Jhonas,porém esse site ele é diferente,ele chega colocar as informações nos value problema é que se eu não clicar pelo webbroswer ele não reconhece as informações,vou mostrar uma imagem para melhorar o que estou querendo dizer: Link do site: https://my.witopia.net/index.php?a=checkout.order