把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
这是因为格式不对,解码出错。真是晕透了。书到用时方恨少。折腾很多时间,反而欲速而不达。