Automatischer Login EmbeddedWb

[Metallicwar]

Hallo zusammen, ich möchte mich automatisch auf einer Seite einloggen, sei es ein Forum, ein Nachrichtendienst, etc.
Verwende die Komponente EmbeddedWb. Beim Klick auf den "Verbinden Button", soll er die Zugangsdaten der gewünschten Internetseite automatisch eingeben und beispielsweise auf "Login" drücken. Hab aber leider keine Ahnung wie man das machen kann. Kann man irgendwie auf die Felder dieser Internetseite zugreifen? :O
Bitte um Rat, Hilfstellungen, etc :-)

mfg

[toms]

Probier's doch mal so ;)

Delphi-Quellcode:

EmbeddedWb.Go('http://www.google.ch/search?q=delphi+webbrowser+fill+form&ie=UTF-8&oe=UTF-8&hl=de&client=safari')

[Metallicwar]

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.