Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: reraru am 10.10.05 - 10:15:24
-
Guten Morgen!
Ich bin dabei ein kleines Portal für meine Firma zu erstellen.
Hier möchte ich verschiedene Inhalte zentral unterbringen.
Unter anderem möchte ich unsere Notes Applikationen in einer
Art übersicht darstellen.
Ich habe eine Maske erstellt, die in etwa so aussehen soll:
(http://www.anton-cramer.de/item.JPG)
Nun möchte ich eine Art Seite erstellen in der alle eingetragenen
Anwendungen ähnlich wie eine News-Seite aufgeführt werden.
Wie könnte ich das realisieren???
Vielen Dank im Voraus!
Gruß René
-
Ich nehme an du möchtest das im Web darstellen.
Da könntest du das Bild in ein RTF importieren und in ein weiteres RTF anhängen.
Declare Function NEMGetFile Lib "nnotesws" ( wHandle As Integer, Byval szFileName As String, Byval szFilter As String, Byval szTitle As String ) As Integer
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim docThis As NotesDocument
Dim sField As String
Dim sFile As String
Dim rtItem As NotesRichtextItem
Dim object As NotesEmbeddedObject
Dim uidoc As NotesUIDocument
Dim szFileName As String*256
Dim szTitle As String
Dim szFilter As String
Dim szSelectedFile As String
szFilename = Chr(0)
szTitle = "Open File"
'szFilter = "All Files |*.*|Word Document |*.doc|Text Files|*.txt|"
szFilter = "JPG - Pictures |*.jpg|JPEG - Pictures |*.jpeg|"
If NEMGetFile( 0, szFileName, szFilter, szTitle) <> 0 Then
szSelectedFile = szFileName
End If
Set uidoc = ws.CurrentDocument
If Not uidoc.IsNewDoc Then
löschen
End If
sFile = szFileName
sField = "Picture"
Set docThis = ws.CurrentDocument.Document
Set rtItem = docThis.GetFirstItem(sField)
If rtItem Is Nothing Then Set rtItem = docThis.CreateRichTextItem(sField)
If rtItem.Type = 1 Then
' # 1454 = EMBED_ATTACHMENT
Set object = rtitem.EmbedObject( 1454, "", sFile)
End If
Call docThis.Save(True , True)
Call ReOpen( docThis )
Set uidoc = ws.CurrentDocument
uidoc.GotoField( "Bild" )
Call uidoc.Import("JPEG Image",szSelectedFile)
End Sub
Und dann machst du dir einfach eine View wo du mit:
dbpath := @ReplaceSubstring (@Subset (@DbName; -1); "\\"; "/");
file :=@Trim(@Subset(@AttachmentNames;1));
nopicURL := "/" + dbPath + "/nopic.jpg?OpenImageResource";
@If(file!="";"[<img src='/" + dbpath + "/0/" + @Text(@DocumentUniqueID) + "/$FILE/" + file + "' WIDTH=120 HEIGHT=150 BORDER=2>]";"[<img src='"+ nopicURL+ "' WIDTH=120 HEIGHT=150 BORDER=2>]")
das Bild im Web darstellen kannst und in der Makse sieht man dann das importierte Bild.
robert
-
Hallo Robert!
Sorry! Ich hätte schreiben sollen, das ich es im Notes Client realisieren möchte.
Mein Fehler!
Danke trotzdem!.
Gruß René
-
Îm Notes Client gehts einfach über eine normale Ansicht.
Die Screenschots müssen dabei als ImageRessourcen vorliegen (import, etc siehe Forumssuche)
Dann kannst Du die Anwendungen in einer Liste anzeigen lassen.
-
Hallo Umi!
Na dann werde ich es doch lieber statisch halten und einfach eine Seite erstellen.
Der Weg über eine Ansicht und entsprechendes einbinden von Bildressourcen ist
ja leider auch Handarbeit.
Trotzdem vielen Dank!
Gruß René
-
Nö das Anbinden von ImageRessource geht automatisch. Stichwort DXL.