Hatte mal ähnliches gemacht vor Jahren mit Meta-Daten von MP3.
Meinst du das so in etwa? Ist etwas zusammengeschustert aus meinen alten Programm.
AutoIt
#include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
$Form1 = GUICreate("Form1", 782, 346, 194, 125)
$Label1 = GUICtrlCreateLabel("Kommission:", 32, 39, 65, 17)
$kom = GUICtrlCreateInput("", 96, 37, 217, 21)
$Label2 = GUICtrlCreateLabel("Artikel", 32, 79, 33, 17)
$art = GUICtrlCreateInput("", 96, 76, 217, 21)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "/test_1.jpg", 336, 32, 404, 292)
$Label3 = GUICtrlCreateLabel("Mitarbeiter", 32, 118, 53, 17)
$mit = GUICtrlCreateInput("", 96, 115, 217, 21)
$Label4 = GUICtrlCreateLabel("Wareneingangsdatum:", 32, 157, 111, 17)
$Date1 = GUICtrlCreateDate("2024/04/22 04:18:28", 144, 152, 186, 21)
$Button1 = GUICtrlCreateButton("Zurücksetzen", 232, 200, 75, 25)
$Button2 = GUICtrlCreateButton("Drucken", 136, 224, 75, 25)
$Button3 = GUICtrlCreateButton("Beenden", 136, 296, 75, 25)
$Button4 = GUICtrlCreateButton("Einlesen", 32, 200, 75, 25)
GUISetState(@SW_SHOW)
Global $lesen_input_kom, $lesen_input_art, $lesen_input_mit, $lesen_input_dat
Func schreiben()
$sFont='Times New Roman'
_GDIPlus_Startup()
$himg = _GDIPlus_ImageLoadFromFile(@ScriptDir & "/test_1.jpg")
Local $hGraphic = _GDIPlus_ImageGetGraphicsContext($himg)
$iX = _GDIPlus_ImageGetWidth($himg)
$iy = _GDIPlus_ImageGetHeight($himg)
$hBrush = _GDIPlus_BrushCreateSolid(); $Color)
$hFormat = _GDIPlus_StringFormatCreate()
$hFamily = _GDIPlus_FontFamilyCreate("Times New Roman")
$hFont = _GDIPlus_FontCreate($hFamily, 22, 0)
$tLayout = _GDIPlus_RectFCreate(200, 121, 550, 50)
_GDIPlus_StringFormatSetAlign($hFormat, 0)
_GDIPlus_GraphicsDrawImage($hGraphic, $himg, $iX, $iy)
_GDIPlus_GraphicsDrawStringEx($hGraphic, $lesen_input_kom, $hFont, $tLayout, $hFormat, $hBrush)
_GDIPlus_ImageSaveToFile($himg, @ScriptDir & "/test_2.jpg")
_GDIPlus_BrushDispose($hBrush)
_GDIPlus_ImageDispose($himg)
_GDIPlus_BrushDispose($hBrush)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
GUICtrlSetImage($Pic1, @ScriptDir & "/test_2.jpg")
If FileExists(@ScriptDir & "/test_2.jpg") Then
_GDIPlus_Startup()
$himg = _GDIPlus_ImageLoadFromFile(@ScriptDir & "/test_2.jpg")
Local $hGraphic = _GDIPlus_ImageGetGraphicsContext($himg)
$iX = _GDIPlus_ImageGetWidth($himg)
$iy = _GDIPlus_ImageGetHeight($himg)
$hBrush = _GDIPlus_BrushCreateSolid(); $Color)
$hFormat = _GDIPlus_StringFormatCreate()
$hFamily = _GDIPlus_FontFamilyCreate("Times New Roman")
$hFont = _GDIPlus_FontCreate($hFamily, 22, 0)
$tLayout = _GDIPlus_RectFCreate(250, 230, 620, 50)
_GDIPlus_StringFormatSetAlign($hFormat, 0)
_GDIPlus_GraphicsDrawImage($hGraphic, $himg, $iX, $iy)
_GDIPlus_GraphicsDrawStringEx($hGraphic, $lesen_input_art, $hFont, $tLayout, $hFormat, $hBrush)
_GDIPlus_ImageSaveToFile($himg, @ScriptDir & "/test_3.jpg")
_GDIPlus_BrushDispose($hBrush)
_GDIPlus_ImageDispose($himg)
_GDIPlus_BrushDispose($hBrush)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
FileDelete(@ScriptDir & "/test_2.jpg")
GUICtrlSetImage($Pic1, @ScriptDir & "/test_3.jpg")
EndIf
If FileExists(@ScriptDir & "/test_3.jpg") Then
_GDIPlus_Startup()
$himg = _GDIPlus_ImageLoadFromFile(@ScriptDir & "/test_3.jpg")
Local $hGraphic = _GDIPlus_ImageGetGraphicsContext($himg)
$iX = _GDIPlus_ImageGetWidth($himg)
$iy = _GDIPlus_ImageGetHeight($himg)
$hBrush = _GDIPlus_BrushCreateSolid(); $Color)
$hFormat = _GDIPlus_StringFormatCreate()
$hFamily = _GDIPlus_FontFamilyCreate("Times New Roman")
$hFont = _GDIPlus_FontCreate($hFamily, 22, 0)
$tLayout = _GDIPlus_RectFCreate(330, 340, 550, 50)
_GDIPlus_StringFormatSetAlign($hFormat, 0)
_GDIPlus_GraphicsDrawImage($hGraphic, $himg, $iX, $iy)
_GDIPlus_GraphicsDrawStringEx($hGraphic, $lesen_input_mit, $hFont, $tLayout, $hFormat, $hBrush)
_GDIPlus_ImageSaveToFile($himg, @ScriptDir & "/test_4.jpg")
_GDIPlus_BrushDispose($hBrush)
_GDIPlus_ImageDispose($himg)
_GDIPlus_BrushDispose($hBrush)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
FileDelete(@ScriptDir & "/test_3.jpg")
GUICtrlSetImage($Pic1, @ScriptDir & "/test_4.jpg")
EndIf
If FileExists(@ScriptDir & "/test_4.jpg") Then
_GDIPlus_Startup()
$himg = _GDIPlus_ImageLoadFromFile(@ScriptDir & "/test_4.jpg")
Local $hGraphic = _GDIPlus_ImageGetGraphicsContext($himg)
$iX = _GDIPlus_ImageGetWidth($himg)
$iy = _GDIPlus_ImageGetHeight($himg)
$hBrush = _GDIPlus_BrushCreateSolid(); $Color)
$hFormat = _GDIPlus_StringFormatCreate()
$hFamily = _GDIPlus_FontFamilyCreate("Times New Roman")
$hFont = _GDIPlus_FontCreate($hFamily, 22, 0)
$tLayout = _GDIPlus_RectFCreate(390, 450, 470, 50)
_GDIPlus_StringFormatSetAlign($hFormat, 0)
_GDIPlus_GraphicsDrawImage($hGraphic, $himg, $iX, $iy)
_GDIPlus_GraphicsDrawStringEx($hGraphic, $lesen_input_dat, $hFont, $tLayout, $hFormat, $hBrush)
_GDIPlus_ImageSaveToFile($himg, @ScriptDir & "/test_5.jpg")
_GDIPlus_BrushDispose($hBrush)
_GDIPlus_ImageDispose($himg)
_GDIPlus_BrushDispose($hBrush)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
FileDelete(@ScriptDir & "/test_4.jpg")
GUICtrlSetImage($Pic1, @ScriptDir & "/test_5.jpg")
EndIf
EndFunc;schreiben
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button3
FileDelete(@ScriptDir & "/test_2.jpg")
FileDelete(@ScriptDir & "/test_3.jpg")
FileDelete(@ScriptDir & "/test_4.jpg")
FileDelete(@ScriptDir & "/test_5.jpg")
Exit
Case $Button4
$lesen_input_kom = GUICtrlRead($kom)
$lesen_input_art = GUICtrlRead($art)
$lesen_input_mit = GUICtrlRead($mit)
$lesen_input_dat = GUICtrlRead($Date1)
schreiben()
Case $Button1
GUICtrlSetData($kom, " ")
GUICtrlSetData($art, " ")
GUICtrlSetData($mit, " ")
GUICtrlSetImage($Pic1, @ScriptDir & "/test_1.jpg")
FileDelete(@ScriptDir & "/test_2.jpg")
FileDelete(@ScriptDir & "/test_3.jpg")
FileDelete(@ScriptDir & "/test_4.jpg")
FileDelete(@ScriptDir & "/test_5.jpg")
Case $Button2
If FileExists(@ScriptDir & "/test_5.jpg") Then
shellexecute(@ScriptDir & "/test_5.jpg")
Else
MsgBox(16,"Fehler", "Kein Label erstellt zum Drucken")
EndIf
EndSwitch
WEnd
Alles anzeigen
Das Bild test_1.jpg und das Script müssen in einen Ordner, damit es funktioniert.
Beim "Drucken" wird nur das letzte Bild geöffnet.
Edit: Irgendwie wird das Bild im Beitrag in der Größe geändert vom Forum und passt dann nicht mehr. Hinterlege das mal als gepackte Datei