请教？？？？？(50分)

那位大虾能告诉小弟怎么用DBImage存储图片，而且能在纪录滚动时，在DBImage
中显示对应数据库中的图片，数据库是SQL Server??[]

这个只要你把../delphi6/demo/db中的一个使用数据库的例子改一下就可以了。

记录改变使，更换照片就可以了。

up

to maming 可是那个例里 中没有代码，怎么给库中存储，并且怎么读取，如果是不同类型
的图片怎么存、取，不如：JPG,Bmp等格式？？？

to yljailxx
调出naming所指的那个例子后，仔细分析一下他的数据库表并且你可以在delphi的帮助文件
中找到相似的例子解释

SQL Server好像是沒有字段可以存放圖片的呀??

你可以用一個字符型的字段,用來存放圖片所在的路徑.
然后在程序自己添加語句Image1.LoadFromFile(數據庫該字段的值);
SQL Server就只能這樣

将BMP放入DBASE和Paradox的BLOB字段中

(1)使用裁剪板
procedure TForm1.Button1Click(Sender: TObject);
var
C: TClipboard;
begin
C := TClipboard.Create;
try
if Clipboard.HasFormat(CF_BITMAP) then
DBImage1.PasteFromClipboard
else
ShowMessage('Clipboard does not contain a bitmap!');
finally
C.Free;
end;
end;

(2)从文件调入
procedure TForm1.Button2Click(Sender: TObject);
begin
Table1Bitmap.LoadFromFile(
'c:/delphi/images/splash/16color/construc.bmp');
end;

(3)从其他控件的BITMAP类中读入
procedure TForm1.Button3Click(Sender: TObject);
var
B: TBitmap;
begin
B := TBitmap.Create;
try
B.LoadFromFile(
'c:/delphi/images/splash/16color/athena.bmp');
DBImage1.Picture.Assign(B);
finally
B.Free;
end;
end;

显示BLOB字段的BMP图

(1)直接显示当前记录
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Bitmap.Assign(Table1Bitmap);
//Table1Bitmap为在Table中添加的字段
end;

(2)直接显示
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Bitmap.Assign(
TBLOBField(Table1.Fields[1]));
end;
//Image1.Picture.Bitmap.Assign(Table1.Fields[1]);也行

(3)不直接显示
procedure TForm1.Button2Click(Sender: TObject);
var
B: TBitmap;
begin
B := TBitmap.Create;
try
B.Assign(Table1Bitmap);
Image1.Picture.Bitmap.Assign(B);
finally
B.Free;
end;
end;

多人接受答案了。