Problema com auto preenchimento

[Gaya]

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

[Gaya]

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.

[rafaellacerda]

Ta errado, olha como e na source que esta no link;

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;

TFrmMain = class(TForm)

WebBrowser1: TWebBrowser;

[Gaya]

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'

[rafaellacerda]

Tem que ser criado as procedures.... Olha como esta na source. Baixa ai;

[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'