Announcement

**Mario.Noack** · 28.04.2004, 07:03

Falls Du nicht auf dem Windows-Rechner bestehst, gibt es von eigentlich jedem Komponenten-Hersteller f�r Delphi Edits, die einen eingebauten Rechner haben.
http://www.tmssoftware.com/moneyedit.htm
Sch�ne Gr��e, Mario Noac

**Vogt J�rgen** · 28.04.2004, 08:36

Hallo Mario,

zun�chst danke f�r deinen Vorschlag. Habe mir aber einige Taschenrechner angeschaut. Problem ist, das fast alle in direkt Verbindung mit einem Eingabefeld stehen. Dies kann ich nicht gebrauchen. Der Rechner soll losgel�st sein.

Gru� J�rge

**Andreas Kosch** · 28.04.2004, 11:51

Hallo,

auf der Delphi-CDROM liegt im Unterverzeichnis Extras die Unit SNDKEY32.PAS. �ber diesen Weg kann man den Taschenrechner-Input �ber Windows-Botschaften zum Taschenrechner schicken. Ich hatte das einmal f�r eine �ltere Entwickler-Konferenz mit dem WSH (VBScript) gemacht.

Mit dem Delphi-Tool WinSight32 kann man dann den Fensteraufbau des Taschenrechners ermitteln, um dann �ber den vorgefunenen Namen das Ergebnis der Berechnung durch das eigene Programm auszulesen.

Die Suche nach der Zeichenkette "WinSight32" liefert im FORUM zum Beispiel den Zugriff auf das Login-Fenster von AOL zur�ck - dieses Prinzip kann auch beim Taschenrechner genutzt werden

**Vogt J�rgen** · 04.05.2004, 14:06

Hallo Andreas,

vielen Dank f�r Deine Hilfe, aber so ganz scheint es bei mir nicht zu funktionieren.
Habe mir Dein AOL-Beispiel angesehen und nach Start des Rechners das Handle ermittelt. Der Versuch den Titel zu �ndern funktioniert aber schon nicht.
Bei WinSight habe ich bzgl. des Rechners auch schlechte Karten, weil dieser nicht identifiziert werden kann, sondern nur �ber einen nichts sagenden Code definiert ist. Somit f�llt mir das vorgeben eines Wertes sehr schwer, da ich das Feld nicht greifen kann.

Habe ich da jetzt etwas verkehrt gemacht?

Code-Beispiel:
ShellExecute(Self.Handle, ......
hCalcWnd := GetWindow(Self.Handle, GW_Child);
if hCalcWnd <> 0 then
SendMessage(hCalcWnd, WM_SetText, 0, LongInt('PChar('TEST')));

(BreakPoint auf "SendMessage..." h�lt an, Titel wird aber nicht ge�ndert

**Andreas Kosch** · 05.05.2004, 06:22

Hallo,

>..Titel wird aber nicht ge�ndert..

das folgende Beispiel �ndert die Fensterbeschriftung vom Taschenrechner:
<pre>
procedure TForm1.Button1Click(Sender: TObject);
var
hCalcWnd : HWND;
begin
hCalcWnd := FindWindow(nil, 'Rechner');
if hCalcWnd <> 0 then
SendMessage(hCalcWnd, WM_SETTEXT, 0, LongInt(PChar('Test')));
end;
</pre>
Siehe Abbildung

**Andreas Kosch** · 05.05.2004, 06:28

>Bei WinSight habe ich bzgl. des Rechners auch schlechte Karten, 
>weil dieser nicht identifiziert werden kann....

Der Fensteraufbau des Taschenrechners wird von WinSight32 korrekt angezeigt

**Vogt J�rgen** · 05.05.2004, 13:11

Hallo Andreas,

Problem 1 - Fenster finden:
Der ShellExecute war zu langsam f�r den FindWindow. Durch einbauen einer kurzen Pause, kann das Fenster dann auch gefunden werden.
Fensterbez. �ndern funktioniert:

Problem 2 - WinSight:
Funktioniert bei mir am Rechner nicht (Windows 2000 - Delphi 5). Hat bei einem Kollegen aber funktioniert. Wie in der JPG.Datei zeigt er den Rechner und das "EDIT"-Feld an.
Aber dessen Handle bekomme ich immer noch nicht. Folgende Varianten habe ich getestet:
FindWindowEx(hWnd, 0, 'Edit', nil);
FindWindowEx(hWnd, 0, PChar('Edit'), nil);
FindWindowEx(hWnd, 0, nil, '0,');

Wo liegt jetzt noch mein Fehler?

Gru� J�rge

**Andreas Kosch** · 06.05.2004, 07:40

Hallo,

das folgende Beispiel demonstriert, wie man den Taschenrechner von Windows f�r eigene Berechnungen nutzt und das Ergebnis im eigenen Delphi-Programm anzeigt. Die beiden Funktionen AppActivate und SendKeys stammen aus der Unit SNDKEY32.pas, die Borland im Extras-Unterverzeichnis der Delphi-CDROM mit ausliefert. Die verz�gernden Sleep-Aufrufe sollen nur den Ablauf im Taschenrechner visuell nachverfolgbar machen. Der zu suchende Fensterklassen-Name Edit des Eingabefeldes des Taschenrecherns wurde �ber das Delphi-Zubeh�r WinSight32 nachgeschlagen:
<pre>
uses ShellAPI, SNDKEY32;
 
procedure TForm1.Button1Click(Sender: TObject);
var
hCalcWnd : HWND;
hEditWnd : HWND;
iBuffLen : Integer;
pBuffer : PChar;
begin
hCalcWnd := FindWindow(nil, 'Rechner');
AppActivate('Rechner');
SendKeys('1{+}', True);
Sleep(500);
SendKeys('2', True);
Sleep(500);
SendKeys('~', True);
hEditWnd := FindWindowEx(hCalcWnd, 0, PChar('Edit'), nil);
if hEditWnd <> 0 then
begin
iBuffLen := SendMessage(hEditWnd, WM_GETTEXTLENGTH, 0, 0);
if iBuffLen > 0 then
begin
Inc(iBuffLen);
GetMem(pBuffer, iBuffLen);
try
SendMessage(hEditWnd, WM_GETTEXT, iBuffLen, LPARAM(pBuffer));
StatusBar1.SimpleText := pBuffer;
finally
FreeMem(pBuffer);
end
end
end;
end;
</pre&gt

**Vogt J�rgen** · 12.05.2004, 08:27

Hallo Adreas,

vielen Dank noch mal f�r Deine Hilfe.

Da es mit dem Auslesen des Wertes unter Windows2000 Probleme gibt, habe ich darauf verzichtet. Der Rest funktioniert gut.

Gru� J�rge

**Andreas Kosch** · 12.05.2004, 09:06

Hallo,

>Da es mit dem Auslesen des Wertes unter Windows2000 Probleme gibt...

welcher Art? Das Beispiel funktioniert unter Windows XP tadellos

**Vogt J�rgen** · 18.05.2004, 06:48

Hallo Andreas

bei dem Befehl

hEditWnd := FindWindowEx(hCalcWnd, 0, PChar('Edit'), nil);

bekomme ich als Handle immer den Wert 0.

Die gleiche Funktion klappt bei einem Kollegen, der ebenfalls XP hat, bei einem Anderen mit Win2000 wiederum nicht.

Ist aber nicht so tragisch, habe nur den Aufruf mit Wert�bergabe programmiert. Das funktioniert auf mehreren Rechnern.

Gru� J�rge

Announcement

Implementation Windows-Taschenrechner

Implementation Windows-Taschenrechner

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment