Hi,
ich hab nachm bissl googlen rausgefunden, dass man mit
Delphi-Quelltext
1:
2:
| WebBrowser1.Navigate('url');
WebBrowser1.OleObject.document.forms.item(0).elements.item('feldname').value:=edit1.Text; |
Text aus Edit-Feldern in ein Formular bekommt.
Das hat bei einer Test-HTML Seite auch gut geklappt nur hab ich das jetzt bei
myspace.com/ versucht.
Da ich das iwo gelesen hatte, dass das zusammen in einer procedure nicht funktioniert hab ich 2 Buttons gemacht:
Einer der lädt und einer der in das Formular Feld "email" schreiben soll.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://myspace.com/');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.OleObject.document.forms.item(0).elements.item('email').value:=email_edit.Text;
end; |
Das ist der HTML-Code von der myspace-startseite.
Geladen wird sie auch.
XML-Daten
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| <form action="http://login.myspace.com/index.cfm?fuseaction=login.process&MyToken=7cce6ab9-28bc-4b1d-ad10-a5aa22c3f508" method="post" name="theForm" id="theForm">
[...]
<div class="row">
<label for="email">
E-Mail
:</label>
<input type="text" name="email" id="email" value="" />
</div>
[...]
</form>
</div> |
Der Fehler heisst:
| Zitat: |
| Zugriffsverletzung bei der Adresse 0045FD8F in Modul 'Project1.exe'. Lesen von Adresse 00000000. |
Was mach ich hier falsch??
lG,
Rene
