(Stream Jpeg Jpg LoadFromStream SaveToStream)<\/p>\n
The same problem is with TIcon, for example.
\nHere is a workaround (not very efficient, but it works)
\nI save size of image binary data before data itself. When loading, I load
\ndata for one image in separate stream, and than load image from this stream.
\nThis method solves two problems:
\n(1) incorrect stream position after loading some graphics formats;
\n(2) reading of empty images (empty bitmap saves nothing)
\n
\n[code lang=”delphi”]procedure SavePicture(Stream: TStream; gr: TGraphic);
\nvar p, newp: Integer;
\nbegin
\n p := Stream.Position;
\n Stream.WriteBuffer(p, SizeOf(p));
\n gr.SaveToStream(Stream);
\n newp := Stream.Position;
\n Stream.Position := p;
\n p := newp – p – SizeOf(p);
\n Stream.WriteBuffer(p, SizeOf(p));
\n Stream.Position := newp;
\nend;<\/p>\n
procedure LoadPicture(Stream: TStream; gr: TGraphic);
\nvar MemStream: TMemoryStream;
\n v: Integer;
\nbegin
\n MemStream := TMemoryStream.Create;
\n try
\n Stream.ReadBuffer(v, sizeof(v));
\n MemStream.SetSize(v);
\n Stream.ReadBuffer((MemStream.Memory)^, v);
\n MemStream.Position := 0;
\n gr.LoadFromStream(MemStream);
\n finally
\n MemStream.Free;
\n end;
\nend;
\n[\/code]
\n(I’ve made some changes in code when wrote this letter, so typing errors are
\npossible)<\/p>\n
[tags]Delphi, Graphic[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"
(Stream Jpeg Jpg LoadFromStream SaveToStream) The same problem is with TIcon, for example. Here is a workaround (not very efficient, but it works)…<\/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,101],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-2d","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/137"}],"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=137"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/137\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=137"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=137"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=137"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}