就是呀~!最近專題做了服飾的系統要儲存圖片。而資料庫是用access，可是只要儲存，圖片就會消失，不能支持任何一種圖片檔，我該如何解決呢?麻煩高手能回覆我~在此感激不盡!

------
^^我是新手

function ImageWrite(Field: TField; jFile: String; const FileLimit: Integer=128):Boolean;
var FS: TFileStream;
begin
Result:= false;
if FileSizeKByte(jFile) > FileLimit then exit;
if not (Field.DataSet.State in [dsInsert, dsEdit]) then Field.DataSet.Edit;
try
FS:= TFileStream.Create(jFile, fmOpenRead);
try
TBlobField(Field).LoadFromStream(FS);
// Field.DataSet.Post;
Result:= True;
except
Field.DataSet.Cancel;
end;
FS.Free;
except
Field.DataSet.Cancel;
end;
end;

procedure ImageRead(Image: TImage; Field: TField);
var stream: TMemoryStream;
jpgImg: TJpegImage;
begin
Image.Picture:= nil;
if Field.DataSet.Eof then exit;
if Field.IsNull then exit;
stream:= TMemoryStream.Create;
jpgImg:= TJpegImage.Create;
TBlobField(Field).SaveToStream(stream);
Stream.Position:= 0;
jpgImg.LoadFromStream(stream);
Image.Picture.Assign(jpgImg);
stream.Free;
jpgImg.Free;
end;