Beiträge von Oscar

Oscar · Vor 3 Stunden

Zitat von Bitnugger

Habe es gerade getestet... es geht auch ohne Konvertierung nach int, wenn du bei type int32 nimmst:

Ja, das geht, aber dann meckert wNim, weil dort bei pos und size die INTs 64-Bits haben.

Und da ich die Funktion zum positionieren von einem wNim-Frame brauche, habe ich gleich nach INT konvertiert.

Oscar · Vor 3 Stunden

Zitat von Bitnugger

Eigentlich will ich nur wissen, ob der übergebene Parameter ein Verzeichnis oder ein File ist

Das geht auch einfacher:

Code

include winim/[inc\shellapi]

let sPath: cstring = r"d:\Temp\test"
var bDir = PathIsDirectoryA(sPath) == FILE_ATTRIBUTE_DIRECTORY
echo bDir

Oscar · Vor 4 Stunden

Zitat von Bitnugger

Jetzt noch GetMonitorInfo hinzufügen, um rcWork und dwFlags zu bekommen, dann wäre es perfekt...

Um mal auf Post#13 zurückzukommen. Das habe ich mittlerweile auch hinbekommen:

Code

include winim/[inc\winuser]

# Monitor-Objekt definieren (zum speichern der Werte)
type oMonitor = object
  hMon: HMONITOR
  monitor: RECT
  work: RECT
  flags: DWORD
  pos: (int, int)
  size: (int, int)

# Eine Sequenz (var. Array), um die Monitor-Objekte zu speichern
var aDispInfo = newSeq[oMonitor]()

# MONITORINFO-Struktur erstellen
var tMonitorInfo: MONITORINFO
tMonitorInfo.cbSize = DWORD(sizeof(MONITORINFO))

# Callback-Funktion (wird einmal pro angeschlossenen Monitor aufgerufen)
proc myEnumProc(hMonitor: HMONITOR,hDC: HDC,rect: LPRECT,lparam: LPARAM): WINBOOL {.stdcall.} =
  GetMonitorInfoA(hMonitor, tMonitorInfo.addr())
  aDispInfo.add(
    oMonitor(hMon: hMonitor,
            monitor: tMonitorInfo.rcMonitor,
            work: tMonitorInfo.rcWork,
            flags: tMonitorInfo.dwFlags,
            pos: (int(rect.left), int(rect.top)),
            size: (int(rect.right - rect.left), 
                   int(rect.bottom - rect.top))
            ))
  return TRUE

# Hiermit werden die Monitordaten geholt
EnumDisplayMonitors(0, nil, myEnumProc, 0)

# Debugausgabe von allen angeschlossenen Monitoren
for i, oDisp in aDispInfo:
  echo "Display: " & $i
  echo oDisp

Alles anzeigen

Oscar · Vor 4 Stunden

Zitat von Bitnugger

==>> rect.left = LONG

Stiimmt! LONG in C ist ja int32.

Manchmal komme ich da etwas durcheinander mit den Datentypen.

Oscar · Vor 5 Stunden

Zitat von Bitnugger

Nun, ich dachte erst, weil du ja hier pos und size als int deklariert hast...

Achso! Ja, ich hatte das vorher ohne explizit zu casten, aber dann meckerte der Compiler wegen "int" <> "int32".

EnumDisplayMonitor liefert da wohl ein "int32" zurück, "int" ist aber 64-Bit-Int.

Oscar · Vor 7 Stunden

Zitat von Bitnugger

Ganz schön tricky...

Ich verstehe jetzt nicht so ganz, was Du mir damit sagen willst!?

Oscar · Gestern, 08:18

Zitat von BugFix

Array ist hier zu unflexibel (Datentypen kann man nicht mixen), wozu gibt es Objekte?

So habe ich wenigstens gleich auch verstanden, wie man ein Array von Objekten erstellt.

Und weil ich für mein Projekt sowieso eher die Position und die Größe der Monitore brauche, habe ich das mal dahin umgestellt:

Code

include winim/[inc\winuser]

# Monitor-Objekt definieren (zum speichern der Werte)
type oMonitor = object
  hMon: HMONITOR
  pos: (int, int)
  size: (int, int)

# Eine Sequenz (var. Array), um die Monitor-Objekte zu speichern
var aDispInfo = newSeq[oMonitor]()

# Callback-Funktion (wird einmal pro angeschlossenen Monitor aufgerufen)
proc myEnumProc(hMonitor: HMONITOR,hDC: HDC,rect: LPRECT,lparam: LPARAM): WINBOOL {.stdcall.} =
  aDispInfo.add(
    oMonitor(hMon: hMonitor,
            pos: (int(rect.left), int(rect.top)),
            size: (int(rect.right - rect.left), 
                   int(rect.bottom - rect.top))
            ))
  return TRUE

# Hiermit werden die Monitordaten geholt
EnumDisplayMonitors(0, nil, myEnumProc, 0)

# Debugausgabe von allen angeschlossenen Monitoren
for i, oDisp in aDispInfo:
  echo "Display: " & $i
  echo oDisp

Alles anzeigen

Oscar · Sonntag, 15:24

Zitat von BugFix

Array ist hier zu unflexibel (Datentypen kann man nicht mixen), wozu gibt es Objekte?

Wow! Ja, so ist es natürlich noch besser!

Zitat von BugFix

Monitor 2 ist gespiegelt angeschlossen: wird nicht erkannt

Wenn Du mit "gespiegelt" dupliziert meinst, dann muss der Monitor ja auch nicht erkannt werden.

Ich denke, das ist so gewollt.

Oscar · Sonntag, 09:44

Zitat von Bitnugger

Hm, die Werte sind bei mir identisch, egal ob mit oder ohne DC.

Hmm...Du hast recht.

Irgendwie hatte ich bei meinen Tests da mal andere Werte. Ich weiß aber nicht mehr, was ich da gerade ausprobiert hatte.

Jetzt bekomme ich hier auch die gleichen Werte (egal, ob mit oder ohne DC).

Na gut, dann geht es also noch kürzer. Ich ändere mein obiges Beispiel.

Danke!

Oscar · Sonntag, 09:06

Den Desktop-DC braucht man schon, damit die Werte relativ zum primären Monitor sind.

Ansonsten kannst Du evtl. benötigte Fenster nicht auf die anderen Monitore verschieben.

Mit "hDC = 0" sind die Werte relativ zum virtuellen Desktop (immer positiv).

Ich habe mein Programm noch etwas kommentiert und das Monitor-Handle mit abgespeichert:

Code

include winim/[inc\winuser]
import strutils

# globale Variablen, um die Werte zu speichern
var
    aDispInfo: array[0..5, array[0..6, int]] # 0..5 = max. 6 Monitore
    iDispCount: int

# Callback-Funktion (wird einmal pro angeschlossenen Monitor aufgerufen)
proc MyEnumProc(hMonitor: HMONITOR,hDC: HDC,rect: LPRECT,lparam: LPARAM): WINBOOL {.stdcall.} =
    if iDispCount >= aDispInfo.len - 1: return FALSE # damit kein "out of bounds" auftritt
    aDispInfo[iDispCount][0] = hMonitor
    aDispInfo[iDispCount][1] = rect.left
    aDispInfo[iDispCount][2] = rect.top
    aDispInfo[iDispCount][3] = rect.right
    aDispInfo[iDispCount][4] = rect.bottom
    aDispInfo[iDispCount][5] = rect.right - rect.left # = width
    aDispInfo[iDispCount][6] = rect.bottom - rect.top # = height
    inc(iDispCount)
    return TRUE

iDispCount = 0
EnumDisplayMonitors(0, nil, MyEnumProc, 0)

# Debugausgabe:
for i in 0..iDispCount - 1:
    echo "Display: " & $i
    echo "Handle: 0x" & toHex(aDispInfo[i][0])
    echo "Left: " & $aDispInfo[i][1]
    echo "Top: " & $aDispInfo[i][2]
    echo "Right: " & $aDispInfo[i][3]
    echo "Bottom: " & $aDispInfo[i][4]
    echo "Resolution: " & $aDispInfo[i][5] & " x " & $aDispInfo[i][6]

Alles anzeigen

Oscar · Samstag, 14:31

Klasse! Mit dieser Vorlage habe ich die Daten auslesen können.

Ich hab's noch etwas abgeändert, so dass ich die benötigten Werte in einem Array habe:

Code

include winim/[inc\winuser]

var
  aRect: array[0..3, array[0..3, int]]
  iCount: int = 0

proc MyInfoEnumProc(hMonitor: HMONITOR,hDC: HDC,rect: LPRECT,lparam: LPARAM): WINBOOL {.stdcall.} =
  aRect[iCount][0] = rect.left
  aRect[iCount][1] = rect.top
  aRect[iCount][2] = rect.right
  aRect[iCount][3] = rect.bottom
  iCount += 1
  return TRUE

var 
  lpfnenum = MyInfoEnumProc        # callbackfunktion
  data: LPARAM
let 
  dcScreen = GetDC(0)              # DC Desktop

EnumDisplayMonitors(dcScreen, nil, lpfnenum, data)

ReleaseDC(0, dcScreen)

for i in 0..iCount - 1:
  echo "Display " & $i
  echo aRect[i][0]
  echo aRect[i][1]
  echo aRect[i][2]
  echo aRect[i][3]

Alles anzeigen

BugFix: Vielen Dank für Deine Hilfe!

Oscar · Freitag, 18:17

Was ich brauche, ist EnumDisplayMonitors. Gefunden habe ich das auch schon in winuser.nim.

Laut MSDN brauche ich:

Code

BOOL EnumDisplayMonitors(
  HDC             hdc,
  LPCRECT         lprcClip,
  MONITORENUMPROC lpfnEnum,
  LPARAM          dwData
);

Als Aufruf für alle Monitore:

Code

EnumDisplayMonitors(NULL, NULL, MyInfoEnumProc, 0);

Wobei "MyInfoEnumProc" ein Pointer auf eine Callback-Function (MONITORENUMPROC) ist.

Dort bekomme ich einen Pointer auf eine RECT-Struktur, zu jedem angeschlossenen Monitor.

Leider finde ich keinen Nim-Beispielcode dafür.

In AutoIt habe ich sowas schonmal geschrieben:

AutoIt

#include <Array.au3>
#include <WinAPIGdi.au3>

Global $aData = _CheckMonitor(), $iX = -1, $iY = -1
If @error Then Exit
_ArrayDisplay($aData, '_WinAPI_EnumDisplayMonitors')
;~ For $i = 1 To $aData[0][0]
;~     If $aData[$i][3] >= 1920 And $aData[$i][4] >= 1080 Then
;~         $iX = $aData[$i][1]
;~         $iY = $aData[$i][2]
;~         ExitLoop
;~     EndIf
;~ Next
;~ If $iX = -1 Then Exit
;~ ConsoleWrite(StringFormat('X: %i   Y: %i\n', $iX, $iY))

Func _CheckMonitor()
    Local $aPos, $aData = _WinAPI_EnumDisplayMonitors()
    If IsArray($aData) Then
        ReDim $aData[$aData[0][0] + 1][5]
        For $i = 1 To $aData[0][0]
            $aPos = _WinAPI_GetPosFromRect($aData[$i][1])
            For $j = 0 To 3
                $aData[$i][$j + 1] = $aPos[$j]
            Next
        Next
        Return SetError(0, 0, $aData)
    Else
        Return SetError(1, 0, 0)
    EndIf
EndFunc

Alles anzeigen

Kann mir jemand mit Nim behilflich sein?

Oscar · Freitag, 17:40

Da musst Du schon konkreter werden.

Was ist das für ein Gerät? Und wie kommuniziert es?

Oscar · Donnerstag, 18:28

Wie kann ich mir mit Nim die Auflösung der angeschlossenen Monitore (und deren Position) anzeigen lassen?

Mit wGetScreenSize() bekomme ich nur die Größe des Haupt-Bildschirms. Ein zusätzlicher Monitor, der sich links daneben befindet, wird mir nicht angezeigt.

Oscar · 20. Mai 2020

Ich würde die Zeile einfach von links nach rechts durchgehen. Es gibt ja "nur" zwei Zeichen (chr(34) und chr(39)), die einen String kennzeichnen.

Wenn eines der beiden Zeichen auftritt, einen Startpunkt setzen und darauf warten, dass das Zeichen ein zweites Mal auftaucht. Bis dahin ist es dann ein String.

Hier mal als AutoIt-Code:

AutoIt

$sData = FileRead(@ScriptDir & '\test.txt')
$sRet = _GetStrings($sData)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sRet = ' & $sRet & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console

Func _GetStrings($sData)
    Local Const $sStart = Chr(2), $sEnd = Chr(3)
    Local $iStart = 1, $sRet = '', $iStr = 0
    For $iIndex = 1 To StringLen($sData)
        Switch StringMid($sData, $iIndex, 1)
            Case ';'
                ; wenn ein Semikolon ausserhalb von Strings erkannt wird,
                ; dann ist es der Anfang vom Zeilenkommentar
                If $iStr == 0 Then ExitLoop
            Case Chr(39) ; Zeichen: '
                If $iStr == 1 Then ; wenn das zweite ' auftaucht
                    $sRet &= $sStart & StringMid($sData, $iStart, $iIndex - $iStart) & $sEnd
                    $iStr = 0
                    ContinueLoop
                EndIf
                If $iStr == 0 Then
                    If $iIndex + 1 <= StringLen($sData) Then
                        $iStart = $iIndex + 1
                        $iStr = 1
                    EndIf
                EndIf
            Case Chr(34) ; Zeichen: "
                If $iStr == 2 Then ; wenn das zweite " auftaucht
                    $sRet &= $sStart & StringMid($sData, $iStart, $iIndex - $iStart) & $sEnd
                    $iStr = 0
                    ContinueLoop
                EndIf
                If $iStr == 0 Then
                    If $iIndex + 1 <= StringLen($sData) Then
                        $iStart = $iIndex + 1
                        $iStr = 2
                    EndIf
                EndIf
        EndSwitch
    Next
    If $iStr <> 0 Then Return SetError(1, 0, '')
    Return $sRet
EndFunc

Alles anzeigen

Die "test.txt"-Datei enthält Deine obige Vorgabe ("fiktive Programmzeile").

Oscar · 15. Mai 2020

Zitat von mm4040

Also Gut das Programm heißt Tiny Pic und man kann ganz einfach Jpg Bilder in das Fenster von tiny Pic ziehen - dann werden sie gleich komprimiert.

Genau DAS ist mit dem XY-Problem gemeint.

Wozu überhaupt "Tiny Pic" verwenden, wenn man das Ganze mit AutoIt erledigen kann?

Was genau verstehst Du denn unter "komprimiert"?

Oscar · 15. Mai 2020

Was ist das denn für ein Fenster?

Beziehungsweise: Was willst Du erreichen?

Das hört sich sehr nach einem XY-Problem an:

Zitat

Das XY-Problem ist eher eine Frage nach Ihrem Lösungsversuch als nach Ihrem tatsächlichen Problem.

Dies führt zu einer enormen Verschwendung von Zeit und Energie, sowohl auf Seiten der um Hilfe bittenden Menschen als auch auf Seiten der Hilfeleistenden.

* Benutzer will X machen.

* Der Benutzer weiß nicht, wie man X macht, glaubt aber, dass er sich zu einer Lösung durchfummeln kann, wenn er es nur schafft, Y zu machen.

* Der Benutzer weiß auch nicht, wie er Y machen soll.

* Benutzer bittet um Hilfe bei Y.

* Andere versuchen, dem Benutzer mit Y zu helfen, sind aber verwirrt, weil Y ein seltsames Problem zu sein scheint, das sie lösen wollen.

* Nach viel Interaktion und verschwendeter Zeit wird schließlich klar, dass der Benutzer wirklich Hilfe mit X will und dass Y nicht einmal eine geeignete Lösung für X war.

Das Problem tritt auf, wenn die Leute an dem festhängen, was ihrer Meinung nach die Lösung ist, und nicht in der Lage sind, zurückzutreten und das Problem vollständig zu erklären.

Übersetzt von der Seite: "http://xyproblem.info/" mit http://www.DeepL.com/Translator (kostenlose Version)

Alles anzeigen

Oscar · 11. Mai 2020

Beim rumprobieren bin ich auf das Timer-Event gestossen und weil man kaum Beispiele dazu findet, habe ich hier mal eines erstellt.

Code

import wNim
import times

let app = App()
let frame = Frame(title="Timer Test", size=(340, 200))
let panel = Panel(frame)
panel.setBackgroundColor(0x001A1A1A)

let timeCtrl = StaticText(panel, label="00:00:00", pos=(20, 20), size=(280, 70), style=wAlignCenter)
timeCtrl.font = Font(48, faceName="Arial", weight=wFontWeightBold)
timeCtrl.setForegroundColor(0x00EEEEEE)

frame.startTimer(1.0) # starte den Timer (Zeit in Sekunden als Float)

frame.wEvent_Timer do (event: wEvent): # hier wird der Timer-Event ausgewertet
  let dt = now() # Datum/Uhrzeit holen
  timeCtrl.setLabel(dt.format("HH:mm:ss")) # und formatiert in das Text-Ctrl schreiben

frame.center()
frame.show()
app.mainLoop()

Alles anzeigen

Oscar · 9. Mai 2020

Zitat von BugFix

Ich habe das mal auf die einzelnen Schritte aufgedröselt:

Vielen Dank für die Erklärung!

Jetzt habe ich es verstanden.

Oscar · 9. Mai 2020

Erstmal: ein schönes Beispiel-Programm! Da kann man viel lernen.

Aber kannst Du mal diese Zeile genauer erklären (den roten Teil): snames.add(file.path.splitPath().tail.split('.')[0])

Ich weiß, was da passiert, aber nicht wie.

Beiträge von Oscar

[Nim] Multi-Monitor-Auswahl

[Nim] paramStr() / getFileInfo() zickt rum...

[Nim] Multi-Monitor-Auswahl

[Nim] Multi-Monitor-Auswahl

[Nim] Multi-Monitor-Auswahl

[Nim] Multi-Monitor-Auswahl

[Nim] Multi-Monitor-Auswahl

[Nim] Multi-Monitor-Auswahl

[Nim] Multi-Monitor-Auswahl

[Nim] Multi-Monitor-Auswahl

[Nim] Multi-Monitor-Auswahl

[Nim] Multi-Monitor-Auswahl

Wifi Daten auslesen

[Nim] Multi-Monitor-Auswahl

Ausbalanzierte Stringsequenzen

markierte Dateien mit der Maus bewegen ?

markierte Dateien mit der Maus bewegen ?

[Nim] Ein Timer-Event ausführen

[Nim] Bsp. Treeview mit Images

[Nim] Bsp. Treeview mit Images