Konsolenproblem (SetConsoleCursorPosition)

Quote:

Originally Posted by DarkCrusade2 Guten Tag :) ich bin Neueinsteiger in AutoIT, komme von C++ und habe die wunderbare Eigenschaft von AutoIT gefunden, einfach dynamische Bibliotheken zu nutzen um die Begrenztheit mehr oder minder auszugleichen. Also wollte ich ein wenig an der Konsole rumfrickeln, funktioniert auch bisher, allerdings habe ich folgendes Problem:  Spoiler Code: func consoleSetCursorPosition($x, $y) Local $coords = DllStructCreate("INT X;INT Y") _ , $kernel = DllOpen("kernel32.dll") _ , $handle DllStructSetData($coords, "X", $x) DllStructSetData($coords, "Y", $y) $handle = DllCall($kernel, "HANDLE", "GetStdHandle", _ "DWORD", $STD_OUTPUT_HANDLE) if($handle[0] = 0) Then SetError(1, 0, -1) $result = DllCall($kernel, "BOOL", "SetConsoleCursorPosition", _ "HANDLE", $handle, _ "struct",$coords) DllClose($kernel) return BitNot(BitNot($result)) ; -> !!result EndFunc Die Methode gibt mir immer false zurück. Weiß jemand worans liegt? als Parameter habe ich einfach "struct" als Typ gewählt, da structs wie "COORD" ja nicht registriert sind. Scheint aber nicht zu funktionieren. Handle der Konsole ist gegeben. Error wird nicht gesetzt (Aufruf war erfolgreich), schreibt jedoch in die Variable [0]:0, [1]:0x000..0, Extended wird auf 6 gesetzt (GetLastError()). Doku zu SetConsoleCursorPosition: [Only registered and activated users can see links. Click Here To Register...]. Vielen Dank im Voraus :)

Quote:

If the function call fails then @error is set to non-zero. Otherwise an array is returned that contains the function return value and a copy of all the parameters (including parameters that the function may have modified when passed by reference). $return[0] = function return value $return[1] = param1 $return[2] = param2 ... $return[n] = paramn

Quote:

Originally Posted by lolkop schau doch einfach mal in die dokumentation zu DllCall: DllCall gibt immer ein array zurück (wenn der funktionsaufruf nicht fehlschlägt). fragt man ein beliebiges array als normale variable ab, so wird IMMER False (0) zurück gegeben. entsprechend kann $result bei dir nur false zurück geben.

Quote:

Originally Posted by DarkCrusade2 Die Funktion selber gibt BOOL zurück. Eine ähnliche Funktion ist MoveWindow(). Diese schreibt mir "true" in $result, wenn sie ausgeführt wurde (also setzt den Bitwert auf != 0).

Dim $array[1]=[5]
ConsoleWrite(Not $array&@CRLF)

Dim $array[1]=[5]
ConsoleWrite(Not $array[0]&@CRLF)

Func consoleSetCursorPosition($x, $y)
	Local 	$coords 	= DllStructCreate("INT X;INT Y")		_
		,	$kernel 	= DllOpen("kernel32.dll")				_
		,	$handle

	DllStructSetData($coords, "X", $x)
	DllStructSetData($coords, "Y", $y)

	$handle = DllCall($kernel, 	"HANDLE", "GetStdHandle",				_
								"DWORD", $STD_OUTPUT_HANDLE)

	if($handle[0] = 0) Then SetError(1, 0, -1)

	$result = DllCall($kernel, 	"BOOL", "SetConsoleCursorPosition", 	_
								"HANDLE", $handle, 						_
								"struct",$coords)
	If @error Then Return @error
	DllClose($kernel)
	return $result[0]
EndFunc

Quote:

Originally Posted by DarkCrusade2 Ach natürlich, habe nur ewig lange rumprobiert. Habe nicht gesehen, dass ich oben noch $result ohne Index stehen habe. Richtig hieße es natürlich $result[0]. Funktioniert trotzdem nicht. :)

Func consoleSetCursorPosition($x, $y)
	Local $coords = BitShift($y, -16) + $x, $kernel = DllOpen("kernel32.dll"), $handle, $return
	$handle = DllCall($kernel, "hwnd", "GetStdHandle", "dword", $STD_OUTPUT_HANDLE)
	If @error Then Return SetError(@error, @extended, False)
	$result = DllCall($kernel, "bool", "SetConsoleCursorPosition", "hwnd", $handle[0], "int", $coords)
	If @error Then Return SetError(@error, @extended, False)
	DllClose($kernel)
	return $result[0]<>0
EndFunc