Exception beim Auslesen von Bitmap mit canvas.pixels

[henlambert]

Hi,

der Versuch, auf eine Bitmap mit .pixels zuzugreifen, schlug fehl:

External: SIGSEGV
in Datei '\include\lclintf.inc' in Zeile 184

Die Routine in lclintf, die den Segfault ausgelöst hat:

Code: Alles auswählen

function RawImage_QueryDescription(AFlags: TRawImageQueryFlags; var ADesc: TRawImageDescription): Boolean;
begin
  Result := WidgetSet.RawImage_QueryDescription(AFlags, ADesc);
end;
 

und mein eigener Testcode (der Fehler taucht erst mit der Zeile pix := ... auf):

Code: Alles auswählen

 
procedure LoadHeightmap;
var
  bitmap: TBitmap;
  pix: TColor;
begin
  bitmap := TBitmap.Create;
  try
    Bitmap.LoadFromFile ('YU14H.bmp');
    pix := bitmap.canvas.Pixels [5,5];
  except
    writeln ('Fehler beim Laden der Heightmap');
  end;
  bitmap.Free
end;
 

[theo]

Wie gesagt, nimm FPImage für die Konsole:

http://wiki.freepascal.org/fcl-image#Walk-through