Hallo,
ich habe vor einiger Zeit ein Bildarchiv erstellt, in dem man lokale Bilder auswählen kann. Diese werden in ein Dokument geschrieben (je eine Großversion 800 x 600 und ein Thumbnail). Webausgabe etc. klappt alles wunderbar und fehlerfrei.
Nun ist meinem Chef die Idee gekommen, diverse Bilder auch druckfähig bereitzustellen. Im Grunde kein Problem. Agent erweitern fertig.
Aber: Bei momentan ca. 200 bis 300 Bildern á 1.5 MB bewege ich mich da in Größenbereichen, die ich hinsichtlich des Mietservers nicht bezahlen möchte.
Also will ich in den Agenten folgende Funktion bauen:
Der Agent liefert mir über diesen Code die Dateiabfrage:
Sub Initialize
On Error Goto zeile
Dim workspace As New NotesUIWorkspace
Dim files As Variant
Dim Quelltext As Variant
Call GetProfilwerte
'Auswahl-Dialog
DateiArray= workspace.OpenFileDialog(True, "Wählen Sie die Datei(en) aus:", _
"Dateien:|*.tif;*.jpg;*.bmp", LesePfad)
'Wurde keine Datei gewählt, dann wird Sub verlassen
If Not Isarray(DateiArray) Then
Msgbox ("Sie haben keine Datei ausgewählt!")
Exit Sub
End If
'Die erste Datei wird in den Array geholt
VollerPfad= DateiArray(0) & ";"
'Wenn mehr als eine Datei gewählt wurden, dann werden die Dateien ohne
'Pfadangabe angehängt
If Ubound(DateiArray ) >0 Then
For index = Lbound( DateiArray )+1 To Ubound(DateiArray )
VollerPfad=VollerPfad & _
Strrightback(dateiArray(index),"\") _
& ";"
Next index
End If
Print "Die Bilddaten werden verarbeitet, bitte haben Sie etwas Geduld"
Nun fragt mich der Agent über eine msgbox, ob einige Bilder auch druckfähig in das Dokument eingespeist werden sollen. Sage ich nein, läuft mein bisheriger Agent (fehlerfrei).
Sage ich ja, hatte ich erst folgende Überlegung:
Ich durchlaufe den Array und frage bei jedem Wert erneut über eine msgbox, ob DIESES Bild auch in einer höheren Auflösung gespeichert werden soll oder nicht. Die Antwort landet in einem weiteren Array.
UND JETZT DIE FRAGE:
Eleganter wäre eine Lösung mit einer Dialogbox, die alle Elemente des Arrays (also bild1.jpg, bild2.jpg usw.) untereinander aufzählt, mit davorstehenden Kontrollkästchen, die man halt ankreuzen kann (der Bringer wäre natürlich noch ein Preview, aber wir wollen die Kirche ja mal im Dorf lassen).
Ich arbeite seit Monaten an einem MySQL und PHP - Projekt, so dass meine LS - Kenntnisse wieder etwas eingeschlafen sind.
HAT JEMAND EINE IDEE ODER EINEN TIPP?
?
Danke schon mal.