XMLHTTP Post Request in LotusScript

[TheHessian]

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

[ghostmw]

.. 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

[TheHessian]

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

[Tode]

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()