Consultar placa de veiculo no site do Detran
23/09/2013
0
Alguém sabe se é possível? Se sim, como proceder.. Obrigado
Rafael Cruz
Post mais votado
26/09/2013
Gustavo Bretas
Mais Posts
24/09/2013
Marcos Oliveira
Até onde eu saiba, o Detran não disponibiliza nenhum WebService para esse tipo de consulta.
Não quero te desanimar, mas acho que isso não é possível.
O que você pode fazer para ter certeza é entrar em contato direto com o Detran.
Att,
Marcos
24/09/2013
Joel Rodrigues
Acho que esse sonho do cliente você não vai poder realizar.
24/09/2013
Gustavo Bretas
Por exemplo, o Detran aqui de MT, vc consegue consultar alguns dados do veículo usando a url: [url]http://internet.detrannet.mt.gov.br/ConsultaVeiculo.asp?Placa=&NUMPLACA&Renavam=&NUMRENAVAM[/url], que no seu caso para importar os dados, teria que tratar o HTML gerado pra capturar as informações!
24/09/2013
Rafael Cruz
Enfim, obrigado
24/09/2013
Joel Rodrigues
24/09/2013
Wesley Yamazack
Usando um Web Browser, eu abria o site do detran pelo programa em Delphi, em um edit, ele digitava a placa do carro, e esta info ia para o Web Browser, dai era só digitar o captcha e eu conseguia pegar os dados do veiculo, mas tudo via Web Browser/HTML.
Infelizmente não tenho o código, só a logica e como eu fiz e tal..
Um abraço
24/09/2013
Joel Rodrigues
24/09/2013
Rafael Cruz
Usando um Web Browser, eu abria o site do detran pelo programa em Delphi, em um edit, ele digitava a placa do carro, e esta info ia para o Web Browser, dai era só digitar o captcha e eu conseguia pegar os dados do veiculo, mas tudo via Web Browser/HTML.
Infelizmente não tenho o código, só a logica e como eu fiz e tal..
Um abraço
Exatamente isso que eu estou procurando..
Uma pena voce nao ter mais o codigo
24/09/2013
Wesley Yamazack
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.
Forte abraço e boa sorte!
26/09/2013
Gustavo Bretas
Para desencargo de consciência, eu compilei o código aqui no Delphi XE, não sei se funciona, mas compila!
26/09/2013
Rafael Cruz
Enfim, compilou mas não teve ação nenhuma nos clicks do botão..
26/09/2013
Joel Rodrigues
26/09/2013
Rafael Cruz
Achei um site : http://denatran.serpro.gov.br/index2.htm
Estou pesquisando uma rotina pra pegar o html e jogar nos edits...
Clique aqui para fazer login e interagir na Comunidade :)