Beiträge von Oscar

proc getBitmap*(self: wImageList, index: int): wBitmap {.validate, property.} =
  ## Create the bitmap from specified index.
  var
    width, height: int32
    info: IMAGEINFO
    bm: winimx.BITMAP

  # need to create new bitmap, don't just warp info.hbmImage
  if index <= self.getImageCount() and
      ImageList_GetIconSize(self.mHandle, &width, &height) != 0 and
      ImageList_GetImageInfo(self.mHandle, 0, &info) != 0 and
      GetObject(info.hbmImage, sizeof(winimx.BITMAP), &bm) != 0:

    result = Bitmap(width, height, int bm.bmBitsPixel)
    let
      hdc = CreateCompatibleDC(0)
      prev = SelectObject(hdc, result.mHandle)

    defer:
      SelectObject(hdc, prev)
      DeleteDC(hdc)

    discard ImageList_Draw(self.mHandle, index, hdc, 0, 0, 0)

import winim/lean

proc FileIconInit(restoreCache: WINBOOL): WINBOOL {.discardable.} =
  type fii = proc(fRestoreCache: WINBOOL): WINBOOL {.gcsafe, stdcall.}
  let
    shell32 = LoadLibrary("shell32.dll")
    pAddr = GetProcAddress(shell32, cast[LPCSTR](660))
  if IsBadCodePtr(pAddr):
    return FALSE
  else:
    let procFii = cast[fii](pAddr)
    return procFii(restoreCache)

echo "FileIconInit: ", FileIconInit(TRUE)

import wNim, os, strutils, winim

var 
  hAppIml = ImageList(32, 32)
  hSystemIml: HIMAGELIST

# System-ImageList holen (Big oder Small Icons)
Shell_GetImageLists(hSystemIml.addr, NULL) # Big Icons (32 x 32)
# Shell_GetImageLists(NULL, hSystemIml.addr) # Small Icons (16 x 16)

# Um nicht die Original System-ImageList zu veraendern, ein Duplikat erstellen
hAppIml.mHandle = ImageList_Duplicate(hSystemIml)
let upIdx = hAppIml.add(Icon("shell32.dll,307")) # "Pfeil nach oben"-Icon einfuegen

# Gibt einen String zurueck mit vier wichtigen Dateiattributen oder "----"
proc getFileAttrStr(path: string): string =
  let
    sFile = newWideCString(path)
    pFile = cast[LPCWSTR](sFile[0].addr)
  let iAttr = GetFileAttributesW(pFile)
  result.add(if iAttr and 0x00000001'i32: 'r' else: '-') # r = readonly
  result.add(if iAttr and 0x00000020'i32: 'a' else: '-') # a = archive
  result.add(if iAttr and 0x00000004'i32: 's' else: '-') # s = system
  result.add(if iAttr and 0x00000002'i32: 'h' else: '-') # h = hidden

# Holt den Icon-Index aus der System-ImageList
proc getSystemIconIndex(path: string): int =
  let
    sFile = newWideCString(path)
    pFile = cast[LPCWSTR](sFile[0].addr)
  var shfi: SHFILEINFOW
  if SHGetFileInfoW(pFile, 0x00000080'i32, shfi.addr, UINT sizeof(shfi), 
      SHGFI_SYSICONINDEX) != 0: result = shfi.iIcon

# Erstellt im Listview die Items fuer die Verzeichnisse/Dateien.
# Fuer die Dateiendungen kann ein Filter uebergeben werden. Dazu werden
# einfach die erlaubten Dateiendungen als String uebergeben.
# Zum Beispiel: readFolder(list, "c:\", "exe", "au3", "mp3", "pdf", ...)
# Beim uebergeben von einem Leerstring werden alle Dateien angezeigt. 
proc readFolder(list: wListCtrl, sDir: string, sFileExt: varargs[string]) =
  var sFolder: string = sDir
  sFolder.normalizePathEnd(true) # sicherstellen, dass ein Backslash am Ende steht
  SendMessage(list.getHandle, WM_SETREDRAW, FALSE, 0) # Listview-Refresh verbieten
  list.deleteAllItems() # alle Eintraege aus dem Listview entfernen
  if not sFolder.isRootDir(): # wenn nicht RootDir, dann "Pfeil nach oben" einfuegen
    list.appendItem(["..", "", "<DIR>", ""], image = upIdx)
  for path in walkDirs(sFolder & "*"): # zuerst alle Verzeichnisse einlesen
    list.appendItem( # und ins Listview einfuegen
      [lastPathPart(path), "", "<DIR>", getFileAttrStr(path)],
      image = getSystemIconIndex(path)
      )
  for kind, path in walkDir(sFolder): # danach die Dateien
    if kind == pcFile:
      for extension in sFileExt: # anhand des Dateiendungs-Filter
        if path.toLower.endsWith(extension.toLower): # nur die erlaubten Endungen zulassen
          var (dir, name, ext) = path.splitFile
          list.appendItem( # und ins Listview einfuegen
            [name, ext.substr(1), insertSep($getFileSize(path), '.'), getFileAttrStr(path)],
            image = getSystemIconIndex(path)
            )
  SendMessage(list.getHandle, WM_SETREDRAW, TRUE, 0) # Listview-Refresh wieder erlauben


let app = App()
let frame = Frame(title="System-ImageList", size=(900, 800))
let panel = Panel(frame)
let idListview = ListCtrl(panel, style=wLcReport or wBorderSimple, pos=(10, 10), size=(862, 700))
idListview.font = Font(14, faceName="Arial", weight=wFontWeightNormal)
idListview.appendColumn("Dateiname", width=470, format=wListFormatLeft)
idListview.appendColumn("Ext", width=90, format=wListFormatRight)
idListview.appendColumn("Größe", width=180, format=wListFormatRight)
idListview.appendColumn("Attr.", width=90, format=wListFormatRight)
idListview.setBackgroundColor(0x00EEEEEE)
idListview.setImageList(hAppIml)

let sAllowedExt = @["exe", "au3", "mp3", "pdf"] # eine Sequenz mit Strings geht auch
idListview.readFolder(r"d:\downloads", sAllowedExt)
# idListview.readFolder(r"d:\downloads", "") # Leerstring = alle Dateien anzeigen
frame.center()
frame.show()
app.mainLoop()

import wNim

let app = App()
let frame = Frame(title="ListviewSort", size=(640, 480))
let panel = Panel(frame)

let idPlaylist = ListCtrl(panel, style=wLcReport or wBorderSimple, pos=(10, 10), size=(600, 400))
idPlaylist.font = Font(14, faceName="Arial", weight=wFontWeightNormal)
idPlaylist.setBackgroundColor(0x00DDDDDD)
idPlaylist.appendColumn("Interpret", width=200)
idPlaylist.appendColumn("Titel", width=200, format=wListFormatLeft)
idPlaylist.appendColumn("Laufzeit", width=110, format=wListFormatRight)

# Ein paar Beispieldaten in das Listview eintragen
idPlaylist.appendItem(["ZZ Down", "Gimme All", "03:53"])
idPlaylist.appendItem(["Johnson Twins", "Bla bla", "04:16"])
idPlaylist.appendItem(["Kniff Richard", "Yeah", "05:11"])
idPlaylist.appendItem(["Roller Stones", "Gimme Shelter", "04:03"])
idPlaylist.appendItem(["Ralph a Ville", "Moin", "03:46"])

let hImgList = ImageList(16, 16) # Imagelist erstellen
hImgList.add(Icon("shell32.dll,246")) # up-Icon
hImgList.add(Icon("shell32.dll,247")) # down-Icon
idPlaylist.setImageList(hImgList) # die Imagelist dem Listview zuordnen

var
  iSortCol, iOldCol: int = -1
  bSortDir: bool = false

# Callback-Funktion zum sortieren der Eintraege
proc sortCmp(item1: int; item2: int; data: int): int =
  result = cmp(idPlaylist.getItemText(item1, iSortCol), idPlaylist.getItemText(item2, iSortCol))
  if bSortDir: result *= -1

# Beim Klick auf ein Spalten-Header
idPlaylist.wEvent_ListColClick do (event: wEvent):
  iSortCol = event.getColumn() # die Spalte ermitteln
  if iSortCol == iOldCol: # wenn die gleiche Spalte wie vorher
    bSortDir = not bSortDir # dann Sortier-Richtung umdrehen
  else: # ansonsten
    bSortDir = false # Sortier-Richtung auf aufsteigend setzen
    idPlaylist.setColumnImage(iOldCol, -1) # und das vorherige Sortier-Image entfernen
  iOldCol = iSortCol # die Spalte merken
  idPlaylist.setColumnImage(iSortCol, if bSortDir: 1 else: 0) # Sortier-Image entsprechend der Richtung setzen
  idPlaylist.sortItemsByIndex(sortCmp) # und das Listview sortieren (Callback fuer den Vergleich)

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

import wNim, winim, os

let app = App()
let frame = Frame(title="Drag and Drop Test", size=(1000, 630), style=wDefaultFrameStyle or wStayOnTop)
let panel = Panel(frame)
panel.setBackgroundColor(0x00A0A0A0)

let idPlaylist = ListCtrl(panel, style=wLcReport or wBorderSimple, pos=(10, 10), size=(960, 530))
idPlaylist.font = Font(14, faceName="Arial", weight=wFontWeightNormal)
idPlaylist.setBackgroundColor(0x00202020)
idPlaylist.setForegroundColor(0x00EEEEEE)
idPlaylist.appendColumn("File", width=700)
idPlaylist.appendColumn("Size", width=220, format=wListFormatRight)
idPlaylist.setDropTarget() # <- damit man Dateien vom Explorer auf die Playlist ziehen kann

# Die Farbe der Einfuege-Markierung aendern
SendMessage(idPlaylist.getHandle, LVM_SETINSERTMARKCOLOR, 0, cast[LPARAM](0x00EE8844))

# Globale Variablen fuer das Drag and Drop innerhalb der Playlist
var
  bDrag: bool = false
  oldPos: wPoint
  iDragStart, iDragEnd: int
  tItem: tuple[index, col, flag: int]
  lvMark: LVINSERTMARK # Struktur: cbSize, dwFlags, iItem, dwReserved
  plvMark: LPLVINSERTMARK = lvMark.addr

lvMark.cbSize = UINT(sizeof(lvMark)) # die Groesse in die Struktur eintragen

# Drag and Drop beginnt (Item wurde mit der linken Maustaste gezogen)
idPlaylist.wEvent_ListBeginDrag do (event: wEvent):
  bDrag = true
  tItem[0] = -1
  iDragStart = event.getIndex()
  idPlaylist.setItemState(iDragStart, 0, LVIS_SELECTED or LVIS_FOCUSED, false)

# Waehrend des Drag-Vorgangs die Einfuege-Markierung anpassen
idPlaylist.wEvent_MouseMove do (event: wEvent):
  if bDrag:
    let pos = event.getMousePos() # Mausposition (Client-Koordinaten)
    if pos.y > oldPos.y + 2: lvMark.dwFlags = LVIM_AFTER # Markierung unter dem Item
    if pos.y < oldPos.y - 2: lvMark.dwFlags = 0          # Markierung ueber dem Item
    oldPos = pos
    tItem = idPlaylist.hitTest(pos) # tItem = tuple(index, col, flag)
    lvMark.iItem = int32(tItem[0])
    ListView_SetInsertMark(idPlaylist.getHandle, plvMark) # Einfuege-Markierung anzeigen

# Drag and Drop beendet (Maustaste losgelassen)
idPlaylist.wEvent_LeftUp do (event: wEvent):
  if bDrag:
    bDrag = false
    iDragEnd = tItem[0] # momentanen Index als EndIndex setzen
    if lvMark.dwFlags == LVIM_AFTER: iDragEnd += 1 # wenn Markierung unterhalb, dann 1 addieren
    lvMark.iItem = int32(-1)
    ListView_SetInsertMark(idPlaylist.getHandle, plvMark) # Einfuege-Markierung verstecken
    if iDragEnd != -1 and iDragStart != iDragEnd:
      let iCol = getColumnCount(idPlaylist) # Anzahl der Spalten ermitteln
      var sDragItemText: seq[string]
      for i in 0..iCol - 1: # den gezogenen Eintrag auslesen (alle Spalten)
        sDragItemText.add(idPlaylist.getItemText(iDragStart, i))
      if iDragStart < iDragEnd: # wenn StartIndex kleiner als EndIndex (nach unten gezogen)
        idPlaylist.insertItem(iDragEnd, sDragItemText) # dann erst einfuegen
        idPlaylist.deleteItem(iDragStart) # und danach loeschen
      else:                     # wenn StartIndex groesser als EndIndex (nach oben gezogen)
        idPlaylist.deleteItem(iDragStart) # dann erst loeschen
        idPlaylist.insertItem(iDragEnd, sDragItemText) # und danach einfuegen

# Die beiden folgenden Events bearbeiten das Drag and Drop von Dateien
# vom Explorer auf die Playlist.

# Wenn die Maus den Bereich der Playlist erreicht (Files dragged)
idPlaylist.wEvent_DragEnter do (event: wEvent):
  var dataObject = event.getDataObject()
  if dataObject.isFiles():
    event.setEffect(wDragCopy)
  else:
    event.setEffect(wDragNone)

# Wenn die linke Maustaste ueber der Playlist losgelassen wird (Files dropped)
idPlaylist.wEvent_Drop do (event: wEvent):
  var
    oData = event.getDataObject()
  if oData.isFiles():
    for file in oData.getFiles():
      let size = getFileSize(file)
      idPlaylist.appendItem([file, $size])
  else:
    event.setEffect(wDragNone)

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

import parsecfg, os, strutils, tables

proc getSectionValueOrDefault*(dict: Config, section, key: string, default: string = ""): string =
  result = default
  if dict.hasKey(section):
    if dict[section].hasKey(key): result = dict[section][key]

# Einen Anwendungsordner im ConfigDir erstellen
# Bei Windows: getConfigDir() = "c:\Users\<user>\AppData\Roaming\"
let appDir = getConfigDir() & "test\\"
if not existsDir(appDir): createDir(appDir) # wenn er nicht existiert, anlegen
let iniFile = appDir & "test.ini" # die Inidatei mit Pfad

var 
  dict: Config
  test: int
try: # versuchen, die Inidatei zu laden
  dict = loadConfig(iniFile)
except IOError: # wenn nicht vorhanden
  echo "Inidatei nicht vorhanden! Erstelle neue Konfiguration."
  dict = newConfig()

test = parseInt(getSectionValueOrDefault(dict, "config", "test", "10")) # Defaultwert = 10
echo test
test = 25 # vor dem speichern den Wert aendern
dict.setSectionKey("config", "test", $test)
dict.writeConfig(iniFile)

import parsecfg, strutils, tables

proc getSectionValueOrDefault*(dict: Config, section, key: string, default: string): string =
  result = default
  if dict.hasKey(section):
    if dict[section].hasKey(key): result = dict[section][key]

proc getSectionValueOrDefault*(dict: Config, section, key: string): string =
  result = getSectionValueOrDefault(dict, section, key, "")

proc getSectionValueOrDefault*(dict: Config, section, key: string, default: int): int =
  result = parseInt(getSectionValueOrDefault(dict, section, key, $default))

proc getSectionValueOrDefault*(dict: Config, section, key: string, default: float): float =
  result = parseFloat(getSectionValueOrDefault(dict, section, key, $default))

proc getSectionValueOrDefault*(dict: Config, section, key: string, default: bool): bool =
  result = getSectionValueOrDefault(dict, section, key, $default) == "true"

var 
  dict = newConfig()
  test0: string
  test1: string
  test2: int
  test3: float
  test4: bool

test0 = getSectionValueOrDefault(dict, "config", "test0")        # ohne Defaultwert ist die Rueckgabe ein Leerstring
test1 = getSectionValueOrDefault(dict, "config", "test1", "35")  # Defaultwert = 35 als String
test2 = getSectionValueOrDefault(dict, "config", "test2", 10)    # Defaultwert = 10 als Int
test3 = getSectionValueOrDefault(dict, "config", "test3", 3.14)  # Defaultwert = 3.14 als Float
test4 = getSectionValueOrDefault(dict, "config", "test4", false) # Defaultwert = false als Bool

echo "'", test0, "'", " -> ", test0.typeof()
echo test1, " -> ", test1.typeof()
echo test2, " -> ", test2.typeof()
echo test3, " -> ", test3.typeof()
echo test4, " -> ", test4.typeof()

import os
import wNim

proc CurrentDir(): string =
  result = getAppFilename().splitPath().head


let 
  icon = Icon(CurrentDir().joinPath("exit.ico"), size=(32,32))
  bmp = Bitmap(icon)
  app = App()
  frame = Frame(title="Test Icon-Button", size=(300,200))
  panel = frame.Panel()
  btExit = panel.StaticBitmap(pos=(20,20), size=(32,32), bitmap=bmp)

btExit.wEvent_CommandLeftClick do (): frame.delete()

frame.wIdExit do (): frame.delete()

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

import ooMPEG, wNim

echo "Unterstuetzte Frames (", aID3v2Frames.len, "): ", aID3v2Frames

let mpeg = MPEGinfo() # MPEGinfo-Objekt erstellen

# Mit "readInfo" wird die uebergebene MPEG-Datei eingelesen und analysiert.
# Die Daten befinden sich dann im Objekt und koennen benutzt werden.
# Parameter: Dateiname, gewuenschte ID3-Version, Trennzeichen
# Die Trennzeichen dienen dazu, Interpret und Titel auch dann zu ermitteln,
# wenn *keine* ID3-Daten gespeichert sind.
# Dabei wird versucht, die Daten anhand des Dateinamens zu ermitteln.
# Der Dateiname muss dieses Format aufweisen: <Interpret><Trennzeichen><Titel>
mpeg.readInfo("Status Quo - Whatever You Want.mp3", 2, " - ")

echo "MPEG-Version: ", mpeg.Version
echo "MPEG-Layer:   ", mpeg.Layer
echo "MPEG-Methode: ", mpeg.CompMethod
echo "MPEG-Bitrate: ", mpeg.Bitrate, " kBit/s"
echo "Samplingfreq: ", mpeg.Samplingrate, " kHz"
echo "Dateigroesse: ", mpeg.Filesize, " Bytes"
echo "Musikgroesse: ", mpeg.Datasize, " Bytes"
echo "ID3-Version:  ", mpeg.ID3version
echo "ID3-Frames:   ", mpeg.getID3frames
echo "Encoded by:   ", mpeg.getID3value("TENC")
echo "Interpret:    ", mpeg.getID3value("TPE1")
echo "Titel:        ", mpeg.getID3value("TIT2")
echo "Album:        ", mpeg.getID3value("TALB")
echo "Track:        ", mpeg.getID3value("TRCK")
echo "Jahr:         ", mpeg.getID3value("TYER")
echo "Genre:        ", mpeg.getID3value("TCON")
echo "Laufzeit:     ", mpeg.Duration, " Millisekunden"
echo "Laufzeit:     ", mpeg.DurationString, " (mm:ss)"
echo "Bilderanzahl: ", mpeg.ApicCount
let apic1 = mpeg.getID3data("APIC1") # Binaerdaten des Bildes holen

# Zum testen, ob das APIC-Bild korrekt ausgelesen wird
let app = App()
let frame = Frame(title="Test", size=(640, 480))
let panel = Panel(frame)
let idPic = StaticBitmap(panel, size=(260, 260), pos=(10, 10), style=wSbCenter)
idPic.setBackgroundColor(0x004A1A1A)
let idInterpret = StaticText(panel, label=mpeg.getID3value("TPE1"), size=(360, 60), pos=(280, 30))
idInterpret.font = Font(14, faceName="Arial", weight=wFontWeightNormal)
let idTitle = StaticText(panel, label=mpeg.getID3value("TIT2"), size=(360, 60), pos=(280, 60))
idTitle.font = Font(14, faceName="Arial", weight=wFontWeightNormal)
if apic1.len > 0:
  let myImage = Image(apic1) # die Binaerdaten in ein Image umwandeln
  var sw, sh: int = 240 # Zielgroesse 240x240 px
  let h = myImage.height # momentane hoehe
  let w = myImage.width # und breite
  if h > w: sw = 240 - (h - 240) # wenn hoehe groesser, dann die breite anpassen
  if h < w: sh = 240 - (w - 240) # wenn breite groesser, dann die hoehe anpassen
  let scaleImage = myImage.scale(sw, sh) # Image skalieren (legt eine Kopie an)
  idPic.bitmap = Bitmap(scaleImage) # und dem Bitmap-Control zuweisen

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

char buf[64];

void TicksToTime(uint32_t ticks) {
  uint16_t h, m, s;
  s = (ticks / 1000);
  h = (s / 3600);
  s = (s % 3600);
  m = (s / 60);
  s = (s % 60);
  sprintf(buf, "Time = %02d:%02d:%02d ", h, m, s);
}

void setup() {
  Serial.begin(115200);
  pinMode(LED_BUILTIN, OUTPUT);
  digitalWrite(LED_BUILTIN, LOW);
}

void loop() {
  if (Serial.available()) {
    String s = Serial.readString();
    digitalWrite(LED_BUILTIN, HIGH);
    TicksToTime(millis());
    Serial.print(buf);
    Serial.println(s);
    Serial.flush();
    delay(1000);
    digitalWrite(LED_BUILTIN, LOW);
  }
}

include winim/[inc\winbase]

type
  SerialComm* = ref object of RootObj
    hPort: HANDLE
    cto: COMMTIMEOUTS
    dcb: DCB

method SetTimeOut*(this: SerialComm, ms: int): bool {.discardable, base.} =
  if this.hPort <= 0: return false
  this.cto.ReadIntervalTimeout = DWORD ms
  this.cto.ReadTotalTimeoutMultiplier = 10
  this.cto.WriteTotalTimeoutMultiplier = 10
  this.cto.ReadTotalTimeoutConstant = DWORD ms
  this.cto.WriteTotalTimeoutConstant = DWORD ms
  return SetCommTimeouts(this.hPort, this.cto.addr) == TRUE

method SetState*(this: SerialComm, bdRate: int = CBR_9600): bool {.discardable, base.} =
  this.dcb.DCBlength = DWORD sizeof(DCB)
  this.dcb.fBinary = TRUE
  this.dcb.fParity = FALSE
  this.dcb.fOutxCtsFlow = FALSE
  this.dcb.fOutxDsrFlow = FALSE
  this.dcb.fDtrControl = DTR_CONTROL_DISABLE
  this.dcb.fDsrSensitivity = FALSE
  this.dcb.fNull = FALSE
  this.dcb.fOutX = FALSE
  this.dcb.fInX = FALSE
  this.dcb.fRtsControl = RTS_CONTROL_DISABLE
  this.dcb.fAbortOnError = TRUE
  this.dcb.BaudRate = DWORD bdRate
  this.dcb.ByteSize = 8
  this.dcb.Parity = NOPARITY
  this.dcb.StopBits = ONESTOPBIT
  result = SetCommState(this.hPort, this.dcb.addr) == TRUE

method Tx*(this: SerialComm, data: cstring): bool {.discardable, base.} =
  if this.hPort <= 0: return false
  var
    sData: cstring = data
    dummy: DWORD
  WriteFile(this.hPort, sData, DWORD sData.len + 1, dummy.addr, NULL)
  FlushFileBuffers(this.hPort)
  return true

method Rx*(this: SerialComm): string {.base.} =
  if this.hPort <= 0: return ""
  var
    buffer: array[128, char]
    length: DWORD
  ReadFile(this.hPort, buffer.addr, 128, length.addr, NULL)
  if length == 0: return ""
  for i in 0..length-1: 
    case buffer[i] 
    of chr(0), chr(10), chr(13): break
    else: result.add(buffer[i])

method OpenPort*(this: SerialComm, port: string, bdRate: int = 9600, tmMillis: int = 50): bool {.discardable, base.} =
  if port == "": return false
  var sPort: string
  if port[0..3] != "\\\\.\\": sPort = "\\\\.\\" & port else: sPort = port
  let sFile = newWideCString(sPort)
  let pFile = cast[LPCWSTR](sFile[0].addr)
  this.hPort = CreateFile(pFile, GENERIC_READ or GENERIC_WRITE, 0, NULL, OPEN_EXISTING, 0, 0)
  if this.hPort <= 0: return false
  # PurgeComm discards all characters from the output or input buffer of a specified communications resource.
  # It can also terminate pending read or write operations on the resource.
  PurgeComm(this.hPort, PURGE_TXABORT or PURGE_RXABORT or PURGE_TXCLEAR or PURGE_RXCLEAR)
  this.SetState(bdRate)
  this.SetTimeOut(tmMillis)
  return true

method ClosePort*(this: SerialComm): bool {.discardable, base.} =
  if this.hPort <= 0: return false
  CloseHandle(this.hPort)
  this.hPort = -1
  return true

#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <SendMessage.au3>
#include <StaticConstants.au3>
#include <WinAPIHObj.au3>
#include <WinAPIInternals.au3>

_GDIPlus_Startup()
Global $iSize = 32, $hResize, $hRed, $hGreen

$hRed = _GDIPlus_BitmapCreateFromMemory(_redpng()) ; GDI+ Bitmap erstellen von Base64-Daten
$hResize = _GDIPlus_ImageResize($hRed, $iSize, $iSize) ; auf gewuenschte Groesse skalieren ($hResize ist eine Kopie)
_GDIPlus_BitmapDispose($hRed) ; $hRed kann weg
$hRed = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hResize) ; $hResize von GDI+ nach GDI-Bitmap wandeln
_GDIPlus_BitmapDispose($hResize) ; jetzt kann auch $hResize weg

$hGreen = _GDIPlus_BitmapCreateFromMemory(_greenpng())
$hResize = _GDIPlus_ImageResize($hGreen, $iSize, $iSize)
_GDIPlus_BitmapDispose($hGreen)
$hGreen =  _GDIPlus_BitmapCreateHBITMAPFromBitmap($hResize)
_GDIPlus_BitmapDispose($hResize)

_GDIPlus_Shutdown()

Global $hGui = GUICreate('Test', 240, 240)
Global $idPic1 = GUICtrlCreatePic('', 10, 10, $iSize, $iSize)
Global $idPic2 = GUICtrlCreatePic('', 10, 20 + $iSize, $iSize, $iSize)

GUISetState()

_SetImage($idPic1, $hRed)
_SetImage($idPic2, $hGreen)
Sleep(2000)
_SetImage($idPic1, $hGreen)
_SetImage($idPic2, $hRed)
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
_WinAPI_DeleteObject($hRed)
_WinAPI_DeleteObject($hGreen)

Func _SetImage(ByRef $idCtrl, ByRef $hImg)
    Local $hCtrl, $hPrevImage
    $hCtrl = GUICtrlGetHandle($idCtrl)
    $hPrevImage = _SendMessage($hCtrl, $STM_SETIMAGE, $IMAGE_BITMAP, $hImg)
    If $hPrevImage Then _WinAPI_DeleteObject($hPrevImage)
EndFunc

;Code below was generated by: 'File to Base64 String' Code Generator v1.20 Build 2015-09-19
Func _greenpng($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $greenpng
    $greenpng &= 'iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAACXBIWXMAAC4jAAAuIwF4pT92AAAFpklEQVRYw7WXTWxc1RXHf+fOvJnxJHUcj2KIrBaIIqjrNLgBB+erUlVVLSzamEqgqs0CVdmkFSsE7LrpJotKFRuEKG0jtYvQKPGmKeJDISQYAqRxI0IJTsa0jZPx2DMD8/W+3+lirqPBIaqT2ufpaUaaee//cc6591xRVZYTmUxmw4FnD+yiwN5UmNreL/1fE5FUkARx+VpZLjcv/+dy7fLZhQsLE82LzVNRFJWW815ZDoGXDr/0Wm+2d0/cFzvvtt41p9ecpnFvAzZAQkIwH+D/w8eb8kidSyV3l+8OWqb13sUTF7+vqt5tEzjw3IEnH9n0yG/ntszJK3e9QlGLhBqCgqKEGhIT4+JSi2u46mIw9JgezGkDPyEJR8Nftf/a/vUtE3jx2Ivv9w30bTux44Q5wxkCAnrpZY/sYUzGMBjmmadOnRmdYVIn+TT+lGbSJIgDFEVESP08lcjH8nF4LtyiXwJ2A4GDvz+YH8wNfu6OuunDmw8zq7MMyiCPyWPcyZ00aHCFK1zlKhUqzDGHj0+GDJ56lLREKS7RjtpopCAgx4XcEzn17vcGkslkoRsvvZTRxtzG6uwPZ9MT+Ql89RmXccZkDB+fN3mTC1ygQoUmTRZYoE0bB4cBBnDEQUQoSAEMtKWNBor+QPEWPMkVcmXA3JTAC0dfOMW3yE7kJ4iI2Gf2McQQU0zxFm8xwwxXuYqP36kBQhTFs5cgODisl/X0ml40o7jqdkj4ivc7T5wR53w4FW5dxLzOZueTO58gy45D9x2ipjUeN48zxBBv8AZHOcokkxQp0qCBj09AJ8/QKciAAB+fFi3mmKMudfImT0+2B3EEEtCHleieaFi+K09fV62qqCoHf3Mw3NHaof1hv+5N9uoRPaJP6VM6oiO6VteqqCi3cImK5jWvhaSgTugodZR5lBpKmhhIq2rHgf3P7P/L9O7p9Iwzwx1yB7tlN+c5z0lOcolLtGhdV7vcUBQXl7rUiVIRZKzfAfAyhq/yNwAjItKnfT9+54F3iDRixIzg4fE2b/MJn9wWeDeJkBAV7VSbAyTAHqDKt0VkvRm6f2i0ua4ZV+Mqa2UtW2UrRYpc4Qou7m2D3xDGElh0YYQ0A+w05ptm/GR4Ml2NqxhjqGiFS1ziGtcICVnRSNm+i4FRDHcxbgo9hV2VTRVQWCNrmJZpypTx8FZOPYBY9WlAgS1Ak1GTa+Xu1WElK1kKFKhTZ575lVffTQLgG0CJe9K1f9X6g6EAFEJCGjRo015Z9UtJKLARUFLp2ZnZtJd0dsySdrbwhIRVC7WdABCQNpWeSik4FxAkAaWkREtbq6debQEq8G+gB9f46/yLOqVorLSTNhWtrE7+F8FD+/kRMEDR4HCKc50/aNQZMlbFgUUCgf3+IZDnjOEsE7xPhHSx01XKewB4thA/IKbIMVFVxEhCFSGhs2b32HaRFSKQAD7wOVAHcsB9BHhs6HTlRv7MH63zQZdNukLqI8AF2lbUq0A/r6tq/fpIJuvE5Sw5ertccOwD8n/mvW3Vu3Y5/jqJhpr6wkDCQ+zjp8QYa5dra+J2nVgEd4FGF/h+Ysb45Q0Tkb6qR4h5nT9YxS7QsmSSWyCxWHChVV637xHgOFDmAz2lz990KpZeqXOcr7DZKnBsOrJWgelaUrtBl/a6BzStkEVB2wnV18zSXfqL0WA9D9PkT/ZXz6qoW0W+Lap4yd0N+hlQtcpTVvlDBGymb9kHE9kmr5HlOxwiRdaCpKwjGbutyhLLfUsisuSNzXmN9/S87rzZnPLlqfy7fo8sP2MbAYdRcpZE06orA3Ndd8UWW2z7fBIYJiHmFzcDX/bhVAblZeZ4lGGUB0kzbPfzTdaBGbu2/9OucB+iDHBcZ/VHK3I6BhARhzzbGWIcn12U2UyVPjJE5GkxQJEck0xzjAZn/tep'
    $greenpng &= 'eDH+C03pDPEhJjFDAAAAAElFTkSuQmCC'
    Local $bString = _WinAPI_Base64Decode($greenpng)
    If @error Then Return SetError(1, 0, 0)
    $bString = Binary($bString)
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\green.png", 18)
        If @error Then Return SetError(2, 0, $bString)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_greenpng

Func _redpng($bSaveBinary = False, $sSavePath = @ScriptDir)
    Local $redpng
    $redpng &= 'iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAACXBIWXMAAC4jAAAuIwF4pT92AAAFn0lEQVRYw7WXS2yc1RXHf+fOfDPjSeo4HsUQWeURRVDXIbgBp3kiVVXFYwExlUAVZIFQNgGxQsCum26yqFSxQQhoG6ldhEaJN3URD4WQYAgQYiJCCSY2bWMynng8MJ6Z7/2dLr470WCIMME50tWd0cz3/f//87jnXFFVlmK5XG7NM3v3bi/BrjCT2Sy9vdeJSCYJgvhCpSKNc+f+Vzt37uSZubnRs43GsSiKykt5ryyFwIGXXnot3929syeOnea775oVx49z08ICawCShItBwEe+z4TncSqTSSo33BCYZvO9I2fP3qmq3hUTeHbv3ifW3XPPnzbMzsr1r7yCTk2hYYgCqKJhCHEMrktcq6GuC8Zguro4bgy/g2Q4DH//z1brDz+YwOEXXni/r6dn09YjRwwnTkAQQHc3snMnsmULGAMXL0K9jk5Po+PjxF98QdJoEAcBqCIiPJrJJJ+KfHoqDDfod4B9i8Cf9+0rFvr7vx523ez6AwfQmRmkvx954AG49lpYWIDz5+HLL6FahdlZ8H3I5VDPQ8tl4nKZqNUiUkWAMREeKRT0Vs/rG0+SuU687GJGhbVr5++dmckWR0dR30dGRlLFvg9vvglnzqTAjQbMzUGrBY4DfX2I4yAiSKmEAaTVIlDlLlXmPE9KhUIFMJclcOj554/9AvLF0VGIIszu3TAwABMT8NZbMD2dKvd9UIUwTHfPS5cIOA6yejWmu5ucKuq6BKr4qrzoeTLkOKcnwnBjG/MSmye2bXskD1tv3r8frdUwDz6Ygr/xBhw6BOPjMDWVhsD305xoh081/e770GzC7CxSr2OKRfJdXTgiJMDdqtwYRYO/FnnqkmpVRVX54759YXPrVg17ezXZtUv14EHVJ59UHRpSXblSVUQ1hVraElEtFjUplTR0HK2DXgStgWYhBrKqmnrg6T17/rFjcjLrTE8j11yD7NgBp0/D0aPw+eepqiUeWB3KwHWRep1MFJGz7g6Al8H8FP4FYEREtKfnt7e98w4aRZihoTSeb78Nn312ZeCdJMIQUSULOEAC7ATm4Q4RWW1uHRgYXtVoxPH8PLJyJbJxYxrr8+fBda8cfJEZS6DthSHI9sE2c4sxI+HRo9l4fh5jDFqtpm6/cCHN8mW0jC27GBgGcz2MmK5Safu6ahUFZMUKZHISKpU0DMukHkCs+iygwAagAcOmWSjcNKiK5PNQKkG9nh6xy6y+kwTAz4Ey3Jj9T63WOxAEaYMJw7TOW61lVb+YhAJr0z2TnZ6ZySZe2jG1bFt4knC1TG0lkCZj1nRVq+VTQUASBCTlMvpjym4J4LHd/wt0gWtW+f7ZCVViVZJWK62CqxD/Nnho90+APpgyDhw7Zf8QtYeMq+CBNoHAfv4YKMIJcxJG34dIOtjpVYp7AHg2ET+AeAoOi6piRJJ5kATIpbFJ+/kyEUgAH/gaqAMF4GYIPFhjSEvi73+1jg863KTLpD4CXKBlRb0K9MLrqlq/NJKtEnFPQqG7wwuOfUB+ZNxbVr1rj+OfQRKqZr4xkPwSdj8EsbHucm1OXKkn2uAusNABvgfiLfD4tyaiV1UPxvD6X6xiF2haMskPINFOuNAqr9v3CDAGVOCDY6rPXXYq7hapj8FP1lsFjg1H3iowHUdqJ+jiWvfSZoPbIWgzhL5qbnGb/oYtwOq7ofE3+6NnVdStIt8mVbxodYJ+lQ4cNC3psTTEwXroWfLFZJPIa3n41X7I5C1IxnokZ9uqLHK5b0lElryxMa/Be6dVt11uUPlO+1D1N3l4eBMEB0ALlkTDqqsAsx2rapMttnU+DgxCEsNjlwNf8uW0X+TlWbh/EPR2yA7afr7OemDanu3/tifcx6B9MDajet+y3I4BRMQpwuYBGPFhewXWz0NPDqIiNPtgqgDjk3B4AU583624bf8HnnoM'
    $redpng &= '8aynZskAAAAASUVORK5CYII='
    Local $bString = _WinAPI_Base64Decode($redpng)
    If @error Then Return SetError(1, 0, 0)
    $bString = Binary($bString)
    If $bSaveBinary Then
        Local Const $hFile = FileOpen($sSavePath & "\red.png", 18)
        If @error Then Return SetError(2, 0, $bString)
        FileWrite($hFile, $bString)
        FileClose($hFile)
    EndIf
    Return $bString
EndFunc   ;==>_redpng

Func _WinAPI_Base64Decode($sB64String)
    Local $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "ptr", 0, "dword*", 0, "ptr", 0, "ptr", 0)
    If @error Or Not $aCrypt[0] Then Return SetError(1, 0, "")
    Local $bBuffer = DllStructCreate("byte[" & $aCrypt[5] & "]")
    $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "struct*", $bBuffer, "dword*", $aCrypt[5], "ptr", 0, "ptr", 0)
    If @error Or Not $aCrypt[0] Then Return SetError(2, 0, "")
    Return DllStructGetData($bBuffer, 1)
EndFunc   ;==>_WinAPI_Base64Decode