Domino 9 und frühere Versionen > ND9: Entwicklung

Aufruf einer Webseite aus Lotusscript

<< < (3/4) > >>

Peter Klett:
Über DXL-Export?

Da hast Du den Inhalt der Dateianhänge Base-64-codiert, habe das einmal umgekehrt genutzt, um Dateianhänge zu erstellen, ohne die Datei vorher auf die Platte schreiben zu müssen

schroederk:
Ich denke, ich bin mit dem DXL-Export (vielen Dank Peter für den Tipp) ein gutes Stück weiter:


--- Code: --- Set stream = s.CreateStream
Set export = s.CreateDXLExporter
export.setInput doc
export.setOutput stream
export.process
txt=stream.ReadText
start = InStr(1,txt,"<notesbitmap>")
finish = InStr(1,txt,"</notesbitmap>")
attData=Mid(txt,start+13, finish-start-13)

--- Ende Code ---

Funktioniert im Moment natürlich nicht bei Bildern, sondern nur bei TXT oder PDF.
Das was dem Webserver übergebe, scheint zwar valides Base64 zu sein (getestet bei base64.guru), aber ich bekomme es dennoch nicht umgewandelt, um daraus wieder ein Attachment zu machen (welches dann auf dem Content-Server des ERP-Systems gespeichert werden kann)


Eine Beispiel-Base64-Datei habe ich hier mal angehangen. (Einfache TXT-Datei)

schroederk:
Wenn ich versuche, den Base64-String bereits im Notes zu dekodieren, dann kommt da leider auch nichts lesbares raus:


--- Code: --- Set doc2 = New NotesDocument( db )
Set mime = doc2.CreateMIMEEntity
Call mime.SetContentFromText(stream, "text/plain;charset=UTF-8", ENC_BASE64)
Call mime.DecodeContent
MessageBox mime.Contentastext, MB_OK, "Inhalt"

--- Ende Code ---

Ich werde da wohl einen groben Denkfehler haben.  :-\

jBubbleBoy:
Nimm mal die Base64-Lib von nsftools - http://www.nsftools.com/tips/Base64v14.lss, damit sollte es gehen.

schroederk:
Das kann ich gerne mal testen, aber eigentlich würde ich gerne den Base64 String erst am Ziel-Server dekodieren und wieder zu einem Attachment werden lassen.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete