IntPost problem

[Gintaras]

Try to replace Http.Post text to

Code:

Copy      Help

function# $action $frmdata [str&responsepage] [$headers]

;Posts web form data. At first, call Connect.
;Returns 1 on success, 0 on failure.
;action - script's path relative to server.
;frmdata - urlencoded string. To urlencode, use str.escape.
;responsepage - if used, is populated with contents of response page (html).
;headers - additional headers. Default: "Content-Type: application/x-www-form-urlencoded"

;See also: <IntPost> function.


int hiopen=inet.HttpOpenRequest(m_hi "POST" action 0 0 0 inet.INTERNET_FLAG_RELOAD 0); if(!hiopen) goto(e)
if(!len(headers)) headers="Content-Type: application/x-www-form-urlencoded"
int r=inet.HttpSendRequest(hiopen headers -1 frmdata len(frmdata)); if(!r) goto(e)

if(&responsepage)
,int size
,responsepage.all
,rep
,,if(!inet.InternetQueryDataAvailable(hiopen &size 0 0)) break
,,if(size)
,,,responsepage.all(responsepage.len+size 1)
,,,if(!inet.InternetReadFile(hiopen responsepage+responsepage.len size &size)) goto e
,,responsepage.fix(responsepage.len+size)
,,if(size=0) break

inet.InternetCloseHandle hiopen
ret 1
;e
if(hiopen) inet.InternetCloseHandle hiopen
Error

Fixed 2 small bugs, but it probably will not change anything.