数据库中某个图像字段存有jpe,bmp,icon,怎样读出来啊?通过读文件头的方法是否可以,怎样做,请给出详细代码?

解决方案 »

  1.   

    别人的只能读两种
    procedure TDM.ViewPhoto(ImagX:TImage;FiledX:TBlobField);
    var
        B:Tbitmap;
        JpegImage:TJpegImage;
        BS:TBlobStream;
    begin
        ImagX.Picture.Assign(nil);
        if not FiledX.IsNull then begin
            try//如果是Jpeg格式
               BS := TBlobStream.Create(TBlobField(FiledX), bmRead);
               JpegImage := TJpegImage.Create;
               JpegImage.JPEGNeeded;
               JpegImage.LoadFromStream(BS);
               ImagX.Picture.Assign(JpegImage);
               JpegImage.Free;
               BS.Free;
            except//如果是BMP格式
               BS := TBlobStream.Create(TBlobField(FiledX), bmRead);
               B:=Tbitmap.Create;
               b.LoadFromStream(BS);
               ImagX.Picture.Assign(b);
               B.Free;
               BS.Free;
            end;
        end;
    end;