Bankomatterminal an PC anbinden

[g.bunzel@domonet.de]

Frank,

evtl. klappt das mit diesen Funktionen:

FUNCTION LockWindow (hWnd AS PTR) AS LONG PASCAL
// Setzt eine Fenstersperrung

// Das Neuzeichnen von Elementen in diesem Fenster unterbinden
RETURN SendMessage(hWnd, WM_SETREDRAW, 0, 0L)

FUNCTION UnlockWindow (hWnd AS PTR) AS LOGIC PASCAL
// Hebt eine Fenstersperrung auf und zeichnet das Fenster aktuell neu.
LOCAL lReturn AS LOGIC

// Das Neuzeichnen von Elementen in diesem Fenster wieder zulassen
SendMessage(hWnd, WM_SETREDRAW, 1, 0L)

// Die Fensterdarstellung aktualisieren
lReturn := RedrawWindow(hWnd, NULL, NULL, _OR(RDW_ERASE, RDW_INVALIDATE, RDW_ALLCHILDREN, RDW_UPDATENOW))

RETURN lReturn


In Windows gibt es dazu diese Funktion:
https://learn.microsoft.com/en-us/windo ... ndowupdate

HTH

Gerhard Bunzel

[Frank Müßner]

Hallo Franz,

sorry für die späte Antwort, war im Urlaub

Ich rufe nur EasyZVT auf und warte auf Beendigung, allerdings fällt mir ein, klappte das nur mit der Standalone Version, nicht mit der Clickonce Version von EasyZVT. Aber damit hatte ich noch keine Probleme gemeldet bekommen.

Grüße Frank

[lagraf]

Gerhard:
Ich habe die beiden Funktionen eingebaut, nun müssen wir abwarten, ob sich dadurch etwas verbessert. Das Problem dabei ist nämlich, dass es lt. dem Kunden nicht jedesmal auftritt, sondern nur sporadisch.