Hi Zaher,
No that does not work either. Also within the
Result.LoadFromStream()
call at the very end there is a
Stream.Position := 0;
statement. I tried both but to no avail.
Dominique.
zaher dirkey wrote:
try
sss.Seek(0, soFromBeginning); //<---
Result.LoadFromStream( sss );
On Jan
try
sss.Seek(0, soFromBeginning); //<---
Result.LoadFromStream( sss );
On Jan 27, 2008 8:45 PM, Dominique Louis <[EMAIL PROTECTED]>
wrote:
> Hi all,
> I'm using the following function to retrieve a Bitmap from a memory
> stream.
>
> function MyStream.ReadBitmap : TBitmap;
> // Reads a b
Hi all,
I'm using the following function to retrieve a Bitmap from a memory
stream.
function MyStream.ReadBitmap : TBitmap;
// Reads a bitmap from the stream
var
sss : TMemoryStream;
begin
Result := nil;
if not ReadBoolean then
Exit;
Result := TBitmap.Create;
sss := ReadStreamC;