Domino 9 und frühere Versionen > ND6: Entwicklung

Image Ressource exportieren

<< < (2/2)

robertpp:
Kann mir jemand nochmals helfen wie ich die Bilder auf das Filesystem bekomme?

Kann ich die NotesNoteCollection also normale docCollection sehen und somit Files exportieren wie wenn es ein doc wäre?

Oder wie muss ich das machen?

danke robert

MiChaMc:

--- Zitat von: robertpp am 01.08.06 - 16:37:59 ---Also ich hab das jetzt noch gefunden:

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument

Set db = session.CurrentDatabase

REM Create note collection
Dim nc As NotesNoteCollection
Set nc = db.CreateNoteCollection(False)
nc.SelectImageResources = True
Call nc.BuildCollection

nid = nc.GetFirstNoteId
For i = 1 To nc.Count
Set doc = db.GetDocumentByID(nid)
Set item = doc.GetFirstItem("$Title")
Messagebox item.text
nid = nc.GetNextNoteId(nid)
Next


Das sag mir schon mal den Namen aller Images.
Wie kann ich die dann noch exportieren?


--- Ende Zitat ---

Das wird ja jetzt alles bei mir im Debugger angezeigt nur wie kriege ich die ganzen Images in einer liste hin????

statt alle einzelt in einer messagebox!

diali:

--- Code: ---
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument

   dim array() as string
Set db = session.CurrentDatabase

REM Create note collection
Dim nc As NotesNoteCollection
Set nc = db.CreateNoteCollection(False)
nc.SelectImageResources = True
Call nc.BuildCollection

   redim array(nc.Count)
nid = nc.GetFirstNoteId
For i = 1 To nc.Count
Set doc = db.GetDocumentByID(nid)
Set item = doc.GetFirstItem("$Title")
   array(i) = item.text
nid = nc.GetNextNoteId(nid)
Next
--- Ende Code ---
indem Du ein Array anlegst und item.text dort rein schreibst

diali:
@robertpp
Im Groben geht es mit DXLExporter exportieren, umcodieren und als jpg oder gif speichern. Mehr Details gibt es hier.

Navigation

[0] Themen-Index

[*] Vorherige Sete