Einzelnen Beitrag anzeigen

Metallicwar

Registriert seit: 5. Feb 2010
Ort: Bad Kissingen
293 Beiträge
 
Delphi XE Architect
 
#3

AW: Automatischer Login EmbeddedWb

  Alt 23. Nov 2010, 09:28
uff uff uff ^^
Scheint etwas komplizierter zu sein.

Delphi-Quellcode:
{A web page would in most cases have only one web form, but some web pages might have more than one web form. Here's how to get the names of all the web forms on a web page: }
function WebFormNames(const document: IHTMLDocument2): TStringList;
 var
   forms : IHTMLElementCollection;
   form : IHTMLFormElement;
   idx : integer;
 begin
   forms := document.Forms as IHTMLElementCollection; // --> EAccessViolation mit Meldung ......
   result := TStringList.Create;
   for idx := 0 to -1 + forms.length do
   begin
     form := forms.item(idx,0) as IHTMLFormElement;
     result.Add(form.name) ;
   end;
 end;
Delphi-Quellcode:
//A simple usage to display the list of web form names in a TMemo:
procedure Button1.Click(Sender: TOBject);
 var
   forms : TStringList;
 begin
   forms := WebFormNames(WebBrowser1.Document AS IHTMLDocument2) ;
   try
     memo1.Lines.Assign(forms) ;
   finally
     forms.Free;
   end;
 end;
Delphi-Quellcode:
//Here's how to get the instance of a web form by index - for a single form pages the index would be 0 (zero).
function WebFormGet(const formNumber: integer; const document: IHTMLDocument2): IHTMLFormElement;
 var
   forms : IHTMLElementCollection;
 begin
   forms := document.Forms as IHTMLElementCollection;
   result := forms.Item(formNumber,'') as IHTMLFormElement
 end;
Wieso bekomme ich eine Zugriffsverletzung?!? Mache es genauso wie auf Delphi.about beschrieben
An die Funktionen und Proceduren auf Seite 2 http://delphi.about.com/od/twebbrows...web_form_2.htm hab ich mich ersteinmal nicht rangetraut^^ ... sollte erstmal das funktionieren. Vorrausgesetzt, dass es das ist nachdem ich suche^^ =) dass ich eben Eingabewerte aus meinen Editfeldern an die Forms des Webformulars übergeben kann und den Button zum Verbinden drücke.
  Mit Zitat antworten Zitat