 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
港湾
註冊時間: 2016-04-08
文章: 8
第 1 樓
|
 發表於: 星期二 四月 19, 2016 10:22 am 文章主題: 请教各位两个程序同时执行的问题 |
 |
|
现有a1.EXE文件和一个a2.prg文件，两个文件独立执行各自功能，要求a1.EXE和a2.prg 并行（同时处于运行状态），a1.exe文件不间断发送返回值，a2.prg根据需求随机读取a1.exe的返回值。
该如何实现呢？ |
|
| 回頂端 |
|
 |
syntech
註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan
第 2 樓
|
| 發表於: 星期二 四月 19, 2016 11:10 am 文章主題: |
|
|
如果跟你上一個問題一起看.
通常這種問題都是:
| 代碼: |
DECLARE INTEGER FUNC1 IN a.dll STRING, INTEGER
iRESULT = FUNC1('A',1)
|
或是
| 代碼: |
OBJ1 = CREATEOBJECT("A")
iRESULT = OBJ1.FUNC1('A',1)
|
看a.exe是怎麼設計.
如果沒有vfp 範例,
通常會找 vb6 範例,注意是vb6 的範例,不是 vb.net 的範例.
但偶爾會遇到參數型態(parameter type) 在 vfp 中不好對應的情況.
更古早的作法是
a.exe 會固定產生檔案(例如 txt file,dbf file 等等)或是記錄(table record),
a2 再讀取這個檔案
例如:會產生 b.txt
| 代碼: |
nRESULTLINE = ALINES(aRESULTArray, FILETOSTR("B.TXT"))
FOR I = 1 TO nRESULTLINE
? aRESULTArray(I)
NEXT
|
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
港湾
註冊時間: 2016-04-08
文章: 8
第 3 樓
|
| 發表於: 星期二 四月 19, 2016 6:42 pm 文章主題: |
|
|
| syntech 寫到: | 如果跟你上一個問題一起看.
通常這種問題都是:
| 代碼: |
DECLARE INTEGER FUNC1 IN a.dll STRING, INTEGER
iRESULT = FUNC1('A',1)
|
或是
| 代碼: |
OBJ1 = CREATEOBJECT("A")
iRESULT = OBJ1.FUNC1('A',1)
|
看a.exe是怎麼設計.
如果沒有vfp 範例,
通常會找 vb6 範例,注意是vb6 的範例,不是 vb.net 的範例.
但偶爾會遇到參數型態(parameter type) 在 vfp 中不好對應的情況.
更古早的作法是
a.exe 會固定產生檔案(例如 txt file,dbf file 等等)或是記錄(table record),
a2 再讀取這個檔案
例如:會產生 b.txt
| 代碼: |
nRESULTLINE = ALINES(aRESULTArray, FILETOSTR("B.TXT"))
FOR I = 1 TO nRESULTLINE
? aRESULTArray(I)
NEXT
|
|
谢谢这位朋友的帮助，也许我的问题表述不太清楚。
我的意思让a1.exe文件和a2.prg文件同时在系统中运行。我觉得建一个批处理文件好像可以完成这个功能，但能不能在VFP中完成这个功能？如何做？然后像您所说的，a1.exe文件的返回值保存在了一个txt文件中，a2.prg文件去读取txt文件 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan
第 4 樓
|
| 發表於: 星期二 四月 19, 2016 8:43 pm 文章主題: |
|
|
如果你打算在VFP中處理批次作業,
那就利用TIMER 物件,定期執行A2.PRG.
| 代碼: |
loTim = CreateObject( "iTimer" )
accept "enter something" to lcJunk
return
define class iTimer as Timer
interval = 1000
function timer
do a2.prg
endfunc
enddefine
|
其實如果只是單純的執行A2.PRG,
把A2.PRG做成A2.EXE,
用OS的排程作業定期執行A2.EXE,
這樣就可以了.
簡體版OS在 [控制面板][任务计划]
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
港湾
註冊時間: 2016-04-08
文章: 8
第 5 樓
|
| 發表於: 星期三 四月 20, 2016 8:41 am 文章主題: |
|
|
| 谢谢syntech朋友！ |
|
| 回頂端 |
|
|
kalok
註冊時間: 2010-08-26
文章: 284
第 6 樓
|
| 發表於: 星期三 十一月 16, 2016 9:29 am 文章主題: |
|
|
| 算不算是multi thread問題? |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
