Preencher site com Delphi - TWebBrowser !!

23/01/2010

2

Boa Noite á todos !!   Estou precisando preencher um site com os campos que estão em Edit´s no meu sistema, consegui fazer com o site da SINTEGRA, mas estou precisando agora para o site da DATAPREV, o código segue abaixo, o "lega" é que não gera erro mas tmb não funciona, ou seja, erro de lógico, estou precisando disto muito urgente se alguem puder dar esta ajuda ficarei muito grato.   <code> procedure TForm1.btnPreencherDadosClick(Sender: TObject);
var
 FormItem: Variant;
 Field: Variant;
 FieldName: String;
 I,J: Integer;
begin
  if WebBrowser1.OleObject.Document.all.tags('frmDados').Length = 0 then
  Exit;   for I := 0 to WebBrowser1.OleObject.Document.forms.Length - 1 do
   begin
    FormItem := WebBrowser1.OleObject.Document.forms.Item(I);
  try
   for j := 0 to FormItem.Length - 1 do
    begin
     //Identifica o campo e seu nome no formulário
    Field := FormItem.Item(j);
    FieldName := Field.Name;     if FieldName = 'nb' then
         Begin
           Field.Value := edtNB.Text;
         End;
   end
  except
    ShowMessage('Não foi possível identificar os campos para atribuir os valores de NB');
   end;
   end;
end;     procedure TForm1.FormShow(Sender: TObject);
begin
    WebBrowser1.Navigate(edtURL.Text);
end;   </code>   Se alguem conseguir corrigir este código e "dar" uma luz por favooooooooooor me avisem.   Abraços.   domenico@grupodomenico.com.br skype: osvaldo.domenico
Responder