怎样用Delphi的数据库储存JPG格式的图片入数据库？

楼  taxi   ( 当时明月在，曾照彩云归)  回复于  2001-11-30 09:04:24  得分 0

//保存图片
TBlobField(Table1.FieldByName('picture')).LoadFromFile('xxxx.jpg');
//读取图片
uses   Jpeg;

procedure   TForm1.ShowPicture;
var
    MS:   TMemoryStream;
    JpegImage:   TJpegImage;
begin
    MS   :=   TMemoryStream.Create;
    TBlobField(AdoTable1.FieldByName('picture')).SaveToStream(MS);
    MS.Position   :=   0;
    if   是JPEG格式图像   then
    begin
        JpegImage   :=   TJpegImage.Create;
        JpegImage.LoadFromStream(MS);
        Image1.Picture.Graphic   :=   JPegImage;
        JpegImage.Free;
    end  
    else   if   是位图   then
        Image1.Picture.Bitmap.LoadFromStream(MS)
    else   if   是图标   then
        Image1.Picture.Icon.LoadFromStream(MS);
    MS.Free;
end;