Hallo, alle miteinander.
Vorneweg: Ich bin noch nicht lange im Bann der Programmiersprachen
So, mein Problem ist folgendes:
Durch ein TWebbrowser Modul, 2 TEdit's und einem Button sollen die Werte in den TEdits durch den Buttonklick an eine vorher definierte Website geliefrt werden, und 2 Felder auf dieser Website ausfüllen (Email und Passwort)
Die Website ist in diesem Fall
http://web.de/fm/
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Keyboard, StdCtrls, OleCtrls, SHDocVw;
type
TForm1 =
class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
WebBrowser1: TWebBrowser;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Document: OleVariant;
begin
WebBrowser1.Navigate('
http://web.de/fm/');
//Website
repeat
Application.ProcessMessages;
Sleep(0);
until WebBrowser1.ReadyState = READYSTATE_COMPLETE;
Document.all.item('
username').Value := Edit1.Text;
// Email/Nutzer
Document.all.item('
password').Value := Edit2.Text;
// PASSWORT
Document.all.item('
rv_dologon').submit;
// Login/Submit Funktion
end;
end.
Die namen der Felder username, password und rv_dologon habe ich im Quellcode von http://web.de/fm/ (hoffentlich korekkt) ausgelesen.
So nun tritt bei Testen folgendes Problem auf:
"Ungältige Variantenoperation" meldet mir ein Delphi Fenster.
Ich hab keine Ahnung woran das liegt... für jede Hilfe bin ich dankbar.