Im Zeitalter der 8 Megapixel Kameras ist es schnell möglich, das Anwender (bewusst oder versehentlich) Bilder mit mehreren Megabyte - oder vielleicht sogar völlig unkomprimiert - in Anwendungen oder 4D Write Dokumenten einfügen.
Es bietet sich daher an, für den Bildimport einen Assistenten vorzusehen, der dem Anwender den Vorgang erleichtert.
Der Anwender sollte Bilder aus der Zwischenablage und/oder direkt von der Festplatte (und somit auch von USB-Sticks, Kameras, etc) auswählen können. Der Assistent zeigt die Größe des Bildes (in Pixel und Kilobyte) an und schlägt eine automatische Komprimierung vor. Das oben gezeigte Beispiel optimiert das Bild für eine Ausgabe bei 6 cm Breite (Anwender rechnen meistens leichter in cm als in Pixel) bei einer Auflösung von 300dpi (für Farbbilder ist das bei den heute üblichen Laserdruckern und Tintenstrahldruckern mehr als ausreichend, kann aber natürlich per Popup geändert werden). Außerdem wird das Bild per JPEG komprimiert, auch hier ist die Stufe einstellbar. Der Assistent zeigt ebenfalls das Ergebnis (wieder in Pixel/cm und in Kilobyte) an.
Das Formular ist als Beispielsanwendung hier ladbar:
ftp://ftp2.de.4d.com/wBeispiele/Bildassistent.zip
Der Aufruf könnte z. B. so erfolgen:
` erlaubt Anwender das Einsetzen eines neuen Bildes
` Eingangsbild falls vorhanden $1, Ergebnis über $0 zurück
C_PICTURE($0;$1;$leer)
vPict:=$1
$ref:=Open form window([Tabelle1];"Bildassistent")
DIALOG([Tabelle1];" Bildassistent ")
CLOSE WINDOW($ref)
If (OK=1)
$0:=vPict2
Else
$0:=$1 ` bei Abbrechen wird Original zurückgegeben
End if
vPict:=$leer
vPict2:=$leer
Weitere Artikel Bild Drucken, Import Picture und Quicktime