TMozillaBrowser

Article View: borland.public.delphi.aspdotnet.components.using

Article #75

Back to borland.public.delphi.aspdotnet.components.using Previous Next

#75

From: Joachim Quassowski
Date: Mon, 05 Sep 2005 17:36

35 lines
1831 bytes

Hey!!!
I want to use the TMozillaBrowser Component with the following function
which is writen for the twebbrowser Component

function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value:
string): Boolean;
var
  i, j: Integer;
  FormItem: Variant;
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
        if FormItem.Item(j).Name = FieldName then
        begin
          FormItem.Item(j).Value := Value;
          Result := True;
        end;
      except
        Exit;
      end;
    end;
  end;
end;

Technical Details

Message-ID: <431c81d1$1@newsgroups.borland.com>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!news.glorb.com!tudelft.nl!txtfeed1.tudelft.nl!feed20.multikabel.net!gatel-ffm!gatel-ffm!194.25.134.126.MISMATCH!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Thread: 21665a,9465d6187a5c3996,start
X-Google-Attributes: gid21665a,public
X-Google-Language: ENGLISH,ASCII-7-bit
Reply-To: "Joachim Quassowski" <jqmail@gmx.de>
From: "Joachim Quassowski" <jqmail@gmx.de>
Newsgroups: borland.public.delphi.aspdotnet.components.using
Subject: TMozillaBrowser
Date: Mon, 5 Sep 2005 19:36:11 +0200
Lines: 37
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
NNTP-Posting-Host: 217.82.235.113
Message-ID: <431c81d1$1@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1125941713 217.82.235.113 (5 Sep 2005 10:35:13 -0700)
Path: arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!news.glorb.com!tudelft.nl!txtfeed1.tudelft.nl!feed20.multikabel.net!gatel-ffm!gatel-ffm!194.25.134.126.MISMATCH!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail