WebBrowsera vyplňovaní formuláře v delphi

Sample je plně funkční ale při kliknuti na buton vyskočí chyba.

To je jednoduché. Stačí tu tajnou chybu opravit a bude to fungovat.

No, kdybych to zvlad tak tu neotravují,

Nevadí, že to nezvládneš, od toho je tu poradna. Ale jak máme poradit s chybou, kterou neznáme?

http://www.zive.cz/clanky/tipy-a-triky-v-delphi-di l-117---automaticke-vyplnovani-formularu-v-ie/sc-3 -a-114680/default.aspx

14ybvb7.jpg

Hm
A co toto.
www.festra.com

function TForm1.FillForm(WB: TWebBrowser; FieldName, Value: string): Boolean;
var
  FormNr, ItemNr: integer;
  TheForm: Variant;
begin
  Result := False;
    if WB.OleObject.Document.All.Tags('FORM').Length = 0 then begin
         ShowMessage('Error: no FORM found on page');
    Exit;
    end;
      for FormNr := 0 to WB.OleObject.Document.Forms.Length - 1 do begin
          TheForm := WB.OleObject.Document.Forms.Item(FormNr);

      for ItemNr := 0 to WB.OleObject.Document.Forms.Item.length - 1 do
      try
        // Pokud fieldname nalezena, se snaží vyplnit a zastavení
        if TheForm.Item(ItemNr).Name = FieldName then begin
          TheForm.Item(ItemNr).Value := Value;
          Result := True;
        end;
      except
        Break;
      end;
      if Result then Break;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if not FillForm(WebBrowser1, 'Jméno', 'Jimi') then
    ShowMessage('Error: field NAME not found on page')
  else begin
    if not FillForm(WebBrowser1, 'Příjmení', 'Hendrix') then
      ShowMessage('Error: field LASTNAME not found on page')
    else begin
      if not FillForm(WebBrowser1, 'category', 'Music') then
        ShowMessage('Error: field CATEGORY not found on page');
    end;
  end;
end;
end.

Funkěčni ale ještě se mu nepodařilo něco najit.