Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 249567 (11003)

| Suchen
| Zurück zur Übersicht

Autor | Thema: JPG speichern mit Nviewlib.dll
Ewald Göstl
| Datum:11.07.01 23:38 (ewald.goestl@rodenstock.de) |
Kann man mit der Nviewlib.dll eigentlich Bilder im jpg.format speichern, dabei die Originalgröße verändern und den Komprimierungsfaktor einstellen? Gibt es dafür sonst eine Lösung? Besten Dank.
Sebastian Sprenger
| Datum:12.07.01 02:08 (prof.chaos@netcologne.de) |
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
Ewald Göstl
| Datum: 12.07.01 21:50 (ewald.goestl@rodenstock.de) |
Hallo Sebastian, du bist der Größte. Danke für Deine Lösung. Schließe Dich in mein Nachtgebet ein.

| Zurück zur Übersicht