存進資料庫，
並在每次瀏覽資料時，
可以看到之前我所存的相片。

問題：
1.請問資料庫要設什麼資料型別？
2.在開發上，我怎麼寫程式？

http://pcedu.pconline.com.cn/empolder/db/sql/0203/38891.html

Hello，文章好像放錯地方了。
把舊程式拿出來整理一下給您。下面是 jpg 範例，如果允許讀 bmp 檔，則上傳前要轉為 jpg，以節省資料庫空間，並減少下載時的程式複雜度。

資料庫：Sql Server 2005
資料表：二進位資料'
欄位： 資料流' varbinary(MAX)

一。讀檔，上傳，顯示

var ms : TMemoryStream;
jpg : TJpegImage;
FileStream: TFileStream;
BlobStream: TStream;
// DataSet 是 TAdoDataSet 在 TForm 上面
begin
OpenPictureDialog1.Filter := '*.jpg|*.jpg|*.jpeg|*.jpeg";
if OpenPictureDialog1.Execute = false then exit;

Ms := TMemoryStream.Create;
jpg := TJpegImage.Create;

DataSet.Close;
DataSet.CommandText := 'select top 0 * form 二進位資料';
DataSet.Open;

BlobStream := DataSet..CreateBlobStream(DataSet.FieldByName('資料流'),bmWrite);
FileStream := TFileStream.Create(OpenPictureDialog1.FileName,fmOpenRead or fmShareDenyNone);
BlobStream.CopyFrom(FileStream, FileStream.Size); // 會填入 [資料流'] 欄位

FileStream.Free;
BlobStream.Free;
DataSet.Post;

// 讀檔上傳順便顯示， 給 Image1 顯示圖形(用 TJpegImage 轉換)
TGraphicField(DataSet.FieldByName('資料流')).SaveToStream(Ms);
Ms.Position := 0; // 設為 0，否則會出錯
jpg.LoadFromStream(Ms);
Image1.Picture.Bitmap.Assign(jpg);
DataSet.Close;
Ms.Free;
Jpg.Free;
end;

二、下載，顯示
var ms : TMemoryStream;
jpg : TJpegImage;
begin
DataSet.Close;
DataSet.CommandText := 'select top 1 * from 二進位資料';
DataSet.Open;
if DataSet.RecordCount > 0 then
begin
Ms := TMemoryStream.Create;
TGraphicField(DataSet.FieldByName('資料流')).SaveToStream(Ms);
Ms.Position := 0; // 一定要設為 0，否則 jpg 產生錯誤
jpg := TJpegImage.Create;
jpg.LoadFromStream(Ms);
Image1.Picture.Bitmap.Assign(jpg);
jpg.Free;
Ms.Free;
end;
DataSet.Close;
end;

編輯記錄

抱歉，第一次po文，下次會注意。
首先謝謝您的回答，
我現在正在測試了，
但遇到一下問題，
語法中的dsImage，
一直compile不 過，
而且一直有紅色底線，
它跟我說Undeclared identifier :'dsImage"
我是不是少了什麼東西呢？



===================引 用 cancer 文 章===================
Hello，文章好像放錯地方了。
把舊程式拿出來整理一下給您。下面是 jpg 範例，如果允許讀 bmp 檔，則上傳前要轉為 jpg，以節省資料庫空間，並減少下載時的程式複雜度。

資料庫：Sql Server 2005
資料表：二進位資料'
欄位： 資料流' varbinary(MAX)

一。讀檔，上傳，顯示

var ms : TMemoryStream;
jpg : TJpegImage;
FileStream: TFileStream;
BlobStream: TStream;
begin
OpenPictureDialog1.Filter := '*.jpg|*.jpg|*.jpeg|*.jpeg";
if OpenPictureDialog1.Execute = false then exit;

Ms := TMemoryStream.Create;
jpg := TJpegImage.Create;

DataSet.Close;
DataSet.CommandText := 'select top 0 *form 二進位資料';
DataSet.Open;

BlobStream := dsImage.CreateBlobStream(DataSet.FieldByName('資料流'),bmWrite);
FileStream := TFileStream.Create(OpenPictureDialog1.FileName,fmOpenRead or fmShareDenyNone);
BlobStream.CopyFrom(FileStream, FileStream.Size); // 會填入 [資料流'] 欄位

FileStream.Free;
BlobStream.Free;
DataSet.Post;

//讀檔上傳順便顯示，給 Image1 顯示圖形(用 TJpegImage 轉換)
TGraphicField(DataSet.FieldByName('資料流')).SaveToStream(Ms);
Ms.Position := 0; // 設為 0，否則會出錯
jpg.LoadFromStream(Ms);
Image1.Picture.Bitmap.Assign(jpg);
DataSet.Close;
Ms.Free;
Jpg.Free;
end;

二、下載，顯示
var ms : TMemoryStream;
jpg : TJpegImage;
begin
DataSet.Close;
DataSet.CommandText := 'select top 1 * from 二進位資料';
DataSet.Open;
if DataSet.RecordCount > 0 then
begin
Ms := TMemoryStream.Create;
TGraphicField(DataSet.FieldByName('資料流')).SaveToStream(Ms);
Ms.Position := 0; // 一定要設為 0，否則 jpg 產生錯誤
jpg := TJpegImage.Create;
jpg.LoadFromStream(Ms);
Image1.Picture.Bitmap.Assign(jpg);
jpg.Free;
Ms.Free;
end;
DataSet.Close;
end;

dsImage.CreateBlobStream

dsImage 是一個資料集元件

元件？
可是我怎麼沒有看到在那可以找得到呢？
煩請指教，謝謝。

不好意思，我原本的程式碼的  TAdoDataSet 名稱是 dsImage，貼上來之前，我改為 DataSet 讓您一看就知道是 DataSet 元件，原來我有漏掉沒改到的，dsImage 就是 DataSet，我也改正了原檢的程式碼。
===================引 用 evan690222 文 章===================
元件？
可是我怎麼沒有看到在那可以找得到呢？
煩請指教，謝謝。

編輯記錄

謝謝大大，
已測試成功。
接下來就是往下一階段前進了。

謝謝大大結案給分。
===================引 用 evan690222 文 章===================
謝謝大大，
已測試成功。
接下來就是往下一階段前進了。