Sandro
Entirely untested, in the interest of getting you a quick fix you can try, put this code into a new class package, cWPFileUploadButton.pkg and use that in you code, then let me know how it goes:
Code:
Use cWebFileUploadButton.pkg
Class cWPWebFileUploadButton is a cWebFileUploadButton
Function psUploadUrl Returns String
String sURL sHome sHost sPort
Integer iPos
Forward Get psUploadUrl to sURL
Move (ServerVariable(ghoWebServiceDispatcher, "SERVER_NAME")) to sHost
Move (ServerVariable(ghoWebServiceDispatcher, "SERVER_PORT")) to sPort
Move (ServerVariable(ghoWebServiceDispatcher, "URL")) to sHome
Move (Pos("WebServiceDispatcher.wso", sHome)) to iPos
Move (Left(sHome, (iPos - 1))) to sHome
Move ("//" + sHost + ":" +sPort + sHome + sURL) to sURL
Function_Return sURL
End_Function
End_Class
Mike