Lors de l'exécution d'un programme, aucune fenêtre (form) ne s'affiche !

Version imprimable

29/02/2016, 17h13
Codec_

Lors de l'exécution d'un programme, aucune fenêtre (form) ne s'affiche !

Ubuntu 15.10
FPC 3.0
Lazarus 1.6 RC2

Bonjour,
Après avoir pu compiler avec succès, quand j'exécute un programme depuis l'EDI, rien ne se passe ! Aucun message d'erreur !
Dans Option -> Option du projet -> Fiches, j'ai bien placé ma forme principale que j'ai nommé MainForm dans "Créer les fiches automatiquement" !

J'avoue sécher la dessus et vous remercie d'avance pour votre aide.

Belle journée.
29/02/2016, 18h28
gvasseur58

Citation:

Envoyé par Codec_

Bonjour,
Après avoir pu compiler avec succès, quand j'exécute un programme depuis l'EDI, rien ne se passe ! Aucun message d'erreur !
Dans Option -> Option du projet -> Fiches, j'ai bien placé ma forme principale que j'ai nommé MainForm dans "Créer les fiches automatiquement" !

Bonjour,

La description est trop elliptique pour une aide. Peut-on avoir un listing du programme minimum qui n'affiche rien ?

Citation:

Envoyé par gvasseur58

Bonjour,

La description est trop elliptique pour une aide. Peut-on avoir un listing du programme minimum qui n'affiche rien ?

Oui, bien sûr... C'est juste un programme de test car je suis en train de finaliser l'installation des outils de développement. Voici ce que j'ai jusque là :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 program HC32RB; {$mode objfpc}{$H+} uses SysUtils, Interfaces, fphttpapp, uhc32rb; begin Application.Initialize; // Application.Threaded:=True; Application.CreateForm(TMainForm, MainForm); Application.Run; end. unit uhc32rb; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, fpwebfile, fphttpapp; type { TMainForm } TMainForm = class(TForm) FHandler : TFPCustomFileModule; bStart: TButton; bStop: TButton; mMemo: TMemo; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { private declarations } public { public declarations } end; Const cDocumentRoot = '/home/chd/lazarus/HC32RB/html/admin.htm'; cMiMeFile = '/etc/mime.types'; cPort = 80; var MainForm: TMainForm; implementation procedure TMainForm.FormCreate(Sender: TObject); begin RegisterFileLocation('files', cDocumentRoot); MimeTypesFile:= cMiMeFile; FHandler:= TFPCustomFileModule.CreateNew(Self); FHandler.BaseURL:= 'files/'; end; procedure TMainForm.FormDestroy(Sender: TObject); begin if assigned(FHandler) then FHandler.Free; end; {$R *.lfm} begin end.
et quand je test le projet, voici ce que ca donne :
CONSEIL : utilisation du fichier de configuration /etc/fpc.cfg
ATTENTION : "ppu" existe deux fois : /usr/lib/fpc/3.0.0/units/x86_64-linux/fv/dialogs.ppu, /usr/share/lazarus/1.6RC2/lcl/units/x86_64-linux/dialogs.ppu
ATTENTION : "ppu" existe deux fois : /usr/lib/fpc/3.0.0/units/x86_64-linux/fv/menus.ppu, /usr/share/lazarus/1.6RC2/lcl/units/x86_64-linux/menus.ppu

Merci bien pour ton aide

29/02/2016, 20h27
tourlourou

Que vaut la propriété Visible de TMainForm en conception ?
01/03/2016, 08h30
Codec_

J'ai essayé d'ajouter une ligne "MainForm.Show" dans FormCreate, mais rien ne change.

Par contre, j'ai un nouvel indice... Quand je créer un nouveau projet de type application, je peux le compiler et le démarrer sans problème ! La fiche Form1 est affichée normalement.
Si je créer une nouvelle application serveur HTTP, je la compile tel qu'elle et l'application s'exécute normalement, sans problème. Si ensuite, j'ajoute une simplement une fiche (Form) à cette application, quand je la compile, j'ai une erreur WSRegisterCustomImageList dans l'unité WSImgList !

J'ai installé l'outils Lazarus + fpc sous Ubuntu car je dois développer une application service qui doit fonctionner au final sur une carte Raspberry PI2B/Ubuntu Mate.
Mon projet est relativement simple : 1x Serveur HTTP pour la configuration de l'application et client TCP/IP et/ou UDP/IP pour un échange de donnée automatiquement entre différents API
Voir : http://www.automelec.ch/transit/hcpx32/HCPX32C.htm et http://www.automelec.ch/transit/hcpx32/H_plc_net.jpg
J'ai réaliser au préalable quelques tests sous Windows 7/Delphi 7 que je connais bien et ça fonctionne pas trop mal.
Je débute complètement avec Lazarus que je viens de découvrir :-)
Y-a-t-il des problèmes connus sous Lazarus avec les application serveur HTTP qui utilisent les paquets WebLaz et WebLazExtra (fpWEB) ?
Devrais-je partir avec d'autres ressources ?

Résolu :-)

J'ai trouvé la cause et la solution à mon problème :
1. J'ai ajouté Interfaces sous la clause Uses
2. J'ai ajouté la ligne de code "RequireDerivedFormResource:=True;" dans le fichier principal du projet.
Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
 
program HC32RB;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, uform, uWebModule
  { you can add units after this };
 
{$R *.res}
 
begin
  RequireDerivedFormResource:=True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TFPWebModule1, FPWebModule1);
  Application.Run;
end.
 
 
unit uform;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Interfaces, Forms, Controls, Graphics, Dialogs;
 
type
  TForm1 = class(TForm)
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
end.
 
 
unit uWebModule;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  SysUtils, Classes, httpdefs, fpHTTP, fpWeb;
 
type
  TFPWebModule1 = class(TFPWebModule)
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  FPWebModule1: TFPWebModule1;
 
implementation
 
{$R *.lfm}
 
initialization
  RegisterHTTPModule('TFPWebModule1', TFPWebModule1);
end.

Je vous remercie toutes et tous pour vos aides bien précieuses.
Longue vie à ce forum :-)

01/03/2016, 12h18
yamer

Citation:

Envoyé par Codec_

Y-a-t-il des problèmes connus sous Lazarus avec les application serveur HTTP qui utilisent les paquets WebLaz et WebLazExtra (fpWEB) ?

Le "problème" est justement que les modèles d'application fournis sont fait pour créer des applications non graphiques d'où ton problème que tu as résolu.