o.cServerUrl                                                    

Remarks

Example

CLOSE ALL
DO WCONNECT
SET CLASSLIB TO WWDEVELOPER ADDIT

oDev = CREATEOBJECT("cDeveloper")
oDev.nDataMode = 4
oDev.cServerUrl = "http://localhost/wconnect/wc.dll?http~HTTPSQL"

*** To configure call Open() then access the oHTTPSQL object directly
*** wwHTTPSQL is subclassed from wwHTTP
oDev.Open()
* oDev.oHTTPSQL.cUsername = "rick"
* oDev.oHTTPSQL.cPassword = "keepguessingbuddy"
oDev.oHTTPSQL.nConnectTimeout = 40

oDev.Query()   && Retrieve all records
BROWSE 

*** Load one object
oDev.Load(8)
? oDev.oData.Company
? oDev.oData.Name
oDev.oData.Company = "West Wind Technologies"
oDev.Save()

*** Create a new entry
? oDev.New()

loData = oDev.oData

loData.Company = "TEST COMPANY"
loData.Name = "Rick Sttrahl"
oDev.Save()

oDev.Execute("select * from wwDevRegistry where company like 'W%'")
BROWSE

RETURN 


*** Server Side Code
FUNCTION HTTPSQL()

*** Create Data Object and call Server Side Execute method (wrapper for Process Method)
SET PROCEDURE TO wwHTTPSQLServer ADDITIVE
loData = CREATE("wwHTTPSQLServer")

loData.cAllowedCommands = "select,execute,insert,update"

*** This can be done with Server.oDeveloperSql to persist connections
*** for much faster response times
oSQL = CREATEOBJECT("wwSQL")
oSQL.cConnectString = "server=(local);driver={SQL Server};database=wwDeveloper;pwd=sa;uid=;"
loData.oSQL = oSQL &&Server.owwDevSql

loData.cRequestXML = Request.FormXML()
loData.S_Execute()   

*** Return the result XML response
loHeader = CREATEOBJECT("wwHTTPHeader")
loHeader.SetProtocol()
loHeader.SetContentType("text/xml")
loHeader.AddForceReload()
loHeader.AddHeader("Content-length",TRANSFORM(LEN(loData.cResponseXML)))
Response.Write( loHeader.GetOutput() )

Response.Write( loData.cResponseXML )
ENDFUNC
*  HTTP :: HTTPSQL

See also: