.NET (2)
Database (71)
Delphi IDE (90)
Network (39)
Printing (3)
Strings (12)
VCL (83)
Windows with Delphi (280)
Exchange Links
About this site
New related comments
Number of comments in the last 48 hours
Access the current row/column of a TMemo
1 new comments
Streaming out multiple pictures (any raw data)
This article has not been rated yet. After reading, feel free to leave comments and rate it.
Problem:
// After streaming out 2 jpegs, the second one cannot be read
ms := TMemoryStream.Create;
JPG1.SaveToStream(ms);
JPG2.SaveToStream(ms);
ms.Seek(0,0);
JPG1.LoadFromStream(ms);
// now it is at the end of the stream
// and JPG2 won't be read
JPG2.LoadFromStream(ms);
Solution:
Store the length of each graphic (raw data blob) before the data.
Use this value when reading from the stream.
 |  | |
procedure SavePicture(Stream: TStream; gr: TGraphic);
var
P,
newp: integer;
begin
P := Stream.Position;
Stream.WriteBuffer(P, sizeof(P));
gr.SaveToStream(Stream);
newp := Stream.Position;
Stream.Position := P;
P := newp-P-sizeof(P);
Stream.WriteBuffer(P, sizeof(P));
Stream.Position := newp;
end;
procedure LoadPicture(Stream: TStream; gr: TGraphic);
var
MemStream: TMemoryStream;
v : integer;
begin
MemStream := TMemoryStream.Create;
try
Stream.ReadBuffer(v, sizeof(v));
MemStream.SetSize(v);
Stream.ReadBuffer((MemStream.Memory)^, v);
MemStream.Position := 0;
gr.LoadFromStream(MemStream);
finally
MemStream.Free;
end;
end;
| ||
 |  |
Comments:
| ||
|
know this pic?
 Keywords: |