如何处理图象的插入

Question

我现在做小系统，在录入模块中要插入个人相片，我用access建的数据库，有一个xp字段，请教大家该怎么办，越详细越好

Answer 1

存:
var
CurStream:TFileStream;
  begin
  Table1.append;
  if FileName<>'' then
    begin
      CurStream:=TFileStream.Create(FileName,fmOpenRead);
      TBlobField(Table1.FieldByName('ole object Field')).LoadFromStream(CurStream);
      CurStream.free;
    end;
  Table1.post;读
Image1.Picture.Bitmap.Assign(TBLOBField(Table1.Fields[1]))

Answer 2

存到数据库
var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pjpg.LoadFromFile(F:\JPG.jpg);
pic:=TMemoryStream.Create;
pjpg.SaveToStream(pic);
pic.Position:=0;
TBlobField(dataset.FieldByName('Img')).LoadFromStream(pic);
dataset.post;
pic.Free;
pjpg.free;
end;
从数据库取出
var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pic:=TMemoryStream.Create;
TBlobField(dataset.FieldByName('Img')).savetoStream(pic);
pic.positon:=0;
pjpeg.LoadFromStream(pic);
image.graphi.bmp.assign(pjpeg);
end;end;