Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / qt / 2010-02

arm-linux-uclibc and lazarus + qt-4.5.2 program issues

1 message · 1 person ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Nataraj S Narayan

Hi

I am getting the following error on a lazarus code which compiles well on ppc386 + qt4.5.2.
As mentioned before the previous "addressbook" example given by Den compiles and 'fireworl" example which used ncursesw , work well on the target.

compiled using :-

# ppcrossarm -MObjFPC -TLinux -Parmv5 -gl -Xr -Xd -Xs -l -darm -XParm-linux-uclibcgnueabi- -CfSOFT -CaEABI -darm -gl -O- -CpARMV5 -uUSE_LOCALIZE -Fu/usr/local/lib/fpc/2.5.1/units/arm-linux/* -Fl$ARMPATH/usr/arm-linux-uclibcgnueabi/lib
-FL$ARMPATH/lib/ld-uClibc.so.0 -XR$ARMPATH -Fl$ARMPATH/lib -Fl$ARMPATH/usr/lib -k"--sysroot=$ARMPATH"
-k"-rpath-link=/cdrom/output/build/staging_dir/usr/arm-linux-uclibcgnueabi/lib/" noy1.lpr -darmlclqt

where ARMPATH just points to the rootfs dir.

./noy1 -qws
FT_New_Face failed with index 0 : 2
[FORMS.PP] ExceptionOccurred
Sender=EInvalidGraphic
Exception=Stream is not an Icon type
Stack trace:
$0009FE2C
$00090060
$0008FF18
$0008C5F4
$0003F584
$00017FB0
TApplication.HandleException Stream is not an Icon type Stack trace:
$0009FE2C
$00090060
$0008FF18
$0008C5F4
$0003F584
$00017FB0
[FORMS.PP] ExceptionOccurred

where:-
#cat noy1.lpr

program noy1;
{$mode objfpc}{$H+}

uses

  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms
  { you can add units after this }, noy, LResources;
{$IFDEF WINDOWS}{$R noy1.rc}{$ENDIF}
begin
  {$I noy1.lrs}
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
# cat noy.pas
unit noy;
{$mode objfpc}{$H+}
interface

uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,

  StdCtrls;
type
  { TForm1 }
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
var
  Form1: TForm1;
implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Unda Noy');
end;
initialization
  {$I noy.lrs}
end.

May I have some clues?

regards

Nataraj