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 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]

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 sieht net so aus bei mir

[Der.Kaktus]

Zitat von Speedfighter:

So hab das Tool jetzt aber kann mann damit echt herausfinden wie der Radiobutton heisst 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?