Webbrowser Radiobutton ansprechen

[Speedfighter]

[Pascal Fehler] Unit1.pas(93): E2010 Inkompatible Typen: 'TWebBrowser' und 'TGUID'
[Pascal Fataler Fehler] Project1.dpr(5): F2063 Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Code:

WB_SetRadioCheckboxField(WB, 'checkbox', 'allgemein_datenschutzerklaerung', True);

lol und was ist jetzt der Fehler?

[Der.Kaktus]

Zitat:

Zitat von Speedfighter

[Pascal Fehler] Unit1.pas(93): E2010 Inkompatible Typen: 'TWebBrowser' und 'TGUID'
[Pascal Fataler Fehler] Project1.dpr(5): F2063 Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Code:

WB_SetRadioCheckboxField(WB, 'checkbox', 'allgemein_datenschutzerklaerung', True);

lol und was ist jetzt der Fehler?

Poste mal Deinen Quelltext...wir schauen mal....

[Speedfighter]

Hier mein Kompletter Quelltext

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw, XPMan, ExtCtrls;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    GroupBox1: TGroupBox;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    XPManifest1: TXPManifest;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    LabeledEdit6: TLabeledEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

function WB_FindFieldByValue(WebBrowser: TWebBrowser; FieldType, FieldValue: string; var Field: TPoint): boolean;
var
  i, j: Integer;
  FormItem: Variant;
begin
  Result := False;
  if Assigned(WebBrowser.Document) then
  begin
  if WebBrowser.OleObject.Document.all.tags('FORM').Length <> 0 then
    for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
    begin
      FormItem := WebBrowser.OleObject.Document.forms.Item(I);
      for j := 0 to FormItem.Length - 1 do
      begin
        try
          if (FormItem.Item(j).Value = FieldValue) and
            (FormItem.Item(j).Type = FieldType) then
          begin
            Field.x := i;
            Field.Y := j;
            Result := True;
            Exit;
          end;
        except
         // Exit;
        end;
      end;
    end;
  end;
end;

function WB_SetRadioCheckboxField(WebBrowser: TWebBrowser; FieldType, FieldValue: string; Checked: boolean): Boolean;
var
  Field: TPoint;
begin
  Result := WB_FindFieldByValue(WebBrowser, FieldType, FieldValue, Field);
  if Result then
  try
    WebBrowser.OleObject.Document.forms.Item(Field.x).Item(Field.y).Checked := Checked;
    Result := True;
  except
    Result := False;
  end;
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.OleObject.document.forms.item(0).elements.item('person_vorname').value:='Eric';
WebBrowser1.OleObject.document.forms.item(0).elements.item('person_nachname').value:='Abt';
WebBrowser1.OleObject.document.forms.item(0).elements.item('adresse_strasse').value:='Knesebeckstrasse';
WebBrowser1.OleObject.document.forms.item(0).elements.item('adresse_postleitzahl').value:='57639';
WebBrowser1.OleObject.document.forms.item(0).elements.item('person_email').value:='[e-mail]';
WebBrowser1.OleObject.document.forms.item(0).elements.item('adresse_hausnummer').value:='43';
WebBrowser1.OleObject.document.forms.item(0).elements.item('adresse_ort').value:='Oberdreis';
WebBrowser1.OleObject.document.forms.item(0).elements.item('kreditkarte_nummer').value:=LabeledEdit1.text;
WebBrowser1.OleObject.document.forms.item(0).elements.item('kreditkarte_inhaber').value:=LabeledEdit2.text;
WebBrowser1.OleObject.document.forms.item(0).elements.item('kreditkarte_kpn').value:=LabeledEdit6.text;
WB_SetRadioCheckboxField(WB, 'checkbox', 'allgemein_datenschutzerklaerung', True);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.Navigate('https://www.aerzte-ohne-grenzen.de/Spenden/Online.php');
end;

end.

[Der.Kaktus]

noch keine Antwort, erst schauen muss..aber mal eins...

[OT]
Dir mal nen Lob aussprech...wenn alle so waeren hier in der DP...weiter so..dann machts auch wieder Spass zu helfen..
Sollten sich einige mal abschauen!!!!
[/OT]

[EDIT]

Delphi-Quellcode:

WB_SetRadioCheckboxField(WB, 'checkbox', 'allgemein_datenschutzerklaerung', True);

Du musst anstatt "WB"..."Webbrowser1" schreiben!!

[/EDIT]

[Speedfighter]

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EOleError mit der Meldung 'Die Methode 'Value' wird vom Automatisierungsobjekt nicht unterstützt' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

da kommt immer wieder dieser Fehler :(

Wie kann ich die Unit da in Delphi benutzen?

vllt hat jemand Teamviewer oder VNC?

[Der.Kaktus]

Der Wert "VALUE" ist nich definiert auf der Web-Site..schau mal mit "toms" seinem WINSPY 2008 (suche in der DP)..wie die Felder genau heissen.

[Speedfighter]

So hab das Tool jetzt aber kann mann damit echt herausfinden wie der Radiobutton heisst :P sieht net so aus bei mir

[Der.Kaktus]

Zitat:

Zitat von Speedfighter

So hab das Tool jetzt aber kann mann damit echt herausfinden wie der Radiobutton heisst :P sieht net so aus bei mir

Du siehst den Code bei Mouseover..teste mal bissl...bin weg fuer heute..schoenen Abend...

[toms]

Bei welcher Zeile tritt der Fehler auf?