请教各位富翁关于图像存储的问题(100分)

环境为DELPHI6＋SQL2000，表IMAGETEST有字段FIMAGE，类型为IMAGE.
插入图片：
procedure TForm1.Button2Click(Sender: TObject);
var
graphic1:TJpegImage;
MS:TMemoryStream;
//file_name:string;
begin
//file_name:=edpicname.Text;
MS:=TMemoryStream.Create;
graphic1:=TJpegImage.Create;
Image1.Picture.LoadFromFile(opendialog1.filename);
graphic1.LoadFromFile(opendialog1.filename);
graphic1.SaveToStream(MS);
MS.Position:=0;
with query1 do
begin
sql.Clear;
sql.Add('insert into imagetest(fimage) valuesFIMAGE) ');
//ParamByName('FIMAGE').LoadFromfile(opendialog1.filename,FtBlob);
ParamByName('FIMAGE').LoadFromStream(MS,FtBlob);
ExecSQL;

end;
graphic1.free;
end;
读出代码：
procedure TForm1.Button3Click(Sender: TObject);
var
MS:TMEmoryStream;
JpegImage:TJpegImage;
f: file of Byte;
begin
JpegImage:= TJpegImage.Create;
MS:=TMEmoryStream.Create;
with Query1 do
begin
close;
sql.Clear;
sql.add('select fimage from imagetest');
open;
while not EOF do
begin
next;
end;
try
TBlobField(FieldByName('fimage')).SaveToFile('tmp.jpg');
//if GetFileSize('tmp.jpg')>0 then //文件长度为0装入会出错
//begin
AssignFile(f,'tmp.jpg');
Reset(f);

if filesize(f)>0 then showmessage('save success');
closefile(f);
JpegImage.LoadFromFile('tmp.jpg');
Image2.Picture.LoadFromFile('tmp.jpg');
//end;
finally
JpegImage.Free;
end;
end;
end;
可是经测试，大于32K的图片显示就不完整，怎么解决？？？

Image字段的大小改大一点先.

image字段就是16位的，改不了，而且好像存储的是16位指针

在显示图片时，仍用内存流，直接将字段值存入内存流，再显示。第一个过程就比较好。
也有人遇到个同样的问题。改为使用TMEMORYSTREAM后就没问题了。

我以前也遇到这个问题，解决办法是把BLOB的值32K该大一点，比如5000K。就可以了。