XProfan

declare DLL&
def NViewLibLoad(2) !"NVIEWLIB.DLL","NViewLibLoad"
def NViewLibSaveAsJPG(2) !"NVIEWLIB.DLL","NViewLibSaveAsJPG"

proc SaveJPG

    parameters Datei$,Qualität%,x1%,y1%,x2%,y2%
    declare temp#
    dim temp#,255                                  Bereich für die Dateinamen dimensionieren.
    savebmp "TEMP.BMP",x1%,y1%-x2%,y2%             Es ist sehr wichtig eine Bitmap zu speichern.
    string temp#,0="TEMP.BMP"
    NViewLibLoad(temp#,0)                          Bitmap in den Speicher laden.
    string temp#,0=Datei$
    NViewLibSaveAsJPG(Qualität%,temp#)             JPEG speichern!
    assign #1,"TEMP.BMP"                           Die temporäre Bitmap wird nicht mehr benötigt.
    erase #1
    dispose temp#                                  Speicher wieder freigeben.

endproc

cls
DLL&=usedll("NVIEWLIB.DLL")                      DLL laden
loadbmp "SATURN.BMP",0,0;0                       Saturn-Bild laden
SaveJPG "SATURN.JPG",80,0,0,%bmpx,%bmpy          Bild von einer Qualität von 80% speichern
freedll DLL&                                     Resourcen enable