Png Grafik am Bildschirm suchen und Position ermitteln

[shmia]

Zitat:

Zitat von Go2EITS

Childfenster jedoch ist mir ein neuer Begriff.

Unter Windows ist jedes Ding, dass man manipulieren kann (Button, Edit, Scrollbar, Combobox,...) ein Fenster und hat ein Handle.
Die Ausnahme sind Java-Programme; die kochen ihr eigenes Süppchen.
Bei Delphi ist das Programm WinSight dabei.
Vorgehensweise: Alle Programm bis auf das Zielprogramm beenden.
WinSight starten.
Das Hauptfenster in der Baumstruktur anklicken und dann "*" drücken um alles aufzuklappen.

[mschaefer]

Eine andere Ausnahme sind Webseiten...

a: Vergleich Helligkeit Grafik
b: Vergleich: Grafiken
c: Read/Write JPG
d: Screen Grab

Grüße // Martin

[Go2EITS]

Shima: Ja, die Eingabemaske geht wohl über Java.
MSchäfer: Danke für die Hinweise!

Ich suche noch ein Programm, dass mir die Felder anzeigt, damit ich in Twebbrowser damit arbeiten kann.
Ich bin aber leider noch nicht weiter gekommen, bzw. konnte die Felder lokalisieren. Mir scheint meine erste Idee den Bereich auf dem Bildschirm mit Referenzpunkten zu suchen und mit einem simulierten Mausklick und simulierten Tastaturdruck auf zweiten Blick leichter zu sein als Java zu lernen. Allein die Suche nach den Feldern ist eher ein Ratespiel. Siehe auch www.dab-bank.com unter Login den Quelltext.

Noch jemand eine Idee? :gruebel:

[shmia]

Auf der Seite sind zwei Frames. Der 2. Frame hat folgende Objekte:

Code:

Form1: searchform1
   baseURL = [url]http://extis.dab-bank.com/dab_neu/aktieninvest/suchergebnis.html[/url]
      Type=hidden
   kat = 
      Type=hidden
   spring = search
      Type=hidden
   wptyp = ALL
      Type=radio
   wptyp = CER
      Type=radio
   wptyp = STK
      Type=radio
   wptyp = FND
      Type=radio
   wptyp = BND
      Type=radio
   wptyp = WNT
      Type=radio
   wptyp = NEW
      Type=radio
   wptyp = DAB
      Type=radio
   searchfor = WKN, ISIN oder Name eingeben
      Type=text
      MaxLen=2147483647

Also ist "searchfor" das primäre Eingabefeld.

[Go2EITS]

So, ich habe weiter recherchiert und bin mit Twebbrowser wohl am richtigen Weg.
Nachfolgende Codeschnipsel habe ich gefunden, die aber nicht funktionieren (ich verwende D7).
Quelle:
Link

Nachfolgende Vorgehensweise erscheint mir momentan sinnvoll:

1. Nummer der Form zu holen.
2. Alle Eingabefelder der Form holen und listen.

Delphi-Quellcode:

function GetFormByNumber(document: IHTMLDocument2;
    formNumber: integer): IHTMLFormElement;
var
  forms: IHTMLElementCollection;
begin
  forms := document.Forms as IHTMLElementCollection;
  if formNumber < forms.Length then
    result := forms.Item(formNumber,'') as IHTMLFormElement
  else
    result := nil;
end;

function GetFormFieldNames(fromForm: IHTMLFormElement): TStringList;
var
  index: integer;
  field: IHTMLElement;
  input: IHTMLInputElement;
  select: IHTMLSelectElement;
  text: IHTMLTextAreaElement;
begin
  result := TStringList.Create;
  for index := 0 to fromForm.length do
  begin
    field := fromForm.Item(index,'') as IHTMLElement;
    if Assigned(field) then
    begin
      if field.tagName = 'INPUT' then
      begin
        // Input field.
        input := field as IHTMLInputElement;
        result.Add(input.name);
      end
      else if field.tagName = 'SELECT' then
      begin
        // Select field.
        select := field as IHTMLSelectElement;
        result.Add(select.name);
      end
      else if field.tagName = 'TEXTAREA' then
      begin
        // TextArea field.
        text := field as IHTMLTextAreaElement;
        result.Add(text.name);
      end;
    end;
  end;
end;
//procedure TMyForm.Button1Click(Sender: TObject);
// Original geändert
procedure Form1.Button1Click(Sender: TObject);
var
  document: IHTMLDocument2;
  theForm: IHTMLFormElement;
  index: integer;
begin
   //Nachfolgend wird ein Fehler gezeigt:
  // document := TWebBrowser.Document as IHTMLDocument2;
  // und habe deshalb den Source abgeändert:
  document := WebBrowser1.Document as IHTMLDocument2;
  // und ab hier geht es bei mir nicht mehr weiter...
  theForm := GetFormByNumber(WebBrowser.Document as IHTMLDocument2,0);
  fields := GetFormFieldNames(theForm);

  for index := 0 to fields.count-1 do
    ShowMessage('Field ' + IntToStr(index) + ' called ' + fields[index]);
end;

So fehlerfrei, wie der Autor schreibt, scheint der Code für D7 nicht zu sein.
Kann jemand weiterhelfen?

[f.siebler]

Moin,

ich weiß, dass es unfair ist das anzusprechen, aber bist du dir sicher, dass du mit einem Bot zum Abfragen der Börsenkurse nicht gegen die AGB des Anbieters handelst. Wenn es so einfach wäre, warum gibt es dann noch teure Dienste wie http://www.smarthouse.de/ ?
Ich würde es mal prüfen, bevor du dich evtl. mit einer/deiner Bank anlegst.. :-)

[Go2EITS]

@f.siebler
Ich denke, wenn ich über Sendkeys eine Order ausführe, über Twebbrowser die Felder ausfüllen lasse oder über meine Maus und Tastatur agiere, ist das unerheblich für die Bank, aber für mich schneller. Problematisch wird es sicherlich, wenn ich 100 Mal in der Minute Kurse abfrage. Wenn ich alle 5 Minuten eine Abfrage tätige, ist dies wohl unerheblich. Der Trafik bleibt in etwa gleich. Das Ziel ist nicht die Abfrage von x-Kursen in der Minute eines Wertpapiers.

Wieder zum Problem:

Ich habe den (fehlerhaften) Source beigefügt und verwende ein Beispiel, dass bei Yahoo einen Login ausfüllt und ausführt.
Den Code zum auslesen der Felder habe ich integriert. Weil der ergänzende Code nicht compiliert wird, habe ich diesen im Code
"auskommentiert". Ich hoffe, das hilft weiter.

[SirThornberry]

wenn es sich um eine simple webseite handelt ist TWebbrowser auch der falsche Weg. Denn wie es scheint brauchst du die visuelle Ausgabe im Webseitendesign nicht. Dementsprechen kannst du auch einfach die Webseite herunterladen, die Daten Parsen und dann die Daten wieder abschicken (posten)

[Go2EITS]

@SirThornberry:
Nein, es ist eine Seite mit Javascript.
Die Eingabefelder konnte ich nicht localisieren, daher mein Versuch über den obenstehenden Code.
Siehe auch die Komplexität der Seite unter dem Login z. B. von der DAB-Bank:
Beispiel