An FYI, and also wondering who has run into the same problems with possibly
\na better resolution\/fix:<\/p>\n
Some changes were made in the Delphi 5 graphics.pas files relating to RLE
\nbitmaps that now cause Delphi 5 (and our app) to choke on RLEs. The two
\nsources of contention that we’ve found are in the TBitmap.ReadDIB and
\nTBitmap.WriteStream Procedures. The ReadDIB has a simple bug that reads
\nforward on a seek instead of backward, causing a stream read error (this
\nerror is reproducable simply by dropping a TImage object onto a form and
\nloading an RLE bitmap into it). The following code change is the fix:<\/p>\n
old code –
\nRLEStream.Seek( ImageSize, soFromEnd);
\nnew code –
\nRLEStream.Seek(-1 * ImageSize, soFromEnd);<\/p>\n
The second problem is that the TBitmapInfoHeader is being stripped off of
\nthe stream somewhere in the code, and so when you try to reference the
\nheader information of your bitmap, you get all kinds of fun runtime errors.
\nCommenting out the following code in the TBitmap.WriteStream procedure takes
\ncare of the problem:
\n[code lang=”delphi”]
\n(*
\n if FImage.FSaveStream <> nil then
\n begin<\/p>\n
>> insert BMF code here<\/p>\n
Size := FImage.FSaveStream.Size;
\n if WriteSize then
\n Stream.WriteBuffer(Size, sizeof(Size));
\n Stream.Write(FImage.FSaveStream.Memory^, Size);
\n Exit;
\n end;
\n*)
\n[\/code]<\/p>\n
Any help with this – more info? Very much appreciated!!
\nGretchen<\/p>\n","protected":false},"excerpt":{"rendered":"
An FYI, and also wondering who has run into the same problems with possibly a better resolution\/fix: Some changes were made in the…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,80],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-O","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/50"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=50"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/50\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=50"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=50"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=50"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}