VFP處理JPG圖像文件方法談

Bitmap是非壓縮型圖像文件，占用的存儲空間很大，而JPG圖像文件是壓縮型圖像文件，因此，正確保存和顯示JPG等圖像文件具有很高的實(shí)用價值。 在VFP編程中，需保存圖像文件時，通常是將圖像以O(shè)LE方式保存到一個GENERAL型字段中。當(dāng)需要在表單中顯示該圖像時，則使用OLE Bound控件，并將該控件綁定到保存圖像的字段上即可。
    上述方法對于保存和顯示Bitmap位圖時沒有問題，但是對JPG、GIF等圖像文件則無法顯示圖像，而只能將其保存時的圖像文件名顯示出來。
    VFP 6.0版中的Imgae控件支持 bmp、gif、jpg和ico等圖像文件格式，但是該控件不能綁定到保存圖像文件的GENERAL型字段上。本文所采用的基本思路是：不將圖像文件保存到GENERAL型字段中，而是把圖像文件保存到一個二進(jìn)制的Memo型字段中，當(dāng)需要顯示圖像時，則將該Memo型字段的內(nèi)容輸出到一個臨時文件中，然后再將臨時文件名賦給Image控件中Picture屬性即可顯示圖像。在報(bào)表打印輸出時，也可以采用類似的方法打印圖像。
    為實(shí)現(xiàn)上述的構(gòu)想，本文提供了兩個函數(shù)，一個是將圖像文件保存到Memo型字段中，另一個是將Memo型字段中的圖像保存到一個外部文件中。
    下面的過程文件是將一個外部圖像文件保存到二進(jìn)制Memo型字段中。圖像文件在Memo型字段中的格式為：前128個字節(jié)保存原始圖像文件名，其后的數(shù)據(jù)為圖像數(shù)據(jù)。
    Procedure s—ftom
    lparameter s—cfield , s—cfile
    local s—temp—str
    if vartype(s—cfield) !=″C″ or vartype(s—cfile) !=″C″
    =MessageBox(″參數(shù)類型錯！″,48,″提示″)
    return .F.
    endif
    if type(″＆s—cfield″) != ″M″
    =MessageBox( ″ ′ ″＋s—cfield ＋″ ′ ″＋ ″字段必須是二進(jìn)制備注型數(shù)據(jù)！″,48,″提示″)
    return .F.
    endif
    if !file( s—cfile)
    =MessageBox( ″文件：″＋s—cfile＋″ 不存在！″,48,″提示″)
    return .F.
    endif
    s—temp—str=PADR(JUSTFNAME(s—cfile),128, ′ ′)＋filetostr(s—cfile)
    replace (s—cfield) with s—temp—str
    return .T.
    endproc