Hallo Liebe AutoIt Gemeinde,
nachdem ich mich einige Zeit in AutoIt eingelesen und ein paar Kleinigkeiten damit umgesetzt habe wollte ich etwas für jemanden Machen welche auch mir gelegentlich hilft.
Die Erste Version funktioniert gut. Hierbei werden Bilder in ein anderes Bild an eine bestimmte Position eingefügt.
Spoiler anzeigen
GUICreate ("ImagePosition", 200, 200, 1000, 350)
$ButtonP = GUICtrlCreateButton("PET", 10,10,100,20)
GUISetState()
$PathIM_Composite = "Z:\PortableApps\ImageMagick\Composite.exe"
$Template = "Z:\PortableApps\ImageMagickScript\Image_Template\1028x677#8Bit.jpg"
$geometryP = "-geometry +312+429"
While 1
$msg = GUIGetMsg()
Select
case $msg = -3
Exit
Case $msg = $ButtonP
Local $geometry = $geometryP
Local $srcDirectory = "Z:\PortableApps\ImageMagickScript\Image_P"
$destDirectory = $srcDirectory & "\output"
; Check directory if exist
If NOT FileExists($srcDirectory) Then
MsgBox(0, "Error", "Directory: " & $srcDirectory & " not found")
Exit
EndIf
; Create directory "$destDirectory" if not there yet
If NOT FileExists($destDirectory) Then
DirCreate($destDirectory)
EndIf
; change current directory to src directory
FileChangeDir($srcDirectory)
$search = FileFindFirstFile("*.jp*")
If $search = -1 Then
MsgBox(0, "Error", "No files/directories matched the search pattern")
Exit
EndIf
; Composite für PET)
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
Local $geometry = $geometryP
Run ($PathIM_Composite & " " & $geometry & " " & $file & " " & $Template & " " & $destDirectory&""&$file)
WEnd
EndSelect
WEnd
Jetzt kommt der Wunsch/Frage auf ob es möglich wäre alle oder einzelne Bilder dann auf dem Drucker auszudrucken. Toll wäre auch wenn man in dem Bild was Ausgedruckt wird irgenwo den Dateinamen des Bildes unterbringen könnte.
Leider habe ich nicht viel dazu gefunden und meine Fähigkeiten bewegen sich noch auf niedrigem Niveau. Falls es irgendwo eine Tutorial gibt oder wenn jemand Anregungen hat würde das mir sehr helfen.