AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi Eingabe in einem WebBrowser-Feld simulieren

Eingabe in einem WebBrowser-Feld simulieren

Ein Thema von eddy · begonnen am 26. Feb 2004 · letzter Beitrag vom 26. Feb 2004
Antwort Antwort
Benutzerbild von eddy
eddy

Registriert seit: 4. Jan 2003
Ort: Sachsen
573 Beiträge
 
Delphi 5 Professional
 
#1

Eingabe in einem WebBrowser-Feld simulieren

  Alt 26. Feb 2004, 19:00
Hallo Leute,

ich möchte die Tastatureingabe auf einer Internetseite von Delphi aus steuer.

So etwa in der Art:
Code:
  WebBrowser.Navigate('http://www.google.de');
Wenn dann die Seite komplett geladen ist steht der blinkende Cursor im Eingabefeld und statt das Suchwort (z.B.: TWebBrowser +Delphi) einzutippen soll dieses aus einem Edit-Feld genommen und in das Eingabefeld auf der Internetseite eingetragen werden.

WebBrowser und das Edit-Feld werden von meinem Programm verwaltet, aber wie kriege ich den Text in das Google-Eingabefeld?

mfg
eddy
  Mit Zitat antworten Zitat
czapie

Registriert seit: 17. Nov 2002
Ort: Berlin
384 Beiträge
 
Delphi 5 Standard
 
#2

Re: Eingabe in einem WebBrowser-Feld simulieren

  Alt 26. Feb 2004, 19:02
Irgendwann reicht es

SUCHT!

SUCHE

Czapie.
Was man zu verstehen gelernt hat, fürchtet man nicht mehr.
(Marie Curie)
http://www.cafes-in-berlin.com
  Mit Zitat antworten Zitat
Kinimod8

Registriert seit: 9. Jan 2004
Ort: Barsbüttel
317 Beiträge
 
Delphi 6 Personal
 
#3

Re: Eingabe in einem WebBrowser-Feld simulieren

  Alt 26. Feb 2004, 19:03
Klick!
Dominik Peters
  Mit Zitat antworten Zitat
Benutzerbild von eddy
eddy

Registriert seit: 4. Jan 2003
Ort: Sachsen
573 Beiträge
 
Delphi 5 Professional
 
#4

Re: Eingabe in einem WebBrowser-Feld simulieren

  Alt 26. Feb 2004, 21:41
Hallo czapie & Kinimod8,

danke für die superschnellen Antworten.
Ich habe mir die Links angesehen und folgendes daraus gemacht:

Code:
//  WebBrowser1.OleObject.Document.Frames.item('Name des Frames').
//                        Document.Forms.item('Name des Formulars').
//                        Elements.item('Name des Feldes').value := 'Irgendetwas'


procedure TFTermin.wbNavigateComplete2(Sender: TObject;const pDisp: IDispatch; var URL:OleVariant);
const
  url_google = 'http://www.google.de';
begin
  cbWeb.Text := lower(wb.OleObject.Document.Url);
  ShowMessage(cbWeb.Text + ' wurde geladen');
  if (cbWeb.Text = url_google) or (cbWeb.Text = url_google + '/') then begin

    wb.OleObject.Document.Forms.item('f').Elements.item('q').value := 'Irgendetwas';

  end;
end;
Sobald 'Irgendetwas' zugewiesen werden soll, erhalte ich nur eine Fehlermeldung:

Zugriffsverletzung bei Adresse ... im Modul ....

Was ist also nun noch verkehrt?

mfg
eddy



Nachtrag:

Problem wurde gelöst: Warten bis URL komplett geladen ist

mfg
eddy
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:24 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz