关于获取图片大小问题？

Question

你用流的方式存储图片，　不管它有多大，都没关系.procedure TForm7.Button1Click(Sender: TObject);      //保存.bmp格式的文件到更新包里。
var str:Tmemorystream;
begin
str:=Tmemorystream.Create;
str.LoadFromFile('d:\cai.jpg');//OpenDialog1.FileName　也可以
str.Position:=0;    adoquery2.Append;                               //图片
    Tblobfield(adoquery2.FieldByName('image')).loadfromstream(str);
    try
    adoquery2.Post;
    finally
    str.Free;
    end;
end;

Answer 1

procedure TForm5.Button1Click(Sender: TObject);
var str:Tmemorystream;                   //修改图片POS_mgxid
begin
IF not ADOQUERY2.IsEmpty Then               //如果更新编号不为空
  Begin
  str:=Tmemorystream.Create;                        //读取远程更新包的数据到程序执行的目录下面
  str.Position:=0;
  Tblobfield(adoquery2.FieldByName('image')).savetostream(str);
  str.SaveToFile(ExtractFilePath(Application.ExeName)+'image\cai.jpg');
  str.Free;
  end;

Answer 2

my_first(海浪) ！
先谢谢了！！
你能够告诉我怎么样把BMP文件转化为JPG格式吗？？

Answer 3

tsg(天下不如意事，十之居七八。) 
谢谢！但是存储过程慢呀！！！急！急！