Bilder per Skript auf 310000 Pixel verkleinern

[diemartos]

Hallo,

ich habe dieses Skript geschrieben. Es soll Bilder unabhängig vom Seiteverhältniss auf eine Größe von 310000 Pixel verkleinern.

---------------------------------
Option Explicit

Dim Breite
Dim Hoehe
Dim Seitenverhaeltnis
Dim Zielgroesse
Dim Dummy

Zielgroesse=310000

Seitenverhaeltnis = FF_GetImageWidth() / FF_GetImageHeight()
Hoehe = Int( sqr( Zielgroesse / Seitenverhaeltnis ) )
Breite = Int( Hoehe * Seitenverhaeltnis )

Dummy = FF_ILScale( Breite, Hoehe, 6, FALSE )

msgbox "FF-310kPixel-Test " & Hoehe & Dummy & Breite
--------------------------------------------------------------------

Leider läuft es nicht.
Höhe und Breite werden korrekt berechnet. Auch die FF_ILScale liefert TRUE zurück.
Die Bildgröße ändert sich aber nicht ???
Was mach ich falsch? Da dies mein erstes FF-Skript ist, sthe ich zimlich auf dem Schlauch.
Wer kann mir helfen.
Danke - Dietmar

 

[hhoefling]

AW: Bilder per Skript auf 310000 Pixel verkleinern

Hallo Dietmar
du must mit FF_Reload() oder FF_SaveImage(name) deine Änderungen auch weitergeben.
Ansonsten ist das Ergebniss deines Scriptes bei Script-Ende im Nirwana verschwunden ;D

 

[diemartos]

AW: Bilder per Skript auf 310000 Pixel verkleinern

Hallo Heinz,

danke für den Tip. Mit FF_Reload() klappt es jetzt.
Ich hoffe du bist in der Nacht noch zum schlafen gekommen.

Tschüs - Dietmar