surl is string="http://api.averbeporto.com.br/php/conn.php"
sUsuario is string=EDT_Login
senha is string=EDT_Senha
meupost is httpRequest
meupost.Method=httpPost
meupost.URL=surl
meupost.Header["ContentType"]="application/x-www-form-urlencoded"
meupost.Content="mod=login&comp=5&user=[%sUsuario%]&pass=[%senha%]"
cMyResponse is httpResponse = HTTPSend(meupost)

IF ErrorOccurred THEN
Error(ErrorInfo(errFullDetails))
RETURN
END

arrMeucookie is array of Variant=cMyResponse.GetCookie()

sCookienome is string=arrMeucookie[1].name
sCookievalue is string=arrMeucookie[1].value

HTTPCreateForm("ps")
HTTPAddFile("ps","file","c:\tmp\cte.xml")
HTTPAddParameter("ps","mod","Upload")
HTTPAddParameter("ps","comp","5")
HTTPAddParameter("ps","path","eguarda/php/")
HTTPAddParameter("ps","recipient","T")
HTTPCookieWrite(surl,"Cookie",sCookienome+"="+sCookievalue)
HTTPAddParameter("ps","path","eguarda/php/")
IF HTTPSendForm("ps",surl,httpPost) THEN
Info("ok")
ELSE
Info("Erro")
END

Info(HTTPGetResult(httpCookie))
Info(HTTPGetResult(httpHeader))
Info(HTTPGetResult(httpResult))