瘦
瘦客
Unregistered / Unconfirmed
GUEST, unregistred user!
我的设想：将一BMP文件存入ACCESS表中一BLOB字段
步骤：
procedure TForm1.Button1Click(Sender: TObject);
var s:tfilestream;
begin
s:=tfilestream.create('c:/picturedate/car.bmp',fmopenread);
table1.Append;
table1.edit;
Tblobfield(table1.Fieldbyname('图像')).loadfromstream(s);
table1.Post;
s.free;
end;
结果却是：得到一长二进制数据。请赐教
步骤：
procedure TForm1.Button1Click(Sender: TObject);
var s:tfilestream;
begin
s:=tfilestream.create('c:/picturedate/car.bmp',fmopenread);
table1.Append;
table1.edit;
Tblobfield(table1.Fieldbyname('图像')).loadfromstream(s);
table1.Post;
s.free;
end;
结果却是：得到一长二进制数据。请赐教