mit @Funktionen geht es so:@PostedCommand([EditGotoField]; "RTFeld" );
@PostedCommand([FileImport]; "JPEG Image"; Pfad + "\\" + dateiname)
und mit Script so:Call uidoc.GotoField("RTFeld")
Call uidoc.Import("JPEG Image", Pfad + "\\" + dateiname)
Gruß
Dirk
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"):
' 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 :-)
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
Set wmp = Source.GetObject("Windows Media Player")
call wmp.open("Mein Pfad")
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