error al guardar bitmap en archivo

[Robert01]

Hola

TRaduje el código de un ejemplo originalmente en Delphi a Lazarus.
Hace gráficos en un control TImage usando un componente no visual llamado TPantograph, el gráfico se dibuja bien pero al tratar de guardarlo en un archivo me da un error.

Código Delphi [-]
procedure TSurface.ButtonWriteBMPClick(Sender: TObject);
  VAR
    Bitmap:  TBitmap;
begin
  Screen.Cursor := crHourGlass;
  TRY
    Bitmap := TBitmap.Create;
    Bitmap.Width  := 1024;
    Bitmap.Height := 1024;
    Bitmap.PixelFormat := pf8bit;
    DrawSurface (Bitmap.Canvas, FALSE);
    Bitmap.SaveToFile('Surface.BMP');
    ShowMessage('Surface.BMP written to disk (1024-by-1024 pixels)')
  FINALLY
    Screen.Cursor := crDefault
  END
end;

¿Alguien sabe si se trata de un bug de Lazarus o si hay un error al tratar de guardar el bitmap?

Saludos

[[Caral]]

Hola
Para variar de esto no se, pero no hace falta darle la direccion?

Código Delphi [-]
Bitmap.SaveToFile('C:\Surface.BMP');

Bueno, me imagino.
Saludos

[Robert01]

El error es Violación de acceso

GetBitmapOrder - GetDiBits TstPixel failed : El parámetro no es correcto.
TApplication.Handleexception Access violation
Stack trace:
$00000000

Gracias por responder Caral

Salu2

[[Caral]]

Hola
Sigo sin entender.
Quieres guardar un bmp, pero de donde lo sacas?
No necesitas buscar ese bmp en algun lado antes de guardarlo?
Loadfromfile
SaveToFile.
No se, ya sabes es por seguir en esto.
Saludos

[Robert01]

Bueno por si quieres echarle un vistazo:

link

Son los gráficos que usan el componente visual TPantograph.

Yo sólo los he modificado un poco para usarlos en lazarus

No se si tenés el lazarus instalado

Estos son los archivos que probé en lazarus : http://download.yousendit.com/2053E9C7135E7C5F