Beiträge von vivus

vivus

Hy @ ALL

Hab n risen problem !!!

hab n kleines skript laufen. funktioniert auch wunderbahr!!!

aber nach ner halben stunde kommt

folgende FEHLERMELDUNG

WARUM ??

siehe auch den ausschnitt meines programms

Spoiler anzeigen

[autoit]

Func manistart()

sleep(100)

Run($prg) ; starten vom mani programmierprogramm

sleep(100)

GUIDelete() ; Löschen des Hauptfensters

sleep(100)

guineu()

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Exit

[/autoit] [autoit][/autoit] [autoit]

Func guineu()

GUIDelete() ; Löschen des Hauptfensters

sleep(50)

GUICreate("Zählung korrigieren", 350,110,$guix,$guiy)
GUICtrlCreateLabel("Wenn ein Prüfling durch Sichtkontrolle als fehlerhaft" , 1,1)
GUICtrlCreateLabel("nochmal programmiert werden soll. Bitte - Stück +1 - drücken", 1,15)

$plus1 = GUICtrlCreateButton("Stück +1", 2,35 , 150)
$minus1 = GUICtrlCreateButton(" -1 ", 158,35 , 35)
$ende = GUICtrlCreateButton("BEENDEN", 199,35 , 150)

GUICtrlCreateLabel("Aktueller EAN-Code "&$eingabe, 0,70)

GUISetState(@SW_SHOW)

;sleep(10)

zaehlstart() ; sprung zu unterfunktion manistart

EndFunc

Exit

[/autoit] [autoit][/autoit] [autoit]

;--------------

Func zaehlstart()

sleep(100)

$msg2 = GUIGetMsg () ; Einlesen der Eingabe in die Variable $msg

;Sleep(50)

Select
case $msg2 = $plus1 ;Auslesen der Eingabe (ok oder abbrechen)
;Sleep(50)
$stueck = $stueck + $eins
;guineu()

case $msg2 = $minus1 ;Auslesen der Eingabe (ok oder abbrechen)
;Sleep(50)
$stueck = $stueck - $eins
;guineu()

case $msg2 = $ende ;Auslesen der Eingabe (ok oder abbrechen)
;Sleep(50)
manikill()

EndSelect

;Sleep(100)

ToolTip("Momentan sind noch "&$stueck& " zu testen" ,$guix+1,$guiy+115) ; tooltip anzeige ( für Zählstatus )

[/autoit] [autoit][/autoit] [autoit]

Sleep(100)

[/autoit] [autoit][/autoit] [autoit]

$wertdll = DllCall("inpout32.dll", "short", "Inp32", "short", "0x379")

[/autoit] [autoit][/autoit] [autoit]

;Sleep(50)

[/autoit] [autoit][/autoit] [autoit]

$wert = $wertdll[0]

[/autoit] [autoit][/autoit] [autoit]

Sleep(50)

[/autoit] [autoit][/autoit] [autoit]

If $wert = $tasterhy Then
;Sleep(50)
tasteda() ; zu funktion Taste da
EndIf

Sleep(50)
zaehlstart() ; sprung zu...

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Exit
;-----------------------------------------

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func tasteda()

sleep(250)

$wertdll = DllCall("inpout32.dll", "short", "Inp32", "short", "0x379")

;Sleep(50)

$wert = $wertdll[0]

;Sleep(50)

If $wert = $tasterhy Then
;Sleep(50)
tasteda()
EndIf

;Sleep(50)
zaehlen()

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Exit
;-----------------

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func zaehlen()
;sleep(100)

$stueck = $stueck - $eins ; stückzahl um 1 verringern

;sleep(50)

IF $stueck = 0 then ; abfrage ob stückzahl = 0
;sleep(50)
manikill()

EndIf

[/autoit] [autoit][/autoit] [autoit]

;Sleep(50)

zaehlstart()

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;exit
;-----------------

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func manikill()

GUIDelete()

;sleep(50)

WinKill("ManI-US2") ; mani schließen

;sleep(50)

WinKill("ManI")

if WinExists("ManI-US2")Then
manikill()
EndIf

if WinExists("ManI")Then
manikill()
EndIf

exit
EndFunc

[/autoit]

DANKE
schon im vorraus

vivus

DANKE !!

ich habs !!!

war die formatierung !!!!

von pc ausgeben

Spoiler anzeigen

[autoit]

$war = InputBox("sdfb","kanal")

[/autoit] [autoit][/autoit] [autoit]

$result = DllCall("InpOut32.dll","int","Out32","int","0x378","int",$war)

[/autoit]

in pc einlesen

Spoiler anzeigen

[autoit]

while 1
sleep(100)
$wert = DllCall("inpout32.dll", "short", "Inp32", "short", "0x379")

[/autoit] [autoit][/autoit] [autoit]

ToolTip($wert[0],0,0)

[/autoit] [autoit][/autoit] [autoit]

WEnd

[/autoit]

THX

PS.: wie kann ich ne zip datei anhängen ?!

infos unter :
http://logix4u.net/Legacy_Ports/P…nterfacing.html

vivus

Hallo zusammen...

@ emsis

nee geht nicht mit * ...

die AutoIt History hab ich mir auch schon angeschaut ...bin aber nicht wirklich schlauer draus geworden. Sind zu viele Änderungen... Läuft irgend wie aus dem Ruder..

@ alina

zu Zitat : 4 Beiträge und alle drehen sich um das gleiche Thema.

Es sind nur 2 Beiträge ... und 2 Skript Vorstellungen , falls das auch jemand anders gebrauchen kann...

Und ich habe beim ersten Beitrag nur geantwortet .... Ihn also nicht selber erstellt!!!!!

UND

Ich finde das ein extrem wichtiges Thema, da sich ja zu Version 3.1 irgend was verschlechtert hat. !!!

Ich will bloß nicht, dass das unter geht.

@ xenobiologist

danke...

aber...

Die hatte ich schon alle durch..

alles alte Beiträge

welche sich mit dem Thema an sich beschäftigen.. allerdings nicht mit der Lösung der V3.2.XX Versionen.

@ ALL

bitte nicht aufhören zu schreiben!!
Die Lösung muss her !!!! wenn jemand Schaltpläne zum testen braucht..
Melden !!

ULTRA THX

vivus

in wie fern ... ???

ist ja dann n ganz anderer Befehl...

aber ok :: ich werd's mal testen.

aber so wie's oben abgebildet ist, funktioniert 's mit V3.1 ab V3.2 kommt ne Auto it Fehlermeldung.

vivus

Hallo

warum arbeitet dieser CODE

[autoit]

DllCall("InpOut32.dll","short","Out32","short",0x378,"short",$port,"short",0)

[/autoit]

nur in AUTOIT V3.1

und nicht in AutoIT V3.2XXX

und wie krieg ich den da zum laufen ??

geht um das ansprechen des LPT PORT

hier ne fertige au3 ( einfach mit AutoIT V3.1 in eine EXE compilieren

funktioniert wunderbar

ps.: inpout23.dll googlen und in windows system32 kopieren.

Spoiler anzeigen

[autoit]

;LPT1_von_pc_ausgeben
;funktioniert nur, wenn skript mit Auto It V3.1 in exe konvertiert wird.
;ansonsten schwerer Ausnahmefehler

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$pfad = @WorkingDir&"\"

[/autoit] [autoit][/autoit] [autoit]

If FileExists( $pfad&"LPT1_von_PC_ausgeben.ini") Then
iniexists()
Else
MsgBox (4,"LPT1_von_PC_ausgeben","kann "& $pfad&"LPT1_von_PC_ausgeben.ini"&" nicht finden -- wird erstellt")
iniWrite( $pfad&"LPT1_von_PC_ausgeben.ini", "LPT1_0x378_out", "port", "255 ;hier den anzusteuernden Port eintragen")
iniWrite( $pfad&"LPT1_von_PC_ausgeben.ini", "LPT1_0x378_out", "schleife", "1 ; 1 für Ja -- 0 für NEIN")

[/autoit] [autoit][/autoit] [autoit]

exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

Exit

[/autoit] [autoit][/autoit] [autoit]

;-------------

[/autoit] [autoit][/autoit] [autoit]

Func iniexists()

$schleife = IniRead( $pfad&"LPT1_von_PC_ausgeben.ini", "LPT1_0x378_out", "schleife", "1")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If $schleife = 1 Then
schleife()
ElseIf $schleife = 0 Then
nur_ein_mal()
Else
MsgBox(4,"LPT1_von_PC_ausgeben","Bitte in " & $pfad&"LPT1_von_PC_ausgeben.ini "&" schleife eintragen")
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

Exit

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;---------------------

[/autoit] [autoit][/autoit] [autoit]

Func nur_ein_mal()

[/autoit] [autoit][/autoit] [autoit]

$port = IniRead($pfad&"LPT1_von_PC_ausgeben.ini", "LPT1_0x378_out", "port", "0")

[/autoit] [autoit][/autoit] [autoit]

DllCall("InpOut32.dll","short","Out32","short",0x378,"short",$port,"short",0)

[/autoit] [autoit][/autoit] [autoit]

EXIT

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;----------------------

[/autoit] [autoit][/autoit] [autoit]

Func schleife()
While 1

[/autoit] [autoit][/autoit] [autoit]

$port = IniRead($pfad&"LPT1_von_PC_ausgeben.ini", "LPT1_0x378_out", "port", "0")

[/autoit] [autoit][/autoit] [autoit]

DllCall("InpOut32.dll","short","Out32","short",0x378,"short",$port,"short",0)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

WEnd
EndFunc
Exit

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

PPS.:

hier das ganze noch in grün, um ein LPT Signal in den Pc einzulesen

gilt das gleiche wie oben.( geht auch nur mit AUto IT V 3.1)

Spoiler anzeigen

[autoit]

;LPT_in_pc_einlesen
Global $address,$port,$zustand,$pfad,$ini,$wini,$schleife,$tooltip, $sleep

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If not Fileexists("c:\LPT1_in_pc_einlesen_pfad.ini") then
iniWrite( "c:\LPT1_in_pc_einlesen_pfad.ini", "LPT1_0x379_in_pc_einlesen", "pfad", @WorkingDir & "\")
;MsgBox(1,"LPT1_in_pc_einlesen","FEHLER -- Die INI mit dem Filename - c:\LPT1_in_pc_einlesen_pfad.ini - Der section - [LPT1_0x379_in_pc_einlesen] - und dem KEY - pfad = workdir - fehlt --- BITTE erstellen")
MsgBox(4,"LPT1_in_pc_einlesen","bitte legen sie die workdirektory fest -- in C:\c:\LPT1_in_pc_einlesen_pfad.ini")
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;$pfad1 = @WorkingDir&"\"

[/autoit] [autoit][/autoit] [autoit]

$pfad = IniRead( "c:\LPT1_in_pc_einlesen_pfad.ini", "LPT1_0x379_in_pc_einlesen", "pfad", "")

[/autoit] [autoit][/autoit] [autoit]

;$pfad = $pfad1"\"

[/autoit] [autoit][/autoit] [autoit]

$ini = $pfad&"LPT1_in_pc_einlesen.ini"
$wini = $pfad&"LPT1_in_pc_einlesen_work.ini"

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If FileExists( $ini ) then
iniexists()
Else
MsgBox (4,"LPT1_in_pc_einlesen","kann "& $ini & " nicht finden -- wird erstellt")
iniWrite( $ini, "LPT1_0x379_in_pc_einlesen", "port", "2 ; hier den anzusteuernden Port eintragen")
iniWrite( $ini, "LPT1_0x379_in_pc_einlesen", "zustand", "1 ; 1 für Ja -- 0 für NEIN")
iniWrite( $ini, "LPT1_0x379_in_pc_einlesen", "schleife", "1 ; 1 für Ja -- 0 für NEIN")
iniWrite( $ini, "LPT1_0x379_in_pc_einlesen", "ToolTip", "1 ; 1 für Ja -- 0 für NEIN")
iniWrite( $ini, "LPT1_0x379_in_pc_einlesen", "sleep", "10 ; 10 ms")
;iniWrite( $ini, "LPT1_0x379_in_pc_einlesen", "pfad", $pfad1)
exit
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Exit

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;---------------------------

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func iniexists()

[/autoit] [autoit][/autoit] [autoit]

If FileExists( $wini ) then
alliniexists()
Else
MsgBox (4,"LPT1_von_pc_ausgeben","kann "& $wini & " nicht finden -- wird erstellt")
iniWrite( $wini, "LPT1_0x379_in_pc_einlesen_work", "CODE", "0 ; hier wird der aktuelle wert des portes eingefügt ")
exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

Exit

[/autoit] [autoit][/autoit] [autoit]

EndFunc
;----------------------------

[/autoit] [autoit][/autoit] [autoit]

Func alliniexists()

[/autoit] [autoit][/autoit] [autoit]

$address = 0x379
$port = IniRead( $ini, "LPT1_0x379_in_pc_einlesen", "port", "2")
$zustand = IniRead( $ini, "LPT1_0x379_in_pc_einlesen", "zustand", "1")
$schleife= IniRead( $ini, "LPT1_0x379_in_pc_einlesen", "schleife", "1")
$tooltip = IniRead( $ini, "LPT1_0x379_in_pc_einlesen", "ToolTip", "0")
$sleep = IniRead( $ini, "LPT1_0x379_in_pc_einlesen", "sleep", "10")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

IF $schleife = 0 Then
keineschleife()
ElseIf $schleife = 1 Then
schleife()
else
EndIf

[/autoit] [autoit][/autoit] [autoit]

Exit

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;-----------------------

[/autoit] [autoit][/autoit] [autoit]

Func schleife()

[/autoit] [autoit][/autoit] [autoit]

while 1

[/autoit] [autoit][/autoit] [autoit]

$schleife= IniRead( $ini, "LPT1_0x379_in_pc_einlesen", "schleife", "1")
IF $schleife = 0 Then
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

sleep($sleep)

[/autoit] [autoit][/autoit] [autoit]

$result = DllCall("inpout32.dll", "short", "Inp32", "short", $address,"short",$port,"short",$zustand)

[/autoit] [autoit][/autoit] [autoit]

IniWrite( $wini, "LPT1_0x379_in_pc_einlesen_work", "CODE", $result[0])

[/autoit] [autoit][/autoit] [autoit]

IF $tooltip = 1 Then
ToolTip($result[0],0,0)
EndIf
WEnd
EndFunc
exit

[/autoit] [autoit][/autoit] [autoit]

;---------------

[/autoit] [autoit][/autoit] [autoit]

Func keineschleife()
$result = DllCall("inpout32.dll", "short", "Inp32", "short", $address,"short",$port,"short",$zustand)
IniWrite( $wini, "LPT1_0x379_in_pc_einlesen_work", "CODE", $result[0])
IF $tooltip = 1 Then
ToolTip($result[0],0,0)
Else
EndIf
EndFunc

[/autoit]

PPPS.:

Wäre über eine HILFE sehr dankbar.

da ich jetzt alles über die ini-files schieben muss...

braucht Rechenleistung ohne ENDE.

vivus

Funktionier ebenfalls nur in auto it V 3.1 da ab auto it 3.2 die DLL verwaltung anderst gehandhabt wird.
und keiner weis wie.

Spoiler anzeigen

Global $address,$port,$zustand,$pfad,$ini,$wini,$schleife,$tooltip, $sleep

If not Fileexists("c:\LPT1_in_pc_einlesen_pfad.ini") then
iniWrite( "c:\LPT1_in_pc_einlesen_pfad.ini", "LPT1_0x379_in_pc_einlesen", "pfad", @WorkingDir & "\")
;MsgBox(1,"LPT1_in_pc_einlesen","FEHLER -- Die INI mit dem Filename - c:\LPT1_in_pc_einlesen_pfad.ini - Der section - [LPT1_0x379_in_pc_einlesen] - und dem KEY - pfad = workdir - fehlt --- BITTE erstellen")
MsgBox(4,"LPT1_in_pc_einlesen","bitte legen sie die workdirektory fest -- in C:\c:\LPT1_in_pc_einlesen_pfad.ini")
Exit
EndIf

;$pfad1 = @WorkingDir&"\"

$pfad = IniRead( "c:\LPT1_in_pc_einlesen_pfad.ini", "LPT1_0x379_in_pc_einlesen", "pfad", "")

;$pfad = $pfad1"\"

$ini = $pfad&"LPT1_in_pc_einlesen.ini"
$wini = $pfad&"LPT1_in_pc_einlesen_work.ini"

If FileExists( $ini ) then
iniexists()
Else
MsgBox (4,"LPT1_in_pc_einlesen","kann "& $ini & " nicht finden -- wird erstellt")
iniWrite( $ini, "LPT1_0x379_in_pc_einlesen", "port", "2 ; hier den anzusteuernden Port eintragen")
iniWrite( $ini, "LPT1_0x379_in_pc_einlesen", "zustand", "1 ; 1 für Ja -- 0 für NEIN")
iniWrite( $ini, "LPT1_0x379_in_pc_einlesen", "schleife", "1 ; 1 für Ja -- 0 für NEIN")
iniWrite( $ini, "LPT1_0x379_in_pc_einlesen", "ToolTip", "1 ; 1 für Ja -- 0 für NEIN")
iniWrite( $ini, "LPT1_0x379_in_pc_einlesen", "sleep", "10 ; 10 ms")
;iniWrite( $ini, "LPT1_0x379_in_pc_einlesen", "pfad", $pfad1)
exit
EndIf

Exit

;---------------------------

Func iniexists()

If FileExists( $wini ) then
alliniexists()
Else
MsgBox (4,"LPT1_von_pc_ausgeben","kann "& $wini & " nicht finden -- wird erstellt")
iniWrite( $wini, "LPT1_0x379_in_pc_einlesen_work", "CODE", "0 ; hier wird der aktuelle wert des portes eingefügt ")
exit
EndIf

Exit

EndFunc
;----------------------------

Func alliniexists()

$address = 0x379
$port = IniRead( $ini, "LPT1_0x379_in_pc_einlesen", "port", "2")
$zustand = IniRead( $ini, "LPT1_0x379_in_pc_einlesen", "zustand", "1")
$schleife= IniRead( $ini, "LPT1_0x379_in_pc_einlesen", "schleife", "1")
$tooltip = IniRead( $ini, "LPT1_0x379_in_pc_einlesen", "ToolTip", "0")
$sleep = IniRead( $ini, "LPT1_0x379_in_pc_einlesen", "sleep", "10")

IF $schleife = 0 Then
keineschleife()
ElseIf $schleife = 1 Then
schleife()
else
EndIf

Exit

EndFunc

;-----------------------

Func schleife()

while 1

$schleife= IniRead( $ini, "LPT1_0x379_in_pc_einlesen", "schleife", "1")
IF $schleife = 0 Then
Exit
EndIf

sleep($sleep)

$result = DllCall("inpout32.dll", "short", "Inp32", "short", $address,"short",$port,"short",$zustand)

IniWrite( $wini, "LPT1_0x379_in_pc_einlesen_work", "CODE", $result[0])

IF $tooltip = 1 Then
ToolTip($result[0],0,0)
EndIf
WEnd
EndFunc
exit

;---------------

Func keineschleife()
$result = DllCall("inpout32.dll", "short", "Inp32", "short", $address,"short",$port,"short",$zustand)
IniWrite( $wini, "LPT1_0x379_in_pc_einlesen_work", "CODE", $result[0])
IF $tooltip = 1 Then
ToolTip($result[0],0,0)
Else
EndIf
EndFunc

vivus

;funktioniert nur, wenn skript mit Auto It V3.1 in exe konvertiert wird... keiner weis warum ...
;ansonsten schwerer Ausnahmefehler

$pfad = @WorkingDir&"\"

If FileExists( $pfad&"LPT1_von_PC_ausgeben.ini") Then
iniexists()
Else
MsgBox (4,"LPT1_von_PC_ausgeben","kann "& $pfad&"LPT1_von_PC_ausgeben.ini"&" nicht finden -- wird erstellt")
iniWrite( $pfad&"LPT1_von_PC_ausgeben.ini", "LPT1_0x378_out", "port", "255 ;hier den anzusteuernden Port eintragen")
iniWrite( $pfad&"LPT1_von_PC_ausgeben.ini", "LPT1_0x378_out", "schleife", "1 ; 1 für Ja -- 0 für NEIN")

exit
EndIf

Exit

;-------------

Func iniexists()

$schleife = IniRead( $pfad&"LPT1_von_PC_ausgeben.ini", "LPT1_0x378_out", "schleife", "1")

If $schleife = 1 Then
schleife()
ElseIf $schleife = 0 Then
nur_ein_mal()
Else
MsgBox(4,"LPT1_von_PC_ausgeben","Bitte in " & $pfad&"LPT1_von_PC_ausgeben.ini "&" schleife eintragen")
Exit
EndIf

Exit

EndFunc

;---------------------

Func nur_ein_mal()

$port = IniRead($pfad&"LPT1_von_PC_ausgeben.ini", "LPT1_0x378_out", "port", "0")

DllCall("InpOut32.dll","short","Out32","short",0x378,"short",$port,"short",0)

EXIT

EndFunc

;----------------------

Func schleife()
While 1

$port = IniRead($pfad&"LPT1_von_PC_ausgeben.ini", "LPT1_0x378_out", "port", "0")

DllCall("InpOut32.dll","short","Out32","short",0x378,"short",$port,"short",0)

WEnd
EndFunc
Exit

vivus

HY @ ALL

Habe das gleiche Problem

Will einen Paralellport ansprechen.

Mit :

DllCall("InpOut32.dll","short","Out32","short",0x378,"short",1,"short",1)

;Befehl("name_der_dll.dll","rückgabe_art","Ausführbefehl","rückgabe_art",adresse_des_paralellport,"rückgabe_art",port,"rückgabe_art",zustand)

funktioniert wunder bar in V 3.1

ab 3.2 kommt ein AUTOIT FEHLER!!!

mit der üblichen Fehlerberichtsendeaufforderung an Microsoft Windows.

kann mir irgend jemand Helfen, wie den oben genanten Befehl auch unter 3.2 und höher zum laufen bekomm?

Danke im vorraus !!!

Mit freundlichen Grüßen

vivus

Beiträge von vivus

Line -1 ERROR Auto it stack overflow

dllcall

dllcall

LPT von pc ausgeben ( 8 kanäke -- 0-255 bit)

dllcall

LPT in pc einlesen ( 5 kanäle )

LPT von pc ausgeben ( 8 kanäke -- 0-255 bit)

dll call version 3.1 --> 3.2.4.x FEHLER