Autor Thema: Datei aus dem Filesystem mittels einem Agent physikalisch schicken  (Gelesen 1414 mal)

Offline magic_online

  • Frischling
  • *
  • Beiträge: 10
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!

Code


Sub Initialize
	On Error GoTo errHandler
	
	Set s = New NotesSession
	Set db = s.Currentdatabase
	Set context = s.Documentcontext

	

	param = Split(context.Query_String(0),"&")
	
	' der URL ist =  "http://servername/USERS/notes.nsf/getFile?openAgent&countryCode=de"
	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

« Letzte Änderung: 18.10.12 - 16:09:00 von magic_online »

Offline m3

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.102
  • Geschlecht: Männlich
  • Non ex transverso sed deorsum!
    • leyrers online pamphlet
Option 1: Du machst im Agent einen http redirect und schickst dem Browser die URL zurueck, unter welcher er die Datei holen soll.

Option 2: Du schreibst Code, der die Datei am Server herunter laedt und anschliessend dem Browser zurueckschickt (du also proxy spielst ...).
HTH
m³ aka. Martin -- leyrers online pamphlet | LEYON - All things Lotus (IBM Collaborations Solutions)

All programs evolve until they can send email.
Except Microsoft Exchange.
    - Memorable Quotes from Alt.Sysadmin.Recovery

"Lotus Notes ist wie ein Badezimmer, geht ohne Kacheln, aber nicht so gut." -- Peter Klett

"If there isn't at least a handful of solutions for any given problem, it isn't IBM"™ - @notessensai

Offline pram

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.170
  • Geschlecht: Männlich
    • Foconis Object Framework
Für Option 1 musst du das Wurzelverzeichnis des Filesystems in der entsprechenden HTTP-Einstellung angeben

Bei Option 2 wirst du sehr bald über dieses Problem stolpern: http://atnotes.de/index.php/topic,50597.0.html

Gruß
Roland
Roland Praml

IBM Certified Application Developer - Lotus Notes and Domino 8
Ich verwende das Foconis Object Framework

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz