Lazarus und Fremdprogramm

[thhz]

Hallo,

ich habe noch keine große Erfahrung mit Lazarus, daher habe ich erst einmal das Einsteigerforum gewählt,
auch wenn die Thematik recht knifflig ist.
Ich möchte bestimmte Felder in unserem Firmen ERP-System (unter Windows) über eine Lazarusanwendung füllen.
So möchte ich die Eingabe erleichtern, stelle ich mir zumindest vor.
An die Datenbank im Hintergrund komme ich nicht dran, daher möchte ich es so versuchen.
Die Idee kam mir durch ein Textbausteinprogramm. Das wird mittels Hotkey aufgerufen und man kann in jede beliebige Anwendung
vordefinierte Bausteine einfügen. Nur die müssen speziell sein, man kann sie nicht in dem Textbausteinprogramm nicht erstellen.
Habe schon Stunden mit Google verbracht, bin so weit das SendInput und Sendkey eine Rolle spielen könnten,
ebenso getactivewindow und lazmouseandkey package.
Habe viel gelesen, komme aber nicht weiter, ich finde auch keine Beispiele die ich verwenden kann, ehrlich gesagt ist mir
das auch zu komplex, so viel Erfahrung habe ich nicht.

also
- woher weiß mein Lazprogramm aus welcher Anwendung es aufgerufen wurde bzw. aus welchem Eingabefeld?
- es gibt insgesamt 3 Felder zufüllen
- das Programm hat auch 3 Felder
- auf z.B. einen Buttonklick, soll der Text aus Feld 1 in das aktive Feld der ERP-Anwendung gelangen
- dann müsste ein TAB gesendet werde, Feld 2 wird angesprungen und gefüllt, dann Feld 3

Ich hoffe das ich mich nicht zu umständlich ausgedrückt habe, ist mein erster Beitrag in einem Forum
Hätte jemand einen Denkanstoß oder schon selbst Erfahrung mit einem ähnlichen Projekt?

Vielen Dank

Gruß
Thomas

[Niesi]

- es gibt insgesamt 3 Felder zufüllen
- das Programm hat auch 3 Felder
- auf z.B. einen Buttonklick, soll der Text aus Feld 1 in das aktive Feld der ERP-Anwendung gelangen
- dann müsste ein TAB gesendet werde, Feld 2 wird angesprungen und gefüllt, dann Feld 3

Das wird so nicht gehen. Ich vermute, dass das Textbausteinprogramm über die Zwischenablage arbeitet. Das könntest Du auch versuchen. Die Eingebenden müssen dann jeweils den vorgefertigten Text z. B. per "Strg" + "v" einfügen.
Es sei denn, Du verfügst über eine Schnittstelle zu dem Programm, dessen Felder Du füllen möchtest - aber einfach so mal an oder gar in ein laufendes Programm Eingaben von außen senden, da wüsste ich nicht, wie das funktionieren sollte ...

[af0815]

Einsteigspunkte
viewtopic.php?t=7729
viewtopic.php?t=3767

https://www.tech-ecke.de/index_quereins ... lieren.htm

Das größte Problem ist, das man nicht unbedingt gut sieht wohin man was sendet

Code: Alles auswählen

uses
 .......
  ,windows
  ,ShellApi
  , JwaWinUser  // für TInput
  ;
..........
procedure SendVK(aVK:word);
var
  input: TInput;
begin
  FillChar(input, sizeof(TInput), 0);

  input.type_ := INPUT_KEYBOARD;
  input.ki.wVk := aVK;

  SendInput(1, @input, sizeof(TInput));
end;

procedure SendF1;
begin
  SendVK(VK_F1);
end;

[Niesi]

Das ist jedenfalls sehr interessant und könnte eine Möglichkeit sein, die Aufgabenstellung gut zu lösen ...

[Socke]

Wenn deine ERP Software von einem großen Softwareanbieter aus Walldorf kommt, hast du noch die Möglichkeit des SAP GUI Scriptings. Das läuft über OLE bzw. COM Automatisierung und kann prinzipiell auch von Lazarus aus genutzt werden.

[af0815]

Mit Hilfe der Routinen kann man untersuchen ob vielleicht die im fremden Programm verwendeten Felder (besonders die Eingabefelder) Komponentenamen haben. Dann wird es etwas einfacher. Dann kann man die direkt adressieren und gezielt schreiben.

Ich habe mich da mit dem Titel und Classennamen des Fensters beschäftigt. ListWinComp('Titel Fenster', 'Namen der Classe', AStringList) hat mir da geholfen.

[thhz]

Guten Abend,

vielen Dank,
da habt ihr mir aber viel aufgegeben
werde mich damit beschäftigen
ein Problem ist schon aufgetreten, wenn ich
die Unit uwinhelper einbinden und das Projekt kompiliere kommt
diese Meldung: uwinhelper.pas(121,51) Error: Illegal type conversion: "TStringList" to "LongInt"
habe diese Zeilen testweise auskommentiert, dann läuft die Kompilierung durch.
Arbeite mit Lazarus 2.0.12

nochmals vielen Dank

Gruß
Thomas

[af0815]

Den Fehler sehe ich mir an, kann sein, das der fpc strenger geworden ist. Die Unit ist etwas älter, da kann sowas schon vorkommen.

[theo]

diese Meldung: uwinhelper.pas(121,51) Error: Illegal type conversion: "TStringList" to "LongInt"

Hab's nicht auf Windows getestet, aber Longint ist da für 64bit nicht gut.
Geht das besser?

Code: Alles auswählen

 EnumChildWindows(hWindow, @EnumWindowChildProc, LPARAM(aList));

[af0815]

diese Meldung: uwinhelper.pas(121,51) Error: Illegal type conversion: "TStringList" to "LongInt"

Hab's nicht auf Windows getestet, aber Longint ist da für 64bit nicht gut.
Geht das besser?

Code: Alles auswählen

 EnumChildWindows(hWindow, @EnumWindowChildProc, LPARAM(aList));

Ich würde sagen ja, der Code ist nur unter 32Bit gelaufen, wie gesagt schon älter. Es hier darum, das der Callback das richtige Objekt verwendet. Die Routinen sind dafür das man eventuell einen Zugriff auf Komponenten in Fremdprogrammen unter Windows bekommt. Auch damit amn erkennen kann, in welchen Zustand sich ein Fremdprogramm befindet. Ich habe es verwendet um bei einem Messprogramm herauszufinden ob es gestartet ist, ob irgendwelche Abfragen offen sind. Dazu habe ich mir angeshen, welcher Dialog gerade offen ist und dann die entsprechenden Tasten gesendet um das Programm zum Messen zu bewegen. Das wird dann wieder über die Messuhren selbst gesteuert. Nur die Software verwendet eine proprietäres Bluetooth Protokoll, sonst hätte ich mir das ganze nicht auf Windows angetan. Da sind die Routinen entstanden, sie sind nur ein Beispiel wie man zu ein paar Infos von Fremdprogrammen kommen kann.

[thhz]

Hallo,

habe die Unit entsprechend angepasst, es funktioniert,
die Kompilierung läuft durch.

Vielen Dank

Gruß
Thomas