Name (required):

  Expression ^{(Optional mood/title along with your name) Examples: (happy, sad, The Joyful, etc.) help)}

  E-mail address (optional):

Type your message here:
>Hello. >I have this error in Delphi5, Envision Library v2.01. > >uses > EnDcxGr, { for TDcxGraphic } > EnTifGr, { for TTifGraphic } > EnBmpGr, { for TBitmapGraphic } > EnPngGr, {for TPngGraphic} > EnIcoGr, { for TIconGraphic } > EnWmfGr, { for TMetaFileGraphic } > EnReg; { for image format registration } > >procedure TForm1.FormCreate(Sender: TObject); >begin > if FindDibGraphicClass('*.TIF') = nil then > RegisterDibGraphic('TIF', 'TIFF file', >TTiffGraphic); >end; > >procedure TForm1.Button1Click(Sender: TObject); >var BlobStream:tblobstream; >begin > imagescrollbox1.filename:='c:\TiffImage.tif'; > >BlobStream:=TBlobStream.create(dataset1.fieldbyname('pi >c') as tblobfield,bmWrite); > imagescrollbox1.graphic.SaveToStream(BlobStream); > BlobStream.free; > dataset1.post; > >{All right! Then:} > > >BlobStream:=TBlobStream.create(dataset1.fieldbyname('pi >c') as tblobfield,bmRead); > BlobStream.Seek(0,soFromBeginning ); > imagescrollbox1.loadfromstream(BlobStream,'tif',1); > BlobStream.free; >{In this block I have error. If I use BMP,PNG,JPG >format or other, I have no error. >} >end;

Notice: Copies of your message may remain on this and other systems on internet. Please be respectful.