Domino 9 und frühere Versionen > ND8: Entwicklung

Importieren von Bildern in Notes-Dokumente

(1/1)

MatsBS:
Halloo allerseits,
Ich habe das Problem, dass unser Kunde cirka 600 Bilder (JPG) vom Dateisystem in unterschiedliche Dokumente in einer Lotus Notes Datenbank importiert haben möchte.

Ich kenne die FrontEnd Möglichkeiten (uidoc.Import("JPEG", "c:\ddd\aaa.jpg"), jedoch würde das bei so vielen Dokumenten nicht hinhauen.
Gibt es irgend eine Backend Möglichkeit für diesen Import?
Die Bilder müssen wirklich im Dokument angezeigt werden und nicht "angehängt".

Danke vielmals

koehlerbv:
Stichworte für die Suche wären "Base64"(kodierte JPEGs), MIME und DXL. Es gibt hier bereits entsprechende Threads im Forum.

HTH,
Bernhard

Grischu:
Dieses Script sollte funktionieren. Ist aber noch experimentell bei mir.  Also nicht in der Praxis getestet.....

Das Richtextfeld darf allerdings sonst nichts enthalten weil es quasi gelöscht und neu erstellt wird.


--- Code: ---Public Sub InsertJPG(file As String, d As NotesDocument, ItemName As String)

Dim s As New NotesSession
Dim rc As Variant
Dim it  As NotesItem
Dim jpeg As NotesMIMEEntity
Dim stream As NotesStream
Dim f_editmode As Boolean

s.ConvertMIME=False

Set it = d.GetFirstItem(Itemname)
If Not it Is Nothing Then
d.RemoveItem(Itemname)
End If
Set jpeg=d.CreateMIMEEntity(Itemname)
Set stream=s.CreateStream()
If (stream.open(file,"binary")) Then
If (stream.Bytes>0) Then
jpeg.setContentFromBytes stream, "image/jpeg", ENC_IDENTITY_BINARY
End If
End If

End Sub

--- Ende Code ---

Navigation

[0] Themen-Index