ein Bild in einer Maske dynamisch anzeigen? geht sowas?

[Jenson]

Hallo zusammen,

Ich habe Dokumente in einer 6.5 Domino DB. Diese Dokumente enthalten JPG Dateien als Attachments. Eines der Attachments ist eine Thumbnail-Grafik. Diese möchte ich gerne in der Maske darstellen um den Benutzer das Laden der recht grossen angehängten Dateien zu ersparen wenn es nicht die richtige Grafik ist.

Gibt es nun eine Möglichkeit diese Thumbnail-Grafiken darzustellen? Ich habe auch mal überlegt ob ich die Thumbnails bereits beim abspeichern der Dokument ein ein Richtext-Feld schreibe, aber ich habe es nie soweit hinbekommen dass die Grafika uch angezeigt wird. Es war immer nur ein Link auf das Dokument vorhanden oder das Dokument war direkt als Attachment vorhanden.


Bin für jeden Denkanstoss dankbar.


Jenson

[diali]

mit @Funktionen geht es so:

Code

@PostedCommand([EditGotoField]; "RTFeld" );
@PostedCommand([FileImport]; "JPEG Image"; Pfad + "\\" + dateiname)

und mit Script so:

Code

Call uidoc.GotoField("RTFeld")
Call uidoc.Import("JPEG Image", Pfad + "\\" + dateiname)

Gruß
Dirk

[Jenson]

so geht es leider nicht bei mir, da ich die Dokumente nicht mit der Maske selber speichere sondern per LotusScript. Da funktioniert dann das Setzen des Cursors in ein Feld nicht so wie es aussieht. Ich bekomme immer die Meldung

"Document Command not available"



Jenson

[diali]

Du müsstest das Dokument im UI und im EditMode öffnen, dann geht es.

Für das BackEnd habe ichs noch nichts gefunden bzw noch nicht benötigt.

[TMC]

Für das BackEnd habe ichs noch nichts gefunden bzw noch nicht benötigt.

Hmm, eine Möglichkeit wäre da wohl ein Workaround über DXL, wenn man das unbedingt über's Backend braucht.

[Jenson]

Also ich komme am Backend nicht vorbei ... mir ist der Begriff DXL noch neu ... wie würde denn da ein Ansatz aussehen?

Jenson

[TMC]

wie würde denn da ein Ansatz aussehen?

Also nur so eine Idee:
Das Attachment auf die Platte lösen. Dann das JPEG-Bild in Base64 encoden. Dafür gibt es im Web Code auch für LotusScript.
Das NotesDokument setzt Du Dir in einen Stream. Dort fügst Du das in Base64 encodierte Bild an entsprechender Stelle ein. Dann speicherst Du den Stream zurück in die Datenbank.

Ist ein ziemlicher Hack so. Aber ich denke so könnte es funktionieren. Bezüglich Performance kann gerade bei Base64 einiges an Zeit draufgehen, evtl. da dann Alternativen einsetzen (Java?).

[HaPe]

Hallo Leute hier noch ein Ansatz von mir den ich für grade diese Problem schon umgestzt habe.

Eine OLE control des Media Players in die Maske einbinden. Im Post open das Bild auf die Platte speichern und im OLE Contol laden. Dann im Query Close das Bild wieder von der Platte löschen.
Klappt einwandfrei. Damit ist es auch möglich das angezeigte Bild bei geöffneter Maske auszutauschen.

Hier der Code zum Laden des Bildes (Die eingebunden Media Player Control heist bei mir "Windows Media Player"):

Code

		' Load Preview Picture
	On Error Goto errHandler
	
	Dim ws As New NotesUIWorkspace
	Dim session As New NotesSession
	Dim dbCurrent As NotesDatabase
	Dim docPic As NotesDocument
	Dim adobe As Variant
	Dim rti As NotesRichTextItem
	Dim strWinTemp As String
	Dim strStartPDF As String
	Dim oFirst As NotesEmbeddedObject
	Dim view As NotesView
	
	If doc.AlbumPictureThumbnail(0)="" Then Exit Sub
	
	'Get Thumbnail from Picture document
	Set dbCurrent=session.CurrentDatabase
	Set view=dbCurrent.GetView("plinks")
	Set docPic=view.GetDocumentByKey(doc.AlbumPicture(0),True)
	Set rti = docPic.GetFirstItem("Body")
	Set oFirst = rti.GetEmbeddedObject(doc.AlbumPictureThumbnail(0))
	
	'Write thumbnail to disk
	strWinTemp = WinTemp 'function "Wintemp".....
	Call oFirst.ExtractFile(strWinTemp & "\" & oFirst.Source)
	'Store thumb filename 
	OldThumbPicName=strWinTemp & "\" & oFirst.Source
	
	'Load thumbnail in MediaPlayer
	Set adobe = Source.GetObject("Windows Media Player")
	adobe.open(strWinTemp & "\" & oFirst.Name) 'launch the adobe acrobat file.....
	
	
exitScript:
	Exit Sub
	
errHandler:
	Select Case Err
	Case 184 'NoEmbeddedObject....
		Msgbox "There is no file attached.... ", 64, "Info"
		Call Source.close
		Resume exitScript
	Case Else
		Msgbox "An error occured." & Chr(10)  & Chr(10) _
		& "Error text: " & Error$ & Chr(10) _
		& "Error number: " & Err & Chr(10) _
		& "Line: " & Erl & Chr(10) _
		,64,"Error"
		Resume exitScript		
	End Select
	

Man sieht das der Code von der Idee mit dem PDF Active-X conrol abgeschut ist oder :-)

[animate]

das ist ne Idee.
Vorschlag, statt des fetten Mediaplayers reicht vermutlich auch ein simples Image Control.

[HaPe]

Hi Thomas,

welches Conrol genau meinst du? Hast du die Methoden welche das Control unterstützt?

Der grund warum ich den Medai Player genommen habe war das ich da sicher bin das er auf jedem (halbwegs aktuellen) windows vorhanden ist und ich in der Lage war über die OLE classen browser im designer die Methoden zu ermittel.

Gruß
  HaPe

[animate]

Ich meine "Microsoft Forms 2.0 Image".

Ich hab aber keine Ahnung, ob das damit funktioniert. War nur ne Idee, weil ich den Mediaplayer für etwas überdimensioniert halte, wenns nur darum geht, Bilder anzuzeigen

[Jenson]

eine Lösung über ein Image Control wäre mir auch lieber. Ist das Image Control bei jedem Windows System vorhanden? (2000, XP ?).

Ich habe es momentan nun mit einem Webbrowser Control gelöst das zur Anzeige das Thumbnail-Bild über den HTTP Server von Domino lädt. Da fängt dann aber schon der spass an. Das geht solange gut wie die Domain gleich bleibt. Zumindest ist es ein zusätzlicher Parameter der konfiguriert werden muss.

Jenson

[HaPe]

Hi Jenson,

da würde ich aber den Media Player dem IE control vorziehen. Einal klappt dann auch offline.

Außerdem kannst du die das mit dem Contol für einen Bild von einem Webserver sparen. Du kannst das Bild dirkt mit HTML in Notes Client anzeigen. (So war es in der Open Picture DB im orginal auch gemacht).

Die Ladezeiten der Mediaplaer contol sind sehr kurz. Wenn man die Form öffnet ist keine verögerung zu bemerken. Vom öffnen der Form bis zum anzeigen des Bildes vergeht weniger als 1 Secunde.

Gruß
  Hape

[rar]

So, hab wiedermal ein Thema ausgegraben ;-)

Ich möchte auch ein Bild, das in einem Konfigurationsdok als Anhang abgespeichert ist in einer Seite anzeigen.
Wie HaPe es vorgeschlagen hat, speicher ich das Jpg im Postopen ab, habe aber Probleme beim anzeigen.

Beim open

Code

Set wmp = Source.GetObject("Windows Media Player")
call wmp.open("Mein Pfad")

kommt aber die Meldung Instance member OPEN does not exist.
Kann mir bitte jem,and sagen woe ich den Mediaplayer richtig mit dem Bild befüllen kann? Bzw ob es eine Alternative dazu gibt?

lG