IntPost problem

[Gintaras]

New line was missing after file data. I also added Content-type.

Code:

Copy      Help

ClearOutput
int useIE=1

str s sh sr
s.getfile("$desktop$\test.png")
s.encrypt(4)
s-"--7d23542a1a12c2[]Content-Disposition: form-data; name=''userfile''; filename=''test.png''[]Content-Type: image/png[]Content-transfer-encoding: base64[][]"
s+"[]--7d23542a1a12c2--[]"
sh="Content-Type: multipart/form-data; boundary=7d23542a1a12c2[]"

;out s

if(!useIE)
,IntPost "http://www.nightchatter.com/uploader.php" s sr sh
else
,VARIANT v vh
,vh=sh
,ARRAY(byte) a.create(s.len+1)
,memcpy(&a[0] s a.len)
,v.attach(a)
,
,int h=win
,SHDocVw.InternetExplorer b._create
,act h
,b.Navigate("http://www.nightchatter.com/uploader.php" @ @ v vh)
,1
,rep() 0.1; if(!b.Busy) break
,MSHTML.IHTMLDocument2 doc=b.Document
,sr=doc.body.innerText

out sr

Also works when useIE=0.