Passage entre formes et executable.

**PadawanDuDelphi** · 04/09/2006, 17h36

Bonjour,

Voilà, j'ai un problème avec mes passages d'une unité (ou fiche) à une autre...
Je tiens à préciser que je débute en POO, et que j'ai appris sur le tas.
Voici un exemple de code où ça plante:

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
79
80
81
//form principale
...
intreface
uses EcecutionMeca;
...
implementation
procedure TFormPrincipale.CalculElectrique1Click(Sender: TObject);
begin
  Form20.FormHide(Form20);
end;
end.
 
//form Appelée
unit ExecutionMeca;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ShellAPI,
  ConnectionBD, EditDate;
 
type
  TForm20 = class(TForm)
  procedure FormHide(Sender: TObject);
 private
    { Déclarations privées }
    pas : integer;
    const pFileElec:pchar = ('C:\Simalim\Simalim IHM\Elec\calculElec.exe');
    procedure TimeToSteptime;
  public
    { Déclarations publiques }
   Constructor Create(AOwner:TComponent); Override;
   Destructor Destroy; Override;
  end;
 
 
var
  Form20: TForm20;
 
implementation
 
{$R *.dfm}
 
{{--------------------------------------------------------------
----------------------------------------------------------------}
Constructor TForm20.Create(AOwner:TComponent);
Begin
Inherited Create(AOwner);
end;
{{--------------------------------------------------------------
----------------------------------------------------------------}
Destructor TForm20.Destroy;
Begin
Inherited Destroy;
end;
{{---------------------------------------------------------------
----------------------------------------------------------------}
procedure TForm20.TimeToStepTime;
var temps:double;
begin
  With DataModule1.Source_SIM_ARRET.DataSet do
  begin
    Open;
    First;
      temps := FieldByName('temps').AsInteger;
      temps := temps / pas;
      DataModule1.QueryGenerale.SQL.Clear;
      DataModule1.QueryGenerale.SQL.Add('UPDATE Sim_Arret set temps='+FloatToStr(temps)+'');
      DataModule1.QueryGenerale.ExecSQL;
  end;
end;
{{--------------------------------------------------------------
----------------------------------------------------------------}
procedure TForm20.FormHide(Sender: TObject);
begin
  TimeToSteptime;
  ShellExecute(Application.handle,'Open',pFileElec,'','',SW_SHOWNORMAL);
 end;
 
end.

Ce qui est bizzarre c'est que tout fonctionne sur le PC qui dispose de Delphi. Mais dès que je crée un executable et que je le lance sur un autre PC, il n'y a pas moyen de lancer l'executable CalculElec(pour l'exemple ci-dessus)...

Merci d'avance.

**sjrd** · 04/09/2006, 17h52

Vérifie les options des paquets de ton projet. Il faut décocher la case Construire avec les paquets d'exécution. Il y a de fortes chances pour que ça vienne de là

**PadawanDuDelphi** · 04/09/2006, 18h10

Merci pour ton aide sjrd, mais la case "Construire avec les paquets d'exécution" était décochée...

Je vois vraiment pas ce qui cloche...Parce que l'executable fonctionne nickel sous la machine avec Delphi.

**serge-07** · 04/09/2006, 18h15

As-tu installé le BDE sur l'autre PC ?

**PadawanDuDelphi** · 04/09/2006, 18h33

Merci,

Non, je ne crois pas avoir installé le BDE sur l'autre PC.
Mais on utilise une Base de Donnée SQL (qui est installée sur l'autre PC)...Est-ce qu'il faut quand même installée le BDE?

@+.

**serge-07** · 04/09/2006, 18h46

Quel est ton message d'erreur , au lancement ?

le query que tu utilises , c'est quoi comme object ?

**Bejaia-In** · 05/09/2006, 00h07

Code :

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

const pFileElec:pchar = ('C:\Simalim\Simalim IHM\Elec\calculElec.exe');

Ce chemin complet existe-il sur les autres PC ?

**PadawanDuDelphi** · 05/09/2006, 09h25

Tout d'abord merci pour votre aide.

Ce qui est le plus étrange, c'est qu'il n'y a aucun messages d'erreurs, mais l'executable ne se lance pas.
En revanche si j'écris le code d'execution directement dans un "ONCLICK" d'une forme, alors là tout fonctionne.
Je suis complètement perdu...

**PadawanDuDelphi** · 05/09/2006, 10h14

Bonjour,

J'ai utilisé un ApplicationEvents pour intercepter les messages d'erreur.
Je recois : "Synthaxe incorrect à la ligne 1", qui est le message typique d'une requête SQL incorrect. Voici ma requête totale, sachant que MR_id, pk et temps sont des int ( j'ai vérifié, j'ai bien les deux même tables) :

Code :

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

1
2
3
4
5
6
7
8
temps := FieldByName('temps').AsInteger;
      MR := FieldByName('MR_id').AsString;
      pk := FieldByName('pk').AsString;
      temps := temps * pas;
      DataModule1.QueryGenerale.SQL.Clear;
      DataModule1.QueryGenerale.SQL.Add('UPDATE Sim_Arret set temps='''+FloatToStr(temps)+'''');
      DataModule1.QueryGenerale.SQL.Add('WHERE MR_id='+MR+' AND pk='+pk+'');
      DataModule1.QueryGenerale.ExecSQL;

Si quelqu'un a une idée de ce qui cloche...Merci.

**Rayek** · 05/09/2006, 10h40

si le champ temps est un numérique dans ta table alors la ligne suivante est fausse :

Code :

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

1
2
 
DataModule1.QueryGenerale.SQL.Add('UPDATE Sim_Arret set temps='''+FloatToStr(temps)+'''');

il faut que tu ecrives :

Code :

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

1
2
 
DataModule1.QueryGenerale.SQL.Add('UPDATE Sim_Arret set temps='+FloatToStr(temps));

**Yurck** · 05/09/2006, 10h49

Envoyé par PadawanDuDelphi

Ce qui est le plus étrange, c'est qu'il n'y a aucun messages d'erreurs

Bonjour,

C'est un fait qu'il est surprenant que la position de ton code détermine son exécution, mais je vais rebondir sur ton manque d'information.

Si delphi est installé sur un poste alors au cours de son installation il déloge le débogueur par défaut de windows pour implanter le sien.
En conséquence de quoi je suppose que ce n'est pas ton exécutable qui ne se lance pas mais le débogueur de windows qui décide que cet exé fait une opération non conforme; il empêche donc cet exe de se lancer et stock les informations de non-conformité dans un fichier .Dat; puis fonction de son paramétrage de sécurité il propose d'envoyer ce fichier .dat à Microsoft ou il reste silencieux.

En clair il faut enlever le débogueur windows sur l'autre PC pour voir ton message d'erreur.

tu ouvres la clef

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AeDebug

et tu mets la valeur auto à 0.

a+

**PadawanDuDelphi** · 05/09/2006, 12h05

Bonjour,

Tout fonctionne maintenant, je crois que tu avait raison Malatar. Et tes explications Yurck me serviront grandement par la suite.

En tout cas merci à tous pour votre aide.

@+.

Passage entre formes et executable.

Delphi

Discussions similaires

Partager

Partager