VFP 愛用者社區

小柯 · 註冊時間: 2003-11-27 文章: 78 第 1 樓

為了於程式當中實現調閱大量圖檔的功能,遍尋綱路上可用於控制掃瞄器的元件
,當中不乏功能強大且齊全的付費元件,如EZTWIAN...等可使用,但礙於本人實非
靠撰寫程式賺取收入且經濟上能力並非十分寬裕的我而言,花費一,二萬元購買
上述專業級的元件略感奢侈,學習撰寫程式僅因興趣上使然與方便工作上的推動
而已,由於網友們不吝指點與賜教得知WIN98裏的Kodak掃瞄元件可以實現於程式
當中擷取掃瞄或攝影圖檔的功能,其儲存格式可設定為*.tif或*.bmp,且其他基本
的影像處理功能,如放大.縮小.旋轉.繪圖.文字.剪貼....等基本影像處理功能,
相信已能滿足一般性需求.唯美中不足者,是儲存格式僅支援為tif或bmp檔並無支
援jpg,這於考量儲存圖檔量龐大(假設有十萬.二十萬.三十萬以上A4的文件圖檔)
的情形下,若無法將之儲存成JPG檔的話,很快將會面臨硬碟容量不足的問題,然為
解決上述問題,遍尋了各種將bmp轉換成jpg的元件,發現jpgmaker.ock mydll.dll
與pct_dll.dll可以運用,問題的解決終於露出了一點曙光,興奮之於便很快的加以測
試,不過喜悅總是短暫的,雖然透過上述的三種元件確實可以將bmp轉換成jpg,但經過
多次的測試凡是經由Kodak掃瞄元件所儲存的bmp檔均無法利用上述三種元件轉換,但若
是利用windows內建的小畫家擷取掃瞄圖檔,均可順利轉換,這當中說明了Kodak元件產
生的bmp圖檔是否與標準格式的bmp略有差異以致於無法轉換成功便不得而知了.

截至目前為止,雖然問題尚未獲得最圓滿的解決,但是已實現控制掃瞄器與網路攝影
機的能功.網友們倘有更佳的經驗或解決之道希望亦能不吝指教.

最後我想抱持著"取之於社會,用之於社會"?磚引玉的心態若有需要取得上述各控制
元件及範例說明的網友請E-MAIL給我 cozov@ms8.hinet.net

小柯 · 註冊時間: 2003-11-27 文章: 78 第 2 樓

經網友的指點，已能順利的將Kodak掃瞄元擷取的bmp檔轉換成jpg檔了

garfield · 發表於: 星期日二月 27, 2005 1:20 pm 文章主題:

小柯, 可以將你的方法直接貼在這裡嗎? 我們比較有興趣的是程式如何寫, 而不是你工作進度 Smile

我到很很聽的...在隨便聊區寫下的你的心得吧

小柯 · 註冊時間: 2003-11-27 文章: 78 第 4 樓

元件、說明及範例均在此

garfield · 發表於: 星期一二月 28, 2005 5:36 pm 文章主題:

謝謝小柯無私的奉獻

guku1101 · 發表於: 星期三七月 05, 2006 2:25 pm 文章主題:

小科前輩請問如何轉成jpg檔呢~請您不吝賜教~感激不盡~

garfield · 發表於: 星期三七月 05, 2006 4:07 pm 文章主題:

參考這一篇: http://vfp.sunyear.com.tw/viewtopic.php?t=3065

guku1101 · 發表於: 星期三七月 05, 2006 6:28 pm 文章主題:

前輩們太感謝您們了~我已經測試成功從kodak掃瞄元件掃入後並直接存成jpg並且也可以在vfp的image物件上秀出來了~ Very Happy

~謝謝您們~

Ruey · 發表於: 星期四七月 06, 2006 12:59 pm 文章主題:

說看看.....過程.....我很聽

guku1101 · 發表於: 星期四七月 06, 2006 2:02 pm 文章主題:

掃瞄的部份應該沒問題吧~至於轉成jpg部份步驟如下:
1 http://www.geocities.com/macmarbr/gpimage2.zip 下載解壓
2.把這個gpimage.prg檔案加到您的專案裡
3.寫一段小程式放在您的主程式.prg裡
function savejpg(m_file)
#include gpImage.h
If Not "gpImage" $ Set("Procedure")
Set Procedure To gpImage Additive
EndIf

gdip = CreateObject("gpInit")
img = CreateObject("gpImage")

lcFile = m_file

img.Load(lcFile)

*lcDestFile = "_" + JUSTSTEM(lcFile)
lcDestFile = JUSTSTEM(lcFile)

img.SaveAsJPEG(lcDestFile)

img = NULL
gdip = NULL
endfunc

4.控制掃瞄器的bottom click
oImgscan=thisform.olecontrol1 &&上述控制項
if !oImgscan.ScannerAvailable()
messagebox("未安裝TWAIN驅動程式！")
else
*oImgscan.ShowSelectScanner &&選擇掃描器對話方塊按確定返回值=0
*oImgscan.ShowScanPreferences &&選擇掃描選項對話方塊按確定返回值=0
oImgscan.ScanTo=2 && 0顯示 1顯示並寫入檔 2寫入檔 3寫到暫存檔案並顯示 4寫入暫存檔案 5傳真
oImgscan.image="img"
oImgscan.FileType=3 &&0(缺省)TIFF;1 AWD(Win98);2 BMP
oImgscan.StartScan
if oImgscan.StatusCode=0 &&正常結束
messagebox("掃描正常結束！")
savejpg("img.bmp")
thisform.image1.picture="img.jpg"
else
messagebox("掃描未正常結束！")
endif
endif

這是我測試的過程,表達能力不好希望您看的懂

guku1101 · 發表於: 星期四七月 06, 2006 2:15 pm 文章主題:

寫法很嫩還請各位先進們不要見笑了~呵

goto-dream · 註冊時間: 2004-05-11 文章: 909 第 12 樓

這個可以應用在

MPEG4數位保全監控卡??

是否有這樣做過?!

215001 · 註冊時間: 2003-06-11 文章: 393 第 13 樓

goto-dream · 註冊時間: 2004-05-11 文章: 909 第 14 樓

215001 · 註冊時間: 2003-06-11 文章: 393 第 15 樓

我只玩過圓剛卡,不過VC++ 不是很熟,只玩一點點