Hi hab mir ein LCD Display gekauft und wollt das ganze
nun per Delphi steuern , die Samples für das Display sind allerdings in VBS geschrieben
wie kann ich das in Delphi umsetzen ?
Hier das VBS Script
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| option explicit
Dim Devices
Dim Display
Set Devices = WScript.CreateObject("TreUSBX.DisplayDevices")
Devices.EnumDevices
If Devices.DeviceCount > 0 Then
Set Display = Devices.DeviceGet_Index(1)
If Display.Device.Connect Then
Display.Init
Display.CursorSet 0, 0
Display.WriteText "Backlight OFF"
Display.BacklightSet False, True
End If
End If |
Mein Versuch in Delphi sieht so aus
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| procedure LCDWriteZeile(Zeile: Integer;Txt: String);
var Devices : Variant;
Display : Variant;
begin
Try
Devices := CreateOleObject('TreUSBX.DisplayDevices');
Devices.EnumDevices;
if Devices.DeviceCount>0 then Begin
Display := Devices.DeviceGet_Index(1);
If Display.Devices.Connect then windows.beep(4000,30);
// Hier kommt irgendwann der Rest
end;
except
end;
end; |
In der Zeile "If Display.Devices.Connect ..." gibt ne Exception weil es vom
Automatisierungsobjekt nicht unterstützt wird
Kann mir da einer weiterhelfen ?
thx
