Автозаполнение форм в WebBrowser

[CoDeR]

Кидаю на форму WebBrowser1, им гружу страницу с интернета на которой есть combobox, edit, radiobutton. Кидаю кнопку. Как сделать так чтоб при её нажатии были изменены значения combobox, edit, radiobutton?

[Квэнди]

{ To test this code put a TWebBrowser and A TButton component on the form }


 function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
  var
    i, j: Integer;
    FormItem: Variant;
  begin
    Result := False;
    //no form on document  
  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
    begin
      Exit;
    end;
    //count forms on document  
  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
    begin
      FormItem := WebBrowser.OleObject.Document.forms.Item(I);
      for j := 0 to FormItem.Length - 1 do
      begin
        try
          //when the fieldname is found, try to fill out  
        if FormItem.Item(j).Name = FieldName then
          begin
            FormItem.Item(j).Value := Value;
            Result := True;
          end;
        except
          Exit;
        end;
      end;
    end;
  end;


  //When the document is complete try to fill out the field homepage with the url  
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
    const pDisp: IDispatch; var URL: OleVariant);
  begin
    if FillForm(WebBrowser1, 'homepage', 'http://www.swissdelphicenter.ch') = False then
      ShowMessage('Error. Field not available or no Form found.');
 end;

 // Show the Webbrowser-Progress in Label1  
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress, ProgressMax: Integer);
  begin
    if ProgressMax = 0 then
    begin
      label1.Caption := '';
      Exit;
    end;
    try
      if (Progress <> -1) and (Progress <= ProgressMax) then
        label1.Caption := IntToStr((Progress * 100) div ProgressMax) + '% loaded...'
      else
        label1.Caption := '';
    except
      on EDivByZero do Exit;
    end;
  end;


  //For example you can load the page /en/addtip.php to the TWebBrowser  
//When the document is Complete the form where you can put your homepage  
//address is filled out  
procedure TForm1.Button1Click(Sender: TObject);
  begin
    Webbrowser1.Navigate('http://www.swissdelphicenter.ch/en/addtip.php');
    // Show the Titel of the currently active Webpage in the titlebar  
  // Den Titel der aktuellen Webseite in der Titeleiste anzeigen  
  Caption := Webbrowser1.OleObject.Document.Title;
  end;

[CoDeR]

А попрощё никак нельзя? Может спецальные компоненты даже есть?

[Alar]

CoDeR, даже специальные программы есть. Лицензионные, заплатил 50$ и работаешь сколько хочешь
Есть даже проги распознающие капчу

[eldar]

Квэнди а почему при компиляции этого кода выдаёт ошибку
[Error] Unit1.pas(61): Undeclared identifier: 'WebBrowser'
[Error] Unit1.pas(62): '=' expected but ';' found
[Error] Unit1.pas(62): ';' expected but ')' found
[Error] Unit1.pas(64): Undeclared identifier: 'WebBrowser1'
[Error] Unit1.pas(69): Undeclared identifier: 'WebBrowser1ProgressChange'
[Error] Unit1.pas(69): ';' expected but '(' found
[Error] Unit1.pas(71): Undeclared identifier: 'ProgressMax'
[Warning] Unit1.pas(71): Comparing signed and unsigned types - widened both operands
[Error] Unit1.pas(73): Undeclared identifier: 'label1'
[Error] Unit1.pas(77): Undeclared identifier: 'Progress'
[Warning] Unit1.pas(77): Comparing signed and unsigned types - widened both operands
[Warning] Unit1.pas(77): Comparing signed and unsigned types - widened both operands
[Error] Unit1.pas(78): Missing operator or semicolon
[Error] Unit1.pas(80): Missing operator or semicolon
[Error] Unit1.pas(90): Undeclared identifier: 'Button1Click'
[Error] Unit1.pas(90): ';' expected but '(' found
[Error] Unit1.pas(92): Undeclared identifier: 'Webbrowser1'
[Error] Unit1.pas(92): Missing operator or semicolon
[Error] Unit1.pas(95): Undeclared identifier: 'Caption'
[Error] Unit1.pas(95): Missing operator or semicolon
[Error] Unit1.pas(95): Missing operator or semicolon
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'


вот исходник

[Квэнди]

а вы любым переводчиком переведите и подумайте.

[Alar]

type - здесь процедуры не объявлены. Они автоматически объявятся если в инспекторе объектов перейти на вкладку Events и кликнуть по нужной процедуре.

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    procedure WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
  private
    { Private declarations }
  public

[jone]

http://www.programmersforum.ru/showthread.php?t=25331