Scripting.Dictionary Key Begrenzung?

**Kanashius**

Ich schreibe momentan an einem Programm.
Dabei nutze ich ein Scripting.Dictionary. Mein Problem ist, dass ich als Key den Handle von Controls nehmen möchte und als Value ein Struct.
Die Hashtable hab ich schnell verworfen, da aus dem Stuct dann ein String wird.
Das Dictionary kann aber mit dem Struct ohne Probleme umgehen. Dafür ist dort das Problem, dass die Controls in meinem Programm Handles haben, die (meine Vermutung) zu groß für einen Key sind.
Vielleicht kann mich dort einer von euch erleuchten, was AutoIt mit den Datentypen dort anstellt.

Bei diesem Beispielscript tritt der Fehler bei mir nicht auf, auch wenn alle Daten gleich sind. Einziger unterschied: In dem Bespielscript sind die Handle deutlich kleiner.

AutoIt

#include <WindowsConstants.au3>


global $iWidth=800,$iHeight=600


$hGui=GUICreate("",$iWidth,$iHeight,-1,-1,BitOR($WS_SIZEBOX,$WS_MINIMIZEBOX,$WS_CAPTION,$WS_MAXIMIZEBOX))
$cButton=GUICtrlCreateButton("test",5,5)
$cListview=GUICtrlCreateListView("col",5,50,$iWidth-10,$iHeight-55)
GUISetState()


local $tagExample="INT temp;"
$tStruct=DllStructCreate($tagExample)
DllStructSetData($tStruct,"temp",4)
$controls=ObjCreate("Scripting.Dictionary")
;$controls.add(GUICtrlGetHandle($cButton),$tStruct);Error The requested action with this object has failed.
ConsoleWrite(Int(GUICtrlGetHandle($cButton))&@crlf)
$controls.add(Int(GUICtrlGetHandle($cButton)),$tStruct)
ConsoleWrite(DllStructGetData($controls(Int(GUICtrlGetHandle($cButton))),"temp")&@crlf)


while sleep(10)
	$iMsg=GUIGetMsg()
	Switch $iMsg
		Case -3
			_close()
	EndSwitch
WEnd


Func _close()
	exit
EndFunc

Alles anzeigen

Da Handle nicht als Key genommen werden können hab ich probiert daraus Int, Strings,... zu machen. Selbes Ergebnis. Im Beispielscript klappts, im anderen stürzt ab:

Code

Soll reingeschrieben werden:
String: 0x00370292
$__DG_Controls.add(String($iControl),$tLayoutElement)
Int: 2622430
$__DG_Controls.add(Int($iControl),$tLayoutElement)


We intercepted a COM Error !


err.description is: 	
err.windescription:	Ausnahmefehler aufgetreten.


err.number is: 	80020009
err.lastdllerror is: 	0
err.scriptline is: 	141
err.source is: 	
err.helpfile is: 	
err.helpcontext is: 	00x0036033A
We intercepted a COM Error !

Alles anzeigen

Ich find keine Bessere Erklärung, als dass die Variable größer ist...

(Das Dictionary möchte ich nutzen, da später über das Handle auf das Struct zugegriffen werden soll und sich der Inhalt des Dictionarys oft ändern kann.)

Ich hoffe ihr könnt mir helfen, Kanashius

**Bitnugger**

Ich nehme an, es liegt daran, weil das Handle ('0x...') als Key wegen der führenden Null als Integer interpretiert wird... und das 'x' dann in diesem Fall den Fehler generiert.

Dictionary Object

Remarks
A Dictionary object is the equivalent of a PERL associative array. Items can be any form of data, and are stored in the array. Each item is associated with a unique key. The key is used to retrieve an individual item and is usually an integer or a string, but can be anything except an array.

Frei übersetzt: Der Schlüssel wird verwendet, um ein einzelnes Element abzurufen und ist in der Regel eine Ganzzahl oder ein String, kann aber alles außer einem Array sein.

So funktioniert es...

Spoiler anzeigen

AutoIt

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_UseX64=y
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;-- TIME_STAMP   2017-01-02 05:52:02




#include <WindowsConstants.au3>
#include <AutoItConstants.au3>


Global $iWidth = 800, $iHeight = 600


$hGui = GUICreate("", $iWidth, $iHeight, -1, -1, BitOR($WS_SIZEBOX, $WS_MINIMIZEBOX, $WS_CAPTION, $WS_MAXIMIZEBOX))
$cButton = GUICtrlCreateButton("test", 5, 5)
$cListview = GUICtrlCreateListView("col", 5, 50, $iWidth - 10, $iHeight - 55)
GUISetState()


Local $tagExample = "INT temp;"
$tStruct = DllStructCreate($tagExample)
DllStructSetData($tStruct, "temp", 4)


$controls = ObjCreate("Scripting.Dictionary")


ConsoleWrite('String...............' & @CRLF)
ConsoleWrite('Handle  = ' & String(GUICtrlGetHandle($cButton)) & @CRLF)
$controls.add(String(GUICtrlGetHandle($cButton)), $tStruct)
ConsoleWrite('Ctrl-ID = ' & DllStructGetData($controls(String(GUICtrlGetHandle($cButton))), "temp") & @CRLF & @CRLF)


ConsoleWrite('Integer..............' & @CRLF)
ConsoleWrite('Handle  = ' & Int(GUICtrlGetHandle($cButton)) & @CRLF)
$controls.add(Int(GUICtrlGetHandle($cButton)), $tStruct)
ConsoleWrite('Ctrl-ID = ' & DllStructGetData($controls(Int(GUICtrlGetHandle($cButton))), "temp") & @CRLF & @CRLF)


ConsoleWrite('String...............' & @CRLF)
ConsoleWrite('Handle  = ' & '0xFFFFFFFFFFFFFFFE' & @CRLF)
$controls.add('0xFFFFFFFFFFFFFFFE', $tStruct)
ConsoleWrite('Ctrl-ID = ' & DllStructGetData($controls('0xFFFFFFFFFFFFFFFE'), "temp") & @CRLF & @CRLF)


; Max. Integer-Wert
$iInteger = Int(0x7FFFFFFF, $NUMBER_32BIT)
ConsoleWrite('Integer32............' & @CRLF)
ConsoleWrite('Handle  = 0x7FFFFFFF (' & $iInteger & ')' & @CRLF)
$controls.add($iInteger, $tStruct)
ConsoleWrite('Ctrl-ID = ' & DllStructGetData($controls($iInteger), "temp") & @CRLF & @CRLF)


; Das geht nicht...
$iInteger = Int(0x0FFFFFFFFFFFFFFE, $NUMBER_64BIT)
ConsoleWrite('Integer64............' & @CRLF)
ConsoleWrite('Handle  = 0x0FFFFFFFFFFFFFFE (' & $iInteger & ')' & @CRLF)
$controls.add($iInteger, $tStruct)
ConsoleWrite('Ctrl-ID = ' & DllStructGetData($controls($iInteger), "temp") & @CRLF)


While Sleep(10)
	$iMsg = GUIGetMsg()
	Switch $iMsg
		Case -3
			_close()
	EndSwitch
WEnd


Func _close()
	Exit
EndFunc   ;==>_close

Alles anzeigen

**Kanashius**

Das ist für mich leider nicht die Lösung, aber Danke für deine Hilfe, dadurch hab ich nochmal getestet und den Fehler gefunden...
Das Script von mir oben funktioniert ja.
Nur wenn ich das mit dem eigentlichen Script mache klappt es nicht.
Die 0x... ist ja nur die Hexadezimale Darstellung zum Lesen. In wirklichkeit versteckt sich dahinter ja ein Handle, also ein Pointer.
Bei einem 32Bit System also ein 32Bit Pointer. Wenn ich daraus einen Int mache ergab sich das Problem, dass das einfügen scheitert...

Ich hab in der Funktion vorher noch eine andere Zeile gehabt:
if $__DG_Controls(Int($iControl))<>"" then SetError(2,0,-1)
Wenn in diesem If der richtige Datentyp genutzt wurde, wurde ein Fehler geworfen. Allerdings in der Zeile des hinzufügens.
Nutzte ich beim hinzufügen einen String und hier einen Int-cast gab es keinen Fehler, aber es funktionierte natürlich nicht.
Nachdem ich daraus ein if $__DG_Controls.Exists(String($iControl)) then SetError(2,0,-1)
gemacht hatte funktionierte es.

Wobei ich mir nicht erklären kann, warum die eine Zeile mit dem richtigen Datentyp einen Fehler wirft, mit der Zeilenangabe 10 Zeilen tiefer beim hinzufügen.

Naja. Problem gelöst

**Bitnugger**

Zitat von Kanashius

Wobei ich mir nicht erklären kann, warum die eine Zeile mit dem richtigen Datentyp einen Fehler wirft

Schaue dir die Ausgabe von diesem Script an... für mich ist es offensichtlich, dass es an dem "0x" liegt.

Spoiler anzeigen

AutoIt

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_UseX64=y
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;-- TIME_STAMP   2017-01-02 14:03:43
#include <WindowsConstants.au3>
#include <AutoItConstants.au3>
Global $iWidth = 800, $iHeight = 600
$hGui = GUICreate("", $iWidth, $iHeight, -1, -1, BitOR($WS_SIZEBOX, $WS_MINIMIZEBOX, $WS_CAPTION, $WS_MAXIMIZEBOX))
$cButton = GUICtrlCreateButton("test", 5, 5)
$cListview = GUICtrlCreateListView("col", 5, 50, $iWidth - 10, $iHeight - 55)
GUISetState()
Local $tagExample = "INT temp;"
$tStruct = DllStructCreate($tagExample)
DllStructSetData($tStruct, "temp", 4)
$controls = ObjCreate("Scripting.Dictionary")
$hCtrl = GUICtrlGetHandle($cButton)
; Das geht...
ConsoleWrite('+ Hex(GUICtrlGetHandle($cButton))  = ' & Hex($hCtrl) & @CRLF)
$controls.add(Hex($hCtrl), $tStruct)
ConsoleWrite('+ Ctrl-ID = ' & DllStructGetData($controls(Hex($hCtrl)), "temp") & @CRLF)
; Das geht...
ConsoleWrite('> Int(GUICtrlGetHandle($cButton))  = ' & Int($hCtrl) & @CRLF)
$controls.add(Int($hCtrl), $tStruct)
ConsoleWrite('> Ctrl-ID = ' & DllStructGetData($controls(Int($hCtrl)), "temp") & @CRLF)
; Das geht nicht...
ConsoleWrite('! GUICtrlGetHandle($cButton)       = ' & $hCtrl & @CRLF)
$controls.add($hCtrl, $tStruct)
ConsoleWrite('! Ctrl-ID = ' & DllStructGetData($controls($hCtrl), "temp") & @CRLF)
While Sleep(10)
	$iMsg = GUIGetMsg()
	Switch $iMsg
		Case -3
			_close()
	EndSwitch
WEnd
Func _close()
	Exit
EndFunc   ;==>_close

Alles anzeigen

Ausgabe:

**Kanashius**

Ne, der Fehler den du da hast entsteht, weil ein Pointer nicht als Key genutzt werden kann.
Siehe folgends Script:

AutoIt

$hGui=GUICreate("",20,20,-100,-100)
$cButton=GUICtrlCreateButton("",5,5)
GUISetState()


$hButton=GUICtrlGetHandle($cButton)
$sHex=String($hButton)
$iHex=Int($sHex)
ConsoleWrite($hButton&"->"&$sHex&"->"&$iHex&"->0x"&Hex($iHex)&@crlf)


GUIDelete($hGui)
exit

Alles anzeigen

Die Umwandlung ist kein Problem. Es lag wirklich an dem Aufruf vorher.

**Bitnugger**

Ahhh... ja, jetzt fällt der Groschen... vielen Dank!