Es gibt ein Filesystem, indem sich mehreren Dateien, zB. test.exe befinden. Mithilfe eines Portlet möchte ich zum Download eine bestimmte Datei zur Verfügung stellen. Die Datei soll anhand Landcode gesucht und angezeigt. Dieser Landcode liegt in einem Dokument einer Notes DB. Wenn der User eine Schaltfläche in meinem Portlet klickt, wird ein Agent aufgerufen, wie folgt: "
http://servername/USERS/notes.nsf/getFile?openAgent&countryCode=de". Beim Aufruf wird der Agent die Landbezeichnung = "de" bekommen, der mit Documentcontext gelesen wird und soll praktisch die entsprechende Pfad zu der Datei bauen, die Datei holen und physikalisch zurück an dem Portlet schicken. Ich kann die Pfad zu datei bauen. Das Problem entsteht, natürlich, wenn man die Datei als Objeckt zurück an dem Portlet schicken will... Denn, die Frage ist WIE?
Ich wäre natürlich für jeden Rat sehr dankbar, selbstverständlich!
| |
| |
| Sub Initialize |
| On Error GoTo errHandler |
| |
| Set s = New NotesSession |
| Set db = s.Currentdatabase |
| Set context = s.Documentcontext |
| |
| |
| |
| param = Split(context.Query_String(0),"&") |
| |
| |
| param = Split(testURL,"&") |
| |
| key = getParam(param,1) |
| |
| Set view = db.Getview("vwCountryCode") |
| Set entry=view.Getentrybykey(key, true) |
| Set doc=entry.Document |
| |
| |
| Print "Datei = " + doc.Filename(0) |
| |
| |
| |
| errHandler: |
| MsgBox "Error: " & Err() & " on Line: " & Erl() |
| Exit Sub |
| End Sub |
| |