WebBrowser и Delphi

krivetko-man

Местный
Регистрация
22 Ноя 2008
Сообщения
53
Реакции
62
Credits
56
Как программно ткнуть на кнопку отправки формы на веб странице?
 

asm64d

Местный
Регистрация
14 Июн 2008
Сообщения
940
Реакции
9,672
Credits
0
Минутная разминка:
Код:
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.ws';
   Webbrowser1.OleObject.Document.All.Tags('INPUT').Item(2).Click();
end;

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