基于VFP9語言編程的超大文件存入MS-SQL的實現研究

曾 紅

（四川省自貢市第一人民醫(yī)院，四川 自貢 643000）

在計算機網絡應用中，會經常用文件傳輸協(xié)議（File Transfer Protocol，FTP）來傳遞文件，有時會感到很不方便，于是，本文用MS-SQL數據庫來傳遞，編寫應用程序，把各類文件存儲到數據庫服務器中，需要時再從數據庫中還原文件。

實現思路：采用microsoft SQL數據庫建立一個表，由字段自動遞增（Identity，ID）、文件名稱（nvarchar字符類型）和文件內容（text備注類型）字段組成，開發(fā)語言采用Visual FoxPro 9。

1 MS-SQL數據庫結構

（1）數據庫名稱為文件管理。（2）IP地址：192.168.0.100。（3）賬號：sa。（4）密碼：123456。（5）數據庫建表命令為CREATE TABLE文件（ID int IDENTITY（1,1）NOT NULL，文件名稱nvarchar（100），文件內容text NULL）ON [PRIMARY]TEXTIMAGE_ON[PRIMARY]。

2 把文件存儲到SQL中的程序代碼

rem 創(chuàng)建SQL數據庫鏈接[1]

con=sqlstringconnect(“driver=SQL Server;Server=192.168.0.100;Uid=sa;pwd=123456;database=文件管理”)rem 找到需要存儲的文件

rem 關閉數據鏈接，完成存儲

SQLDISCONNECT(con)

3 從SQL中還原文件的代碼

rem 創(chuàng)建SQL數據庫鏈接

con=sqlstringconnect(“driver=SQL Server;Server=192.168.0.100;Uid=sa;pwd=123456;database=文件管理”)

G=SQLEXEC(con,”select * from 文件”,”文件”)

rem 關閉數據鏈接

SQLDISCONNECT(con)

select 文件

rem 把文件內容進行base64反編碼

content=STRCONV(文件內容,14)

filename=ALLTRIM(文件名稱)

rem 還原文件

STRTOFILE(filename, content)

4 實際應用中遇到的問題

實際運用中，經常遇到大文件，比如視頻、壓縮包等，很多文件大小都在10 M以上，有時可能達到幾百兆、幾千兆以上。運行時，當文件換成base64編碼后，數據長度如果超過16 777 184字節(jié)，程序就會自動切斷超長部分，在還原文件時，長度就變小，還原的文件肯定就是錯誤的。

5 采用分塊存儲技術解決超大文件的存儲問題

要解決上面的問題，就必須修改程序，通過反復思考，決定把文件分成若干塊，再分別存儲到數據庫中，即分塊存儲技術，需要還原時，再把這些塊組合起來，即完成還原文件。

對上面程序代碼進行改進，打開文件后，按照12 000 000字節(jié)大小分塊，再轉換成base64編碼不會超過16 777 184字節(jié)長，最后，存入數據庫中，由于存儲時間較長，程序運行時有進度提示，實現代碼如下：

6 從SQL中讀取分塊存儲的數據，還原文件的代碼

對上面還原程序代碼進行改進，從數據庫中讀取出記錄后，把每塊內容進行base64反編碼，最后，寫入指定的還原文件中，由于存儲時間較長，程序運行時有進度提示，實現代碼如下：

7 結語

當文件尺寸小于12 M時，可以直接存儲到數據庫中；當文件尺寸大于12 M時，就必須采用分塊技術存儲到數據庫。采用VFP9語言編程，完美實現了超大文件的存儲和還原。為了方便程序調用，可以進一步把程序修改成函數。