图片记录怎么存

[jieguo]

我用access见了个数据库，有个记录是ole类型
添加记录时我想用普通的img控件
怎么存取

[amiao]

在数据库中保存图片的路径不久行了

[jieguo]

不这样

[xyxx]

rs是adodataset
procedure TForm1.Button1Click(Sender: TObject);
begin
rs1.Edit;
TBlobField(rs1.FieldByName('c')).LoadFromFile('D:\background.bmp');
rs1.Post;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Screen.Cursor:=crHourGlass;
rs1.Edit;
tblobfield(DBImage1.Field).Clear;
rs1.Post;
Screen.Cursor:=crDefault;
DBImage1.Update;
end;

[shao528]

先将图形数据装入到stream里再存进数据库:

var oPic :TPicture;
oBitmap :TBitmap;
oStream :TMemoryStream;
Size :integer;
begin
oPic := TPicture.Create;
oBitmap := TBitmap.Create;
oStream := TMemoryStream.Create();
try
with oData do
begin
DisableControls;
First;
while not Eof do
begin
sF :=PathQryPhotopath.Value+oData.FieldByName('Bz2').AsString;
if oData.FieldByName('Photo').IsNull then
if FileExists(sF) then
begin
oPic.Graphic := nil;
oPic.LoadFromFile( sF);
oBitmap.Width := oPic.Width;
oBitmap.Height := oPic.Height;
oBitmap.Canvas.Draw(0,0, oPic.Graphic);
oBitmap.SaveToStream(oStream);
Edit;
oStream.Position := 0;
//以下是核心代码
with oData.CreateBlobStream(FieldByName('Photo'), bmWrite) do
try
CopyFrom(oStream, 0);
finally
Free;
end;

[jieguo]

能告诉我
tblobfield的详细情况么

[xiaoyan21]

如果只是普通的存储，前面两位朋友已经说得很明白了。

表字段不用我们去了解的。

[ehom]

var
ms:tmemorystream;
jp:TJpegImage;
begin
jp.Assign(Image1.Picture.Bitmap);
ms:=tmemorystream.Create;
jp:=TJpegImage.Create;
ms.Position:=0;
jp.SaveToStream(ms);
try
with ADOQuery1 do
begin
Open;
Insert;
TBlobField(FieldByName('i')).LoadFromStream(ms);
Close;
end;
finally
ms.Free;
jp.Free;
end;
end;