WebBrowser и Delphi

[krivetko-man]

Как программно ткнуть на кнопку отправки формы на веб странице?

 

[asm64d]

Минутная разминка:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Button1: TButton;
    WebBrowser1: TWebBrowser;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('www.ya.ru');
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   Webbrowser1.OleObject.Document.All.Tags('INPUT').Item(0).Value:='dumpz.ru';
   Webbrowser1.OleObject.Document.All.Tags('INPUT').Item(2).Click();
end;

end.

Можно и подругому, главное чтобы принцип был понятен.

 

[octavian1979]

Thank you for the code sample.

 

[moppie]

kto ymeet polzovatsa delphi?

 

[gioinfa]

tks work perfect

 

[sergey-12]

"Hey, I used to deal with Delphi back in the day and I think the best web browser control for it was Indy, hands down. It allowed for pretty easy HTTPS support and was relatively low maintenance. Does anyone know if there's an equivalent for modern browsers?"