[lazarus] TBitmap.LoadFromStream Fails in Lazarus but works fine in Delphi...

[Dominique Louis]

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