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 bitmap from the stream
> var
> sss : TMemoryStream;
> begin
> Result := nil;
> if not ReadBoolean then
> Exit;
> Result := TBitmap.Create;
> sss := ReadStreamC;
> try
> Result.LoadFromStream( sss );
> except
> Result.Free;
> Result := nil;
> end;
> sss.Free;
> end;
>
> ReadStreamC simply creates a TMemoryStream populates itself from an
> internal stream and returns the results. From what I can tell the
> TMemoryStream is fine, but the Result.LoadFromStream() call always
> throws an exception. Strangely, while running exactly the same code with
> exactly the same data file using Delphi, works fine. I am also using
> Delphi compatibility mode with Lazarus ( if that makes any difference ).
>
> Is anyone aware of this problem? Any Suggestions?
>
>
> Thanks,
>
>
> Dominique.
>
> _________________________________________________________________
> To unsubscribe: mail [EMAIL PROTECTED] with
> "unsubscribe" as the Subject
> archives at http://www.lazarus.freepascal.org/mailarchives
>
--
Zaher Dirkey
