unsignedinteger version
unsignedinteger highversion
character description[257]
character systemstatus[129]
unsignedinteger maxsockets
unsignedinteger maxupddg
string vendorinfo
unsignedlong s_addr
character ttl
character tos
character flags
character optionssize
unsignedlong optionsdata
unsignedlong address
unsignedlong status
unsignedlong roundtriptime
unsignedlong datasize
unsignedinteger reserved
unsignedlong ptrdata
str_ip_option_information options
character data[256]
//Open the socket connection.
FUNCTION Integer WSAStartup( uint UIVersionRequested, ref str_WSAData lpWSAData ) library "wsock32.dll" alias for "WSAStartup;ANSI"
//Clean up sockets.
FUNCTION Integer WSACleanup() library "wsock32.dll" alias for "WSACleanup;ANSI"
//Create a handle on which Internet Control Message Protocol (ICMP) requests can be issued.
FUNCTION Ulong IcmpCreateFile() Library "icmp.dll"
//Close an Internet Control Message Protocol (ICMP) handle that IcmpCreateFile opens.
FUNCTION Ulong IcmpCloseHandle(ULong IcmpHandle) Library "icmp.dll"
//Send an Internet Control Message Protocol (ICMP) echo request, and then return one or more replies.
FUNCTION Ulong IcmpSendEcho(ULong IcmpHandle,ULong DestinationAddress,String RequestData,ULong RequestSize,ULong RequestOptions,ref str_icmpechoreply ReplyBuffer,ULong ReplySize,ULong Timeout) Library "icmp.dll" alias for "IcmpSendEcho;ANSI"
// 轉換IP字串成IP資料位址Convert a string that contains an (Ipv4) Internet Protocol dotted address into a correct address.
FUNCTION ULong inet_addr(string ip_addr) library "ws2_32.dll" alias for "inet_addr;ANSI"
Constant ULong WS_VERSION_REQD = 257
Constant Long ICMP_SUCCESS = 0
Constant Long ICMP_STATUS_BUFFER_TO_SMALL = 11001 //Buffer Too Small
Constant Long ICMP_STATUS_DESTINATION_NET_UNREACH = 11002 //Destination Net Unreachable
Constant Long ICMP_STATUS_DESTINATION_HOST_UNREACH = 11003 //Destination Host Unreachable
Constant Long ICMP_STATUS_DESTINATION_PROTOCOL_UNREACH = 11004 //Destination Protocol Unreachable
Constant Long ICMP_STATUS_DESTINATION_PORT_UNREACH = 11005 //Destination Port Unreachable
Constant Long ICMP_STATUS_NO_RESOURCE = 11006 //No Resources
Constant Long ICMP_STATUS_BAD_OPTION = 11007 //Bad Option
Constant Long ICMP_STATUS_HARDWARE_ERROR = 11008 //Hardware Error
Constant Long ICMP_STATUS_LARGE_PACKET = 11009 //Packet Too Big
Constant Long ICMP_STATUS_REQUEST_TIMED_OUT = 11010 //Request Timed Out
Constant Long ICMP_STATUS_BAD_REQUEST = 11011 //Bad Request
Constant Long ICMP_STATUS_BAD_ROUTE = 11012 //Bad Route
Constant Long ICMP_STATUS_TTL_EXPIRED_TRANSIT = 11013 //TimeToLive Expired Transit
Constant Long ICMP_STATUS_TTL_EXPIRED_REASSEMBLY = 11014 //TimeToLive Expired Reassembly
Constant Long ICMP_STATUS_PARAMETER = 11015 //Parameter Problem
Constant Long ICMP_STATUS_SOURCE_QUENCH = 11016 //Source Quench
Constant Long ICMP_STATUS_OPTION_TOO_BIG = 11017 //Option Too Big
Constant Long ICMP_STATUS_BAD_DESTINATION = 11018 //Bad Destination
Constant Long ICMP_STATUS_NEGOTIATING_IPSEC = 11032 //Negotiating IPSEC
Constant Long ICMP_STATUS_GENERAL_FAILURE = 11050 //General Failure
String ls_ret
Choose case PingResponse
Case ICMP_SUCCESS
ls_ret = "Success!"
Case ICMP_STATUS_BUFFER_TO_SMALL
ls_ret = "Buffer Too Small"
Case ICMP_STATUS_DESTINATION_NET_UNREACH
ls_ret = "Destination Net Unreachable"
Case ICMP_STATUS_DESTINATION_HOST_UNREACH
ls_ret = "Destination Host Unreachable"
Case ICMP_STATUS_DESTINATION_PROTOCOL_UNREACH
ls_ret = "Destination Protocol Unreachable"
Case ICMP_STATUS_DESTINATION_PORT_UNREACH
ls_ret = "Destination Port Unreachable"
Case ICMP_STATUS_NO_RESOURCE
ls_ret = "No Resources"
Case ICMP_STATUS_BAD_OPTION
ls_ret = "Bad Option"
Case ICMP_STATUS_HARDWARE_ERROR
ls_ret = "Hardware Error"
Case ICMP_STATUS_LARGE_PACKET
ls_ret = "Packet Too Big"
Case ICMP_STATUS_REQUEST_TIMED_OUT
ls_ret = "Request Timed Out"
Case ICMP_STATUS_BAD_REQUEST
ls_ret = "Bad Request"
Case ICMP_STATUS_BAD_ROUTE
ls_ret = "Bad Route"
Case ICMP_STATUS_TTL_EXPIRED_TRANSIT
ls_ret = "TimeToLive Expired Transit"
Case ICMP_STATUS_TTL_EXPIRED_REASSEMBLY
ls_ret = "TimeToLive Expired Reassembly"
Case ICMP_STATUS_PARAMETER
ls_ret = "Parameter Problem"
Case ICMP_STATUS_SOURCE_QUENCH
ls_ret = "Source Quench"
Case ICMP_STATUS_OPTION_TOO_BIG
ls_ret = "Option Too Big"
Case ICMP_STATUS_BAD_DESTINATION
ls_ret = "Bad Destination"
Case ICMP_STATUS_NEGOTIATING_IPSEC
ls_ret = "Negotiating IPSEC"
Case ICMP_STATUS_GENERAL_FAILURE
ls_ret = "General Failure"
Case Else
ls_ret = "Unknown Response"
End Choose
Return ls_ret
str_wsadata lstr_wsadata
str_icmp_echo_reply lstr_reply
Ulong lul_timeout , lul_address , lul_hIcmp , lul_size
Integer li_res
String ls_pingIP , ls_send , ls_msg
n_sizeof ln_size
ls_pingIP = "168.95.1.1" //中華電信DNS
ls_send = "hello"
lul_timeout = 1000 //(ms , 1 秒)
lstr_wsadata.vendorinfo = space(256)
//建立SOCKET
li_res = wsastartup (WS_VERSION_REQD, lstr_wsadata)
if li_res <> 0 then return
//轉換IP位址字串
lul_address = inet_addr(ls_pingIP)
if lul_address <> -1 and lul_address <> 0 then
//建立ICMP請求
lul_hIcmp = IcmpCreateFile()
if isnull(lul_hIcmp) then
messagebox("錯誤","ICMP請求建立失敗!")
else
lul_size = size.sizeof(lstr_reply)
IcmpSendEcho(lul_hIcmp, lul_address, ls_send, Len(ls_send), 0, lstr_reply,lul_size,lul_timeout)
//取得訊息
ls_msg = wf_icmpmsg(lstr_reply.status)
messagebox("Ping " + ls_pingIP + " :" , "Icmp code : " + String(lstr_reply.status) + "~r~n" + &
"Response Message : " + ls_msg + "~r~n" + &
"Time : " + String(lstr_reply.RoundTripTime) + " ms")
//關閉ICMP請求
IcmpCloseHandle(lul_hIcmp)
end if
else
messagebox("錯誤","IP位址不合法!")
end if
//關閉SOCKET
wsacleanup()
Private:
CONSTANT integer SIZE_BOOLEAN = 1 // Boolean
CONSTANT integer SIZE_CHAR = 1 // Char
CONSTANT integer SIZE_INT = 2 // Signed integer
CONSTANT integer SIZE_UINT = 2 // Unsigned integer
CONSTANT integer SIZE_LONG = 4 // Signed Long
CONSTANT integer SIZE_ULONG = 4 // Unsigned Long
CONSTANT integer SIZE_STRING = 4 // Assume as string pointer
// Supported DataTypes
integer INTEGER
uint UINT
long LONG
ulong ULONG
char CHAR
string STRING
boolean BOOLEAN
//SORT data
function sortDW1(field,kind){
dwset.sort(function(a,b){
if (kind=="A"){
return a[field].localeCompare(b[field])
}else{
return b[field].localeCompare(a[field])
};
});
};
DataStore lds_src
Long ll_row , ll_rcount
Integer li_col , li_ccount
//建立一個資料倉儲並使之與資料視窗的來源物件相同
lds_src = Create DataStore
lds_src.DataObject = dw_1.DataStore
lds_src.SetTransObject(SQLCA)
//由資料倉儲來讀取資料
lds_src.Retrieve()
ll_rcount = lds_src.RowCount()
li_ccount = integer(dw_1.Object.DataWindow.Column.Count)
for ll_row = 1 to ll_rcount
for li_col = 1 to li_ccount
//複製資料蓋掉畫面上的資料
dw_1.Object.Data[ll_row , li_col] = lds_src.Object.Data[ll_row , li_col]
next
next
//移除畫面上多餘的資料(如果有的話)
if ll_row <= dw_1.RowCount() then
do while dw_1.RowCount() > lds_src.RowCount()
dw_1.DeleteRow(dw_1.RowCount())
loop
end if
Destroy lds_src
當然為了提高效率，你可以把淡藍色的部份放在該 window 的 open 事件裡面，
只是 lds_src 就必須定義在 Instance 變數區內以方便呼叫使用，
而粉色的部份就放到 window 的 close 事件去處理就好了。
DWItemStatus ldwi_row
ldwi_row = dw_1.GetItemStatus(ll_row , li_column , Primary!)或
ldwi_row = dw_1.GetItemStatus(ll_row , "col_name", Primary!)
New! (新增 row)但是要注意的是一個 Row 有兩種狀態 Flag (標籤)用來記錄其受影響的目標：
NewModified! (新增 row 並修改內容)
DataModified! (資料內容被修改)
NotModified! (沒有任何修改)
Row Flag (影響範圍屬於整列狀態，一列資料只有一個這樣的標籤紀錄)而各狀態相關的範圍如下：
Column Flag (影響範圍為單一欄位，每個欄位都有一個這樣的標籤紀錄)
| 狀態 | 受影響標籤 |
|---|---|
| New! | Rows |
| NewModified! | Rows |
| DataModified! | Rows 與 Columns |
| NotModified! | Rows 與 Columns |
Blob lblb_args
String ls_headers , ls_url
Long ll_length
n_internetresult lir_html
inet linet
linet = Create inet
lir_html = CREATE n_internetresult
ls_url = "http://www.mydoamin.com/testpage.cfm"
lblb_args = blob("")
ll_length = Len(lblb_args)
ls_headers = "Content-Length: " + String(ll_length) + "~n~n"
linet.PostURL (ls_url, lblb_args, ls_headers, 8080, lir_html)
destroy lir_html
destroy linet
linet.GetURL("http://www.mydoamin.com:8080/testpage.cfm",lir_html)
inetinet直接建立(instance)就可以了，例如：
internetResult
inet linet
linet = Create inet
而接收inet傳回的資料就需要 internetResult 了，
<cfcookie name="cid" value="123456" expires="1">
<cfset idvar = cookie.cid>
#cookie.cid#