Editfelder in Farmes einer Website ansprechen

[P4CM4N]

Zitat von marabu:

befindet sich die Komponente TWebBrowser in deiner Palette?

Ja, es gibt 2 verschiedene Browser, einmal den normalen TWebbrowser und einmal Webbrowser_V1. Ich verwende den normalen.

Zitat von marabu:

Welche Delphi-Version setzt du ein?

Delphi 7. Home oder so, nicht Professional.

Zitat von marabu:

Gibt es in deinem Verzeichnis $(DELPHI)\LIB die entsprechenden Units, die du einbinden möchtest?

Hab ich jetzt eingefügt. Immer noch nichts. dann hab ich die Komponenten neu installiert, alsi mit dem pfad aus der Lib. Hat leider nicht geholfen. Ich kann ja mal den kompletten Quelltext posten

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, StdCtrls, SHDocVw_TLB;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    WebBrowser1: TWebBrowser;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Webbrowser1.Navigate(Edit1.TExt);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  vDoc, vFrame, vForm: OleVariant;
  iFrame, iForm: Integer;
  sElement: string;
begin
  //iFrame, iForm, sElement assumed valid
  vDoc := WebBrowser.OleObject.Document;
  vFrame := vDoc.frames.item(iFrame);
  vDoc := vFrame.contentWindow.Document;
  vForm := vDoc.forms.item(iForm);
  vForm.elements.item(sElement).value := '1';
end;


end.

Wie gesagt, in der Zeile
vDoc := WebBrowser.OleObject.Document; kommt die Fehlermeldung.