| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
Vincent_JL
註冊時間: 2004-11-04
文章: 2
來自: Taiwan
第 16 樓
|
 發表於: 星期四 八月 25, 2005 7:05 pm 文章主題: |
 |
|
Dear ckp6250:
請教一個問題，您的Sample似乎沒有Error Control，若有的話可否Sharing...!
ＴＫＳ+++! |
|
| 回頂端 |
|
 |
ckp6250
註冊時間: 2004-07-30
文章: 1644
第 17 樓
|
| 發表於: 星期四 八月 25, 2005 10:28 pm 文章主題: |
|
|
Vincent_JL您好：
基本上這個程序是有經過實作的，它只提供操作模型，至於Error Control的部份，就麻煩您自己加工了 |
|
| 回頂端 |
|
|
pj1688888
註冊時間: 2005-12-12
文章: 5
第 18 樓
|
| 發表於: 星期一 十二月 12, 2005 11:21 pm 文章主題: Re: 於VFP內發送傳真 |
|
|
我想用foxpro發送傳真,看到你FaxClientXControl.OCX的方法，但一直試不出來，可否麻煩你舉個例子，在foxpro下如何寫程式發送傳真..謝謝
| 小賴 寫到: | 公司採購訂單一向由傳真通知廠商;此種多文多發
(一次傳送多封傳真且每張傳真內容不同)的方式
一般市面傳真軟體似乎難以滿足我們的需求
最近於中華電訊網站無意中發現 FaxClientXControl.OCX
可於VFP直接使用達到傳真的目的,希望好東西能與好朋友分亨
故而在此野人獻曝,敬請指教 !
下載地
http://hinetfax.hinet.net/download.htm
Socket2 Fax 程式和使用說明 |
|
|
| 回頂端 |
|
|
小賴
註冊時間: 2004-12-27
文章: 470
第 19 樓
|
| 發表於: 星期二 十二月 13, 2005 10:51 am 文章主題: |
|
|
TO:pj1688888兄
1. 請容我一段時間整理再貼上來(1 - 2天吧)
2. 是否先確認一下事前工作 :
a. 已下載安裝HiNetFax網際傅真2003
(你可以手動方式於EXCEL, WORD等軟體利用Print功能傳真)
b. 是否已註冊 FaxClientXControl.OCX
REGSVE32 FaxClientXControl.OCX
c 加值服務驗證視窗是否已設定為"自動登錄"
開始- > 程式集 -> HiNetFax網際傳真2003 -> HiNetFax設定
-> 密碼檢查 -> 儲存帳號 ; 儲存密碼 ; 自動登錄 |
|
| 回頂端 |
|
|
小賴
註冊時間: 2004-12-27
文章: 470
第 20 樓
|
| 發表於: 星期二 十二月 20, 2005 10:20 am 文章主題: |
|
|
HinetFax傳真例子：
| 代碼: |
oFax1 = NEWOBJECT("HinetFax")
oFax1.SetFaxNumber("2692413")
* 傳真號碼 "2692413" ---> 改成你要傳真的號碼
REPORT FORM C:\JKPROGRAM\MOD\ModFax431 TO PRINTER
* C:\JKPROGRAM\MOD\ModFax431 改成你自已的報表檔.FRX
MESSAGEBOX("執行完成")
* oFax1 變數生命週期必須等到傳真完成才可消失
* 所以MessageBox請等幾秒再按"確定"
DEFINE CLASS HinetFax AS custom
oFax = ""
FaxNumber = ""
Name = "HinetFax"
PROCEDURE SetFaxNumber
LPARAMETERS cFaxNumber
This.FaxNumber = cFaxNumber
This.oFax.SetDefaultPrinter
This.Timer1.Interval =500
ENDPROC
PROCEDURE Init
This.oFax = NEWOBJECT("FaxClientXControl.ASPFaxClient")
This.AddObject("Timer1", "FaxTimer1")
ENDPROC
ENDDEFINE
DEFINE CLASS FaxTimer1 AS timer
Height = 23
Width = 23
Name = "FaxTimer1"
PROCEDURE Timer
IF This.Parent.oFax.FaxClientRunning
This.Interval = 0
This.Parent.oFax.SetDefaultPrinter
This.Parent.oFax.FaxNumber = This.Parent.FaxNumber
IF (! EMPTY( This.Parent.FaxNumber))
This.Parent.oFax.ShowFaxClient = .f.
ENDIF
This.Parent.oFax.StartSend
DO WHILE This.Parent.oFax.SendStatus = 3
ENDDO
This.Parent.FaxNumber = ""
ENDIF
ENDPROC
ENDDEFINE
|
|
|
| 回頂端 |
|
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
