 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
syntech
註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan
第 1 樓
|
 發表於: 星期三 十二月 15, 2004 6:28 pm 文章主題: VFP 利用IE及ASP執行遠端程式 |
 |
|
VFP 利用IE及ASP執行遠端程式
原理:
先將VFP程式編譯為VFP-COM物件(DLL),置於 App. Server中,再利用ASP
程式包住VFP-COM物件.
Client端則使用IE執行App. Server 上的ASP程式,藉此使用遠端server上
的VFP程式.
範例說明:
1.VFP-COM 製作:
a.先建立空白專案,令為 VFP_ASP01,定義class VFP_COM01,其中包含兩個
function GETKEYPRO()及USINGEXCEL(),其中USINGEXCEL使用了
late binding,如果要使用early binding 的話,請改用createobjectex() (vfp 7.0
以上提供),兩者差別請看on-line help或相關文件.
| 代碼: |
DEFINE CLASS VFP_COM01 AS Custom OLEPUBLIC
************************************************************************************
* 檢查 是否安裝 單機 KEYPRO
************************************************************************************
FUNCTION GETKEYPRO( cSYS_NO AS STRING) AS STRING
&& 支援參數
PUBLIC ARRAY aFile[10,8], aKeyValue[10,10], aKey[10,10]
PUBLIC ARRAY RECNB[10], RE[10]
PUBLIC IS_CASE
STORE .F. TO IS_CASE
&& 區域變數
LOCAL VALE,cMESSSAGE1
&& KEYPRO檢查
&& .F. : 沒有使用權限
&& .T. : 有使用權限
VALE = KEY_WD(cSYS_NO)
IF VALE = .F.
STORE "N" TO cMESSAGE1 && 沒有使用權限
ELSE
STORE "Y" TO cMESSAGE1 && 有使用權限
ENDIF
RETURN cMESSAGE1
ENDFUNC
************************************************************************************
* 建立EXCEL物件,產生一EXCEL檔案
************************************************************************************
FUNCTION USINGEXCEL( ) as String
X=CREATEOBJECT('Excel.application') && 建立一個EXCEL物件
X.Workbooks.Add() && 新增一個工作區
X.Range("A1").Select && 選擇CELL A1
X.ActiveCell.FormulaR1C1 = "1" && 填入 1
X.ActiveWorkbook.SaveAs('c:\b.xls' ) && 存檔成 C:\B.XLS
X.Quit() && 關閉EXCEL
RELEASE X
RETURN 'OK'
ENDFUNC
************************************************************************************
ENDDEFINE
|
b.Build時選擇 Multi-threaded COM server (dll),建立vfp_asp01.dll
(註:作成 Win32 executable/COM server (exe) ,或 Single-threaded COM server (dll),都可以,其中差異,請參閱相關文件)
c.開啟regedit,可以發現系統多註冊了一個 vfp_asp01.VFP_COM01物件,其中vfp_asp01為專案名稱,VFP_COM01是自定義Class的名稱.
d.可以直接建立vfp_asp01.VFP_COM01於Local端測試.
| 代碼: |
LOCAL cTEST
X=CREATEOBJECT('VFP_ASP01.VFP_COM01') && 建立VFP_ASP01.VFP_COM01物件
&& 執行該物件的GETKEYPRO()檢查KEYPRO
cTEST=X.GETKEYPRO('BMS')
IF cTEST = 'Y'
? "有使用權限!!"
ELSE
? "沒有使用權限!!"
ENDIF
&& 執行USINGEXCEL()以建立EXCEL文件
? X.USINGEXCEL()
RELEASE ALL
|
2.ASP 程式撰寫:
a.撰寫兩個ASP程式,第一個令為keypro.asp,第二個令為useexcel.asp,這裡也用了late binding.
| 代碼: |
<%
set x= Server.CreateObject("vfp_asp01.VFP_COM01")
Response.Write x.GETKEYPRO("BMS")
Response.End
%>
|
| 代碼: |
<%
set x= Server.CreateObject("vfp_asp01.VFP_COM01")
Response.Write x.USINGEXCEL()
Response.End
%>
|
3. VFP Client 端程式撰寫
a.client端程式一樣利用createobject()建立IE物件,但改執行遠端的asp程式
| 代碼: |
LOCAL cTEST
CLEAR
LOCAL X as InternetExplorer.Application,llSuccess as Logical
X=CREATEOBJECT('InternetExplorer.Application') && 建立 IE 物件
X.VISIBLE=.T.
X.Navigate('http://localhost/vfp/keypro.asp') && 變更網址到 asp 處
* Wait for IE to do it
llSuccess = lWait( X)
STORE ALLTRIM(TRANSFORM(X.Document.body.innertext)) TO cTEST && 依內文存取
X.Quit ()
IF cTEST = 'Y'
? "有使用權限!!"
ELSE
? "沒有使用權限!!"
ENDIF
X=CREATEOBJECT('InternetExplorer.Application') && 建立 IE 物件
X.Navigate('http://localhost/vfp/useexcel.asp')
* Wait for IE to do it
llSuccess = lWait( X)
? TRANSFORM(X.Document.body.innertext) && 依內文存取
X.Quit ()
RELEASE ALL
******************************
Function lWait( toIE )
* Wait for IE to process what you told it too.
* There has got to be a simpler way to do this.
DECLARE Sleep IN Win32API INTEGER nMilliseconds
Local ;
ltStartTime, ;
ltTimeOut, ;
lcCheckThis, ;
llRet
ltStartTime = Datetime()
ltTimeOut = ltStartTime + 60
DO WHILE (Datetime() < ltTimeOut ) ;
AND type( "toIE.document" ) <> "O"
=Sleep(1000)
EndDo
DO WHILE (Datetime() < ltTimeOut ) ;
AND toIE.busy
=Sleep(1000)
ENDDO
=Sleep(1000)
ENDDO
DO WHILE (Datetime() < ltTimeOut ) ;
and type( "toie.document.readystate" ) <> "C"
=Sleep(1000)
ENDDO
DO WHILE (Datetime() < ltTimeOut ) ;
and toie.document.readystate <> "complete"
=Sleep(1000)
ENDDO
llRet = Datetime() < ltTimeOut
If !llREt
toie.Stop()
EndIf
RETURN llRet
* EOF
|
討論:
1.這只是簡單的範例,所以並未做錯誤處理的程序.
2.用X.Document.body.innertext還需要做轉換,才能讓client程式使用,較web service 複雜,其實還是web service好用一點.
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
 |
syntech
註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan
第 2 樓
|
| 發表於: 星期三 十二月 15, 2004 6:31 pm 文章主題: |
|
|
沒有source ,
從文件上自己抓就是了.
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
slboy
註冊時間: 2004-10-22
文章: 5
第 3 樓
|
| 發表於: 星期六 十二月 25, 2004 5:42 pm 文章主題: |
|
|
的确是创意无限！
请问:
1：用什么方法可以调出进度条？ie里有进度条呵，若加上进度条，用起上来实在是相当漂亮。
2：web service 与这种方式有何区别，web service服务器配置比这种方式麻烦很多啊！客户端又要增加soap协议。相比之下这种纯asp方式简单得多了。 |
|
| 回頂端 |
|
|
bin1x
註冊時間: 2004-08-27
文章: 462
第 4 樓
|
| 發表於: 星期六 十二月 25, 2004 7:14 pm 文章主題: |
|
|
LOCAL X as InternetExplorer.Application,llSuccess as Logical
請教一下這句語法
是可宣告嗎?
連資料型態都可宣告嗎?
少了這句也沒關係吧
從以前寫db?系列下來,從沒有宣告過資料型態
突然看到覺得有趣,所以提出來一下 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan
第 5 樓
|
| 發表於: 星期六 十二月 25, 2004 9:04 pm 文章主題: |
|
|
| bin1x 寫到: | LOCAL X as InternetExplorer.Application,llSuccess as Logical
請教一下這句語法
是可宣告嗎?
連資料型態都可宣告嗎?
少了這句也沒關係吧
從以前寫db?系列下來,從沒有宣告過資料型態
突然看到覺得有趣,所以提出來一下 |
的確是不這樣宣告也不會出問題,
我只是想表現 VFP 的 late binding,
可以查一下 help (vfp7 later)
Early(vtable) and Late (IDispatch)
其中:
late binding:
| 代碼: |
LOCAL xlApp2 As Excel.Application
xlApp2 = CreateObject("Excel.Application")
|
early binding
| 代碼: |
LOCAL xlApp1 As Excel.Application
xlApp1 = CreateObjectEx("Excel.Application","","")
|
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan
第 6 樓
|
| 發表於: 星期六 十二月 25, 2004 9:09 pm 文章主題: |
|
|
如果要作 VFP-COM,WEB SERVICE 之類的程式,
應該要把傳統 xBase 的 變數弱型態 (也就是 變數的型態可以後來指定),
改為其他通用語言一樣的變數強型態(也就是宣告變數時也必須同時宣告其型態)
這是我研究這幾天的心得
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan
第 7 樓
|
| 發表於: 星期六 十二月 25, 2004 9:18 pm 文章主題: |
|
|
| slboy 寫到: | 的确是创意无限！
请问:
1：用什么方法可以调出进度条？ie里有进度条呵，若加上进度条，用起上来实在是相当漂亮。
2：web service 与这种方式有何区别，web service服务器配置比这种方式麻烦很多啊！客户端又要增加soap协议。相比之下这种纯asp方式简单得多了。 |
1. 這可能要研究 ie 的物件模型. 請參閱:
http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/webbrowser/reference/objects/internetexplorer.asp
2.我覺得兩種都有其優缺,不過ie+asp 只能用在 m$ 環境下,不管是server還是client.但是 web service 就有跨平台的優點.例如用vfp client 呼叫 java web service,或是用 java client 呼叫 vfp web service.
不管是哪一種,我都只是剛剛推進這扇門的初學者,還需要多多研究.
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
bin1x
註冊時間: 2004-08-27
文章: 462
第 8 樓
|
| 發表於: 星期日 十二月 26, 2004 11:00 am 文章主題: |
|
|
由於我對web services 這種東西概念上不是很懂
有上過幾次課
可以還是模模糊糊的
所以在foxpro中我想對這句話
? TRANSFORM(X.Document.body.innertext) && 依內文存取
提出一些問題來討論(事先聲明哦,我概念不是很明白,所以請多指導)
innertext 這個東西是ie.appliction 物件中的一個東西
好像有點明白又不太明白
在java 之中有個context 可能和它很像吧
但是這個東西又在orcale 裏面看過
這個東西能做什麼?
還有在linux系統中,曾看過有個東西叫文件管理
innertext
context
文件管理
這三個詞好像有相關,卻不屬於不同的領域之中的東西
所以請教一下(再三說明哦,都有接觸一點點,卻不是很深入的概念
如果有明白的人,不妨提出指導一下,或是根本都沒啥關係) |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan
第 9 樓
|
| 發表於: 星期日 十二月 26, 2004 11:25 am 文章主題: |
|
|
我是覺得一點關係都沒有,
祇是一個物件的名稱而已.
類似的物件恰巧名稱取到一樣而已.
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan
第 10 樓
|
| 發表於: 星期日 十二月 26, 2004 11:30 am 文章主題: |
|
|
說到這個 "TRANSFORM(X.Document.body.innertext)",
如果用 IE+ASP 的話,
似乎只能靠這個來傳遞結果,
或是需搭配什麼的,
因為我ASP不熟.
如果必須依賴innertext的話,
就必須自己處理運算結果成想要的型態.
相較之類,Web service 就直接處理為想要的型態,
可以比較這一點.
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
elleryq
註冊時間: 2007-06-21
文章: 768
第 11 樓
|
| 發表於: 星期日 十二月 26, 2004 4:40 pm 文章主題: |
|
|
syntech 兄寫的超仔細的~~
回答的也超仔細的~~
^_^
X.Document.body.innertext 是 IE DOM 裡面的一個屬性而已~
表示 body 這個 tag 包起來的內容...
| 引言回覆: | 如果要作 VFP-COM,WEB SERVICE 之類的程式,
應該要把傳統 xBase 的 變數弱型態 (也就是 變數的型態可以後來指定),
改為其他通用語言一樣的變數強型態(也就是宣告變數時也必須同時宣告其型態)
這是我研究這幾天的心得 |
這是 Web service 的底層, SOAP 所規定的,詳細內容可以參考 SOAP 的 specification. 記得 2000 年左右剛推出的時候,我就去下載來看過....原理不會很難... |
|
| 回頂端 |
|
|
bin1x
註冊時間: 2004-08-27
文章: 462
第 12 樓
|
| 發表於: 星期日 十二月 26, 2004 8:08 pm 文章主題: |
|
|
| 了了 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan
第 13 樓
|
| 發表於: 星期日 一月 02, 2005 8:02 pm 文章主題: |
|
|
可以說是,也可以說不是,
因為這裡漏了ASP的安全(權限)控制,
如果加上ASP安全控制就能控制使用者
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
madeinchina2004
註冊時間: 2005-01-12
文章: 1
第 14 樓
|
| 發表於: 星期一 一月 17, 2005 1:10 pm 文章主題: |
|
|
LOCAL VALE,cMESSSAGE1
&& KEYPRO检查
&& .F. : 没有使用权限
&& .T. : 有使用权限
VALE = KEY_WD(cSYS_NO)
我的电脑显示KEY_WD没有定义,如何解决? |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan
第 15 樓
|
| 發表於: 星期一 一月 17, 2005 1:38 pm 文章主題: |
|
|
因為 KEY_WD.PRG 我沒給! 
| 代碼: |
FUNC KEY_WD
LPARAMETERS CSYS_NO
Local RET
STORE .t. to RET
* 這裡是機密
RETURN RET
ENDFUNC
|
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
