; Beispiel Programm zur Einbindung von ImagePrinter.exe ; Create: Jens Haipeter, 12.08.2005 ; Actual: 14.08.2005 ; benötigt die Setup Lib von Andreas Miethe für den temporären Pfad. ; Um das Programm mit einem zu ladenden Bild zu starten, entweder: ; - In den temporären Ordner das zu ladende File in eine Textdatei ; schreiben. Ich wollte keinen Eintrag in die Registry machen ; - mit Parameterübergabe, dort müssen alle Leerzeichen durch @ ; ersetzt werden, siehe unten. Gilt auch für den Namen der Übergabe ; die im Fenstertitel erscheinen soll, sonst wird nur das jeweils ; erste Wort ausgewertet (Leerzeichen = Parametertrennzeichen!) ; Sobald die Fenstertextübergabe mit ProgramParameter() eingetragen ist, ; ist während der Laufzeit absichtlich keine neue Dateiauswahl möglich. ; Gilt nicht für die Vorgabe des ersten automatisch ladbaren File, dann ; kann immer neu ausgewählt werden. ; Möglichkeit 1 zur Angabe des Startbildes TempPath.s=GetTempPath() If OpenFile(1,TempPath+"\JS_ImagePrinter_File.txt") WriteString("") ; Hier den Pfad und das File angeben. Beispiel: c:\Eigene Dateien\Bilder\test.bmp" ; Das angegebene File muß existieren, ansonsten wird ImagePrinter beendet. CloseFile(1) EndIf ; Optionale Eingabe des ersten Zielfile, Variante 2, den kompletten Pfad mit Datei und Suffix angeben! ; Achtung, hier Beipielangabe, bei falscher Angabe wird das Programm sofort wieder beendet, da das Bild ; logischer Weise nicht geladen werden kann. Target.s="c:\eigene dateien\eigene bilder\iltis_001.jpg" ; Leerzeichen im Namen durch @ ersetzten, wird in ImagePrinter rückgängig gemacht Target=ReplaceString(Target," ","@") ; Optionaler Name für Window, bei Eintrag ist später keine weitere Auswahl des File mehr möglich WinTitle.s="" ; Leerzeichen im Namen durch @ ersetzten, wird in ImagePrinter rückgängig gemacht WinTitle="@"+ReplaceString(WinTitle," ","@") ; einen String aus den beiden Übergaben erzeugen, das Leerzeichen ist das Parametertrennzeichen! pgmpar.s=WinTitle+" "+Target ; Starten von ImagePrinter, der Pfad ist eine Annahme! ; Für den Fall das PNG_Shot ab V2.01 läuft wäre hier ein Start möglich, ansonsten Fehlermeldung und kein Start. If RunProgram(TempPath+"\PNG_ImagePrt\ImagePrinter.exe",pgmpar,TempPath,1) Else infomsg.s="Das Druckprogramm konnte nicht geladen werden" MessageRequester("ABBRUCHINFORMATION",infomsg,0) EndIf End ; ExecutableFormat= ; CursorPosition=28 ; FirstLine=1 ; EOF