|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
syntech
註冊時間: 2003-05-16 文章: 4214 來自: Taipei,Taiwan
第 1 樓
|
發表於: 星期一 八月 18, 2014 5:08 pm 文章主題: 使用 eBay API 的範例 |
|
|
看懂多少,算多少.
VFP 9 範例
代碼: |
* UNICODE 環境
=SYS(987,.T.)
=SYS(3101,65001)
* Developer ID
DevID='XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
AppID='XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
CertID=''XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX''
* 綁定於某使用者的 UserToken
UserToken='XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
&& 呼叫伺服器位置
&& siteID Indicates the eBay site to associate the call with
&& https://developer.ebay.com/DevZone/merchandising/docs/Concepts/SiteIDToGlobalID.html
siteID = "0"
&& API 版本
cVersion = "551"
&& 功能名稱
cFuncName = 'GetAccount'
&& 測試網頁
serverUrl='https://api.sandbox.ebay.com/ws/api.dll'
&& 功能參數內容
XMLRequest ="<?xml version="1.0" encoding="utf-8"?>"
XMLRequest =XMLRequest+"<GetAccountRequest xmlns="urn:ebay:apis:eBLBaseComponents">"
XMLRequest =XMLRequest+"<RequesterCredentials>"
XMLRequest =XMLRequest+"<eBayAuthToken>"+UserToken+"</eBayAuthToken>"
XMLRequest =XMLRequest+"</RequesterCredentials>"
XMLRequest =XMLRequest+"</GetAccountRequest>"
&& ---------------------
#DEFINE HTTPSTATUS_OK 200
#DEFINE HTTPSTATUS_CREATED 201
#DEFINE HTTPSTATUS_ACCEPTED 202
#DEFINE HTTPSTATUS_MULTISTATUS 207
#DEFINE HTTPSTATUS_BADREQUEST 400
#DEFINE HTTPSTATUS_UNAUTHORIZED 401
#DEFINE HTTPSTATUS_FORBIDDEN 403
#DEFINE HTTPSTATUS_NOTFOUND 404
#DEFINE HTTPSTATUS_INTERNALSERVERERROR 500
&& ---------------------
TRY
&& 建立 XMLHTTP
loXmlHttp = NEWOBJECT( "Microsoft.XMLHTTP" )
loXmlHttp.open( "POST" , serverUrl, .F. )
loXmlHttp.setRequestHeader('X-EBAY-API-COMPATIBILITY-LEVEL', cVersion)
loXmlHttp.setRequestHeader('X-EBAY-API-DEV-NAME', DevID)
loXmlHttp.setRequestHeader('X-EBAY-API-APP-NAME', AppID)
loXmlHttp.setRequestHeader('X-EBAY-API-CERT-NAME', CertID)
loXmlHttp.setRequestHeader('X-EBAY-API-SITEID', siteID)
loXmlHttp.setRequestHeader('X-EBAY-API-CALL-NAME', cFuncName)
&& 要傳給eBay API的內容
loXmlHttp.send(XMLRequest)
IF loXmlHttp.STATUS != 200
&& 失敗
lcMessage = TEXTMERGE( ;
"An error occurred - status = <<loXmlHttp.STATUS>><<loXmlHttp.statustext>>" )
MESSAGEBOX( lcMessage, 16, PROGRAM() )
EXIT
ENDIF
&& 成功
=MESSAGEBOX(loXmlHttp.responsetext)
CATCH TO oException
TEXT TO lcMessage TEXTMERGE NOSHOW PRETEXT 3
Error # <<oException.ErrorNo>> occured on line: <<oException.LINENO>> of <<oException.PROCEDURE>>.
Offending line of code:
<<oException.LineContents>>
Error Message:
<<oException.Details>>
ENDTEXT
MESSAGEBOX( lcMessage, 16, PROGRAM())
FINALLY
ENDTRY
|
_________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4214 來自: Taipei,Taiwan
第 2 樓
|
發表於: 星期三 八月 20, 2014 2:09 pm 文章主題: |
|
|
"CreateOBJECT(InternetExplorer.Application)" 用在你要解析的網站上較多.
可以用 HTML DOM 取出中間的節點,或是進行資料操作,
例如自動填表.
"CreateOBJECT(Microsoft.XMLHTTP)" 通常用在取回來的東西就是資料.
例如你要偷股票行情.或是台北市提供的公共服務等. _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|