Fórum Preencher campos de um website #368885

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    WebBrowser1: TWebBrowser;
//    function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
    procedure WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
    procedure WebBrowser1ProgressChange(Sender: TObject; Progress, ProgressMax: Integer);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
  i, j: Integer;
  FormItem: Variant;
begin
  Result := False;
  //no form on document                      FORM
  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, ´txtCNPJ´, ´00364351000181´) = False then
    ShowMessage(´Error. Field not available or no Form found.´)
  else
    ShowMessage(´Escreveu´);
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(´https://www8.receita.fazenda.gov.br/SimplesNacional/controleacesso/autentica.aspx?id=5´);
  //Caption := Webbrowser1.OleObject.Document.Title;
  ShowMessage(´Terminou´);
end;



end.