Registriert seit: 5. Feb 2010
Ort: Bad Kissingen
293 Beiträge
Delphi XE Architect
|
AW: Automatischer Login EmbeddedWb
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.
|