Autor Thema: XMLHTTP Post Request in LotusScript  (Gelesen 2856 mal)

Offline TheHessian

  • Frischling
  • *
  • Beiträge: 13
  • Geschlecht: Männlich
XMLHTTP Post Request in LotusScript
« am: 06.11.20 - 11:57:19 »
Hallo Zusammen,

ich bin auf der Suche nach einer Lösung, wie ich eine PDF-Datei per XMLHTTP Post Request an einen Server schicken kann.
Leider habe ich noch nirgends eine Lösung dafür gefunden.

   Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")
   xmlhttp.open "POST", sWebService, False
   xmlhttp.setRequestHeader "X-Api-Key", sToken
   xmlhttp.setRequestHeader "content-type", "application/pdf"
   xmlhttp.send(???)

Die Frage ist, wie bekomme ich das PDF in den Playload des Request?
Wäre toll, wenn mir jemand einen Tipp geben kann!?

Danke!

MfG
Marcus

Offline ghostmw

  • Aktives Mitglied
  • ***
  • Beiträge: 201
  • Geschlecht: Männlich
    • BELOS - Raum+Ressourcenmanagement unter Lotus Notes
Re: XMLHTTP Post Request in LotusScript
« Antwort #1 am: 06.11.20 - 17:22:14 »
.. nach ein wenig google, kam folgendes heraus, das klingt für mich logisch:

...
xmlhttp.setRequestHeader "content-type", "application/pdf"
xmlhttp.setRequestHeader "Content-Length", Len(PdfData)    ' WICHTIG meiner Meinung nach
xmlhttp.send PdfData
...

Ist nur die Frage ob man das BASE64-codiert oder in welchem Format das da rein muss.
Das dürfest du aber mit ein wenig Googlen noch heraus finden.

Schönen Abend / Wochenende
LG
Marco
Grüße
Marco Weller
Lotus Domino / Lotus Notes seit 1996 (ab 4.5x)

Offline TheHessian

  • Frischling
  • *
  • Beiträge: 13
  • Geschlecht: Männlich
Re: XMLHTTP Post Request in LotusScript
« Antwort #2 am: 09.11.20 - 14:31:07 »
Hallo,

das ist ja gerade mein Problem, dass ich nicht weiss, wie ich die PDF Datei aufbereiten muss, dass sie über den SEND Befehl übermittelt werden kann.
Eigentlich kann der SEND Befehl als Parameter nur einen STRING verarbeiten.

MfG
Marcus Müller

Offline Tode

  • Moderatoren
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 6.870
  • Geschlecht: Männlich
  • Geht nicht, gibt's (fast) nicht... *g*
Re: XMLHTTP Post Request in LotusScript
« Antwort #3 am: 09.11.20 - 16:09:22 »
Du kannst ein Mime- Item hierzu "missbrauchen" (siehe diesen Best Practice Artikel):

Code
Dim stream as NotesStream
Dim ses as New NotesSession
Dim db as NotesDatabase
Dim doc as NotesDocument
Dim mimeent as NotesMimeEntity
Dim strEncodedFile as String
Set db = ses.CurrentDatabase
Set stream = ses.CreateStream()
call stream.Open( PathToYourAttachment )
Set doc=New NotesDocument(db)
Set miment=doc.CreateMIMEEntity
Call miment.SetContentFromBytes(stream, "", ENC_IDENTITY_BINARY)
Call miment.EncodeContent(ENC_BASE64)
strEncodedFile =miment.ContentAsText()
Gruss
Torsten (Tode)

P.S.: Da mein Nickname immer mal wieder für Verwirrung sorgt: Tode hat NICHTS mit Tod zu tun. So klingt es einfach, wenn ein 2- Jähriger versucht "Torsten" zu sagen... das klingt dann so: "Tooode" (langes O, das r, s und n werden verschluckt, das t wird zum badischen d)

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz