USEGEAR

导航

cxdbImage以及图像显示

把pdf以及图像存入数据库,然后根据需要显示出来。
在处理的过程中,不同类型的图像格式有其不同的类,如果这个概念不清楚,就会绕一个很大的圈子。

  MyJPEG : TJPEGImage ;
  mypng : TPngImage;
              img1.Properties.GraphicClassName :=  'TJPEGImage';
              MyStream := Tmemorystream.Create;
              MyStream.Clear;
              MyJPEG := TJPEGImage.Create;
              TBlobField(cds_editProject.fieldbyname('PM_IMAGE')).SaveToStream(MyStream);
              MyStream.Position :=0;
              MyJPEG.LoadFromStream(MyStream);
              img1.Picture.Assign(MyJPEG);
              gtpdfvwr1.Active := False;
              gtpdfvwr1.Visible := False;
              img1.Visible := True;
              MyStream.Free;
              MyJPEG.Free;

不同的图像因格式不同,需要相应的处理转换,否则就会格式报错。如ejpeg error #53
这是因为格式不对,解码出错。

真是晕透了。书到用时方恨少。折腾很多时间,反而欲速而不达。

posted on 2016-08-09 20:04  USEGEAR  阅读(679)  评论(0编辑  收藏  举报