Fórum Consultar placa de veiculo no site do Detran #456304

unit uFrmPrincipal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, OleCtrls, SHDocVw, Buttons,
  UrlMon, ShellAPI, WinInet, ActiveX, ComObj, ComCtrls;

type
  TForm2 = class(TForm)
    WebBrowser1: TWebBrowser;
    Panel1: TPanel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Panel2: TPanel;
    EdtRenavam: TLabeledEdit;
    CbxAno: TComboBox;
    Label1: TLabel;
    BitBtn2: TBitBtn;
    Memo1: TMemo;
    BitBtn3: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    function PreencherForm(WebBrowser: TWebBrowser; FieldName,
      Value: string): Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
  {Personalizar WEBBrownser}
  with WebBrowser1 do
  begin
    OleObject.document.body.Style.scrollbarFaceColor := '#FF6699';
    OleObject.Document.body.Style.scrollbarTrackColor := '#CCCC99';
    OleObject.document.body.Style.scrollbarHighlightColor := '#99FF99';
    OleObject.document.body.Style.scrollbar3DLightColor := '#6699CC';
    OleObject.Document.body.Style.scrollbarShadowColor := '#6600FF';
    OleObject.document.body.Style.scrollbarDarkShadowColor := '#00CC66';
    OleObject.document.body.Style.scrollbarArrowColor := '#336699';
  end;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
  EdtRenavam.Text := '77777777';
  PreencherForm(WebBrowser1, 'txtRenavam',EdtRenavam.Text );
  WebBrowser1.Navigate( 'javascript:document.forms["formPrincipal"].submit();' );
end;

procedure TForm2.BitBtn3Click(Sender: TObject);
begin
  WebBrowser1.OleObject.Document.Body.Style.OverflowX := 'hidden';
  WebBrowser1.OleObject.Document.Body.Style.OverflowY := 'hidden';
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate( Edit1.Text);


end;

function TForm2.PreencherForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
  i, j, k: Integer;
  Element, SubElement, FormItem: Variant;
  child, child2, child3: TTreeNode;
  root: TTreeNodes;
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
        //Memo1.lines.add(FormItem.Item(j).Name);

        if FormItem.item(J).Type = 'select-one' then
        begin
          FormItem.Item(j).Value := '00';
        end;
        {for k := 0 to FormItem.item(J).Options.Length - 1 do
        begin
          //Memo1.lines.add(FormItem.Item(j).Options.Index[k].Value);
          //FormItem.item(J).Options.Index := 1;
          //FormItem.item[j].Options.selectedIndex := 1;
        end;  }

        if FormItem.Item(j).Name = FieldName then
        begin
          FormItem.Item(j).Value := Value;
          Result := True;
        end;
      except
       // Exit;
      end;
    end;
  end;
end;

end.