Discussion :

[Codec_]

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.

[gvasseur58]

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 ?

[Codec_]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tourlourou]

Que vaut la propriété Visible de TMainForm en conception ?

[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 ?

[Codec_]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :-)

[yamer]

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.