Ja das geht:
declare dll%,text#
dim text#,256
dll%=usedll("NVIEWLIB.DLL") ' DLL laden
def NViewLibLoad(2) !"NVIEWLIB.DLL","NViewLibLoad"
def NViewLibSaveAsJPG(2) !"NVIEWLIB.DLL","NViewLibSaveAsJPG"
loadbmp "SATURN.BMP",0,0;0 ' Nehmen wir ein Bild aus dem Profan Demo zum Laden!
savebmp "SATURN2.BMP",0,0-%bmpx,%bmpy
' Das Bild MUSS neu gespeichert werden, es klappt sonst nicht.
string text#,0="SATURN2.BMP"
NViewLibLoad(text#,0) ' Bild laden
string text#,0="SATURN.JPG"
NViewLibSaveAsJPG(80,text#) ' Bild mit einer Qualität von 80% speichern
assign #1,"SATURN2.BMP"
erase #1 ' Testbitmap löschen
dispose text# ' Speicher freigeben
freedll dll% ' DLL-Resourcen freigeben
Und das war's.Gruß,
Sebastian
|