Question sur Mutex et pour" Send Data To Previous Instance"

Version imprimable

Salut à tous

Voilà je vous detail mon probleme:

L'utilisateur clique sur un bouton de Surpervision et ça execute mon appli si elle etait en arrière plan elle viens en premier plan
si elle n'existe pas elle se s'ouvre n'ormalement

et je voudrais que si elle est en en arrière plan au moment du click de la Surpervision actualiser des champs TdateTime.
j'ai testé ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
initialization
  // prüfen ob Programm schon läuft
  mHandle := CreateMutex(nil, True, 'Kurve_kxz5t79');
  // Anwendung läuft bereits
  if GetLastError = ERROR_ALREADY_EXISTS then
    begin
     // MessageBox(0, 'Kurve laeuft bereits.', 'Programmstart verweigert.', 16);

      THauptBild1.AufrufenProgramm('ChargenDokumentation');  
      Halt(muHALT_ALLREADY_RUNS);
      Form1.DateTimePicker:=now;
    end;

et ça

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
program Kurve;
uses
  Forms,
  Windows,
  SysUtils,
  VSKDataBase in 'VSKDataBase.pas',
  Logger in 'Logger.pas',
  gfc in 'gfc.pas',
  Global in 'Global.pas',
  HmProcessusDuration in 'HmProcessusDuration.pas',
  Kurve_Rost in 'Kurve_Rost.pas' {Form_Kurve_Rost_Show},
  Tabelle_Rost in 'Tabelle_Rost.pas' {Form_Tabelle_Rost},
  LpRost in 'LpRost.pas',
  FormSuchenUnterTeilnummer in 'FormSuchenUnterTeilnummer.pas' {Form_SuchenUnterTeilnummer},
  FormStartBild in 'FormStartBild.pas' {Form_StartBild},
  FormSuchenUnterStoerung in 'FormSuchenUnterStoerung.pas' {Form_SuchenUnterStoerung},
  Login in 'Login.pas' {LoginForm},
  ParameterDiffusions in 'ParameterDiffusions.pas' {Form_ParameterDiffusions},
  KurveDiffusions in 'KurveDiffusions.pas' {Form_KurveDiffusions},
  DiffusionsRechnen in 'DiffusionsRechnen.pas',
  LpModelAnlage in 'LpModelAnlage.pas',
  KurveProzess in 'KurveProzess.pas' {FormKurveProzess},
  PopupRostKurve in 'PopupRostKurve.pas' {FormPopupRostKurve},
  reinit in 'reinit.pas',
  FormAnlage_Belegung in 'FormAnlage_Belegung.pas' {Form_AnlageBelegung},
  FormOfenbuch in 'FormOfenbuch.pas' {Form_Ofenbuch},
  HauptBild in 'HauptBild.pas' {HauptBild1},
  ShellAPI,
  advgrid in 'advgrid.pas';

{$R *.res}

begin


  //ReportMemoryLeaksOnShutdown := (DebugHook <> 0);
  if IsPrevInstance = 0 then  begin
    Application.Initialize;
    Application.CreateForm(THauptBild1, HauptBild1);
    Application.CreateForm(TFormPopupRostKurve, FormPopupRostKurve);
    Application.CreateForm(TForm_Kurve_Rost_Show, Form_Kurve_Rost_Show);
    Application.CreateForm(TForm_Tabelle_Rost, Form_Tabelle_Rost);
    Application.CreateForm(TForm_SuchenUnterTeilnummer, Form_SuchenUnterTeilnummer);
    Application.CreateForm(TForm_SuchenUnterStoerung, Form_SuchenUnterStoerung);
    Application.CreateForm(TLoginForm, LoginForm);
    Application.CreateForm(TForm_ParameterDiffusions, Form_ParameterDiffusions);
    Application.CreateForm(TForm_KurveDiffusions, Form_KurveDiffusions);
    Application.CreateForm(TFormKurveProzess, FormKurveProzess);
    Application.CreateForm(TForm_AnlageBelegung, Form_AnlageBelegung);
    Application.CreateForm(TForm_Ofenbuch, Form_Ofenbuch);
    Application.CreateForm(TForm_StartBild, Form_StartBild);
    Form_StartBild.ImageSprache1Click(nil);
    Application.Run;
  end
  else begin

     AfficherInstance(IsPrevInstance);
     
    //SendDataToPreviousInstance ;
    Form1.DateTimePicker:=now;
  end;

end.

mais ça plante car non assigné

Y a t'il un autre moyen de communiquer avec une appli (autre que les Messages vu que depuis la supervision je ne peut envoyer de Message)

Merci d'avance
Nicolas
Cdlt

13/05/2015, 19h19
solilog

Salut,
Ben moi je virerais ton Form1.DateTimePicker:=now; de l' initialization
et le mettrais dans l'évènement OnActivate de ta Form1. Ainsi à chaque lancement "et" à chaque activation ton DateTimePicker sera à jour.
Tcho.
soilog
14/05/2015, 08h05
Andnotor

C'est à la deuxième instance d'envoyer une notification à la première avant de s'arrêter.
15/05/2015, 01h34
kosbor

Citation:

Envoyé par Andnotor

C'est à la deuxième instance d'envoyer une notification à la première avant de s'arrêter.

Oui c'est bien ce que que je voudrais faire.

Mais comment faire est-ce possible?
J'ai pensé qu'à la place de

Code:

Form1.DateTimePicker:=now;

Faire un sendmessage ou un postmessage de la 2eme vers la premiere

Bonsoir.

Voici comment j'avais fait (Delphi7 sous Windows) pour un programme nommé "FiboNotes".
Si on tente d'ouvrir une deuxième instance de l'application, envoi d'un message à l'application déjà active réceptionné dans la procedure DefaultHander. Si ma mémoire est bonne, il faut déclarer l'unité ShellApi.

Code dans l'unité de Form1 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
TForm1 = class(TForm)
//...
public
      procedure DefaultHandler(var Msg); override; 
end;
 
var
    Form1: TForm1;
    FIBONOTES_APPLICATION_RESTORE : cardinal; 
 
implementation
 
procedure TForm1.DefaultHandler;
// restore l'application si 2° appel de l'application
begin
   inherited DefaultHandler(Msg);
   if TMessage(Msg).Msg= FIBONOTES_APPLICATION_RESTORE then
   begin
      if not Application.Active then Application.Restore;
      Application.BringToFront;
     // mettre ici la réinitialisation de DateTime
   end;
end;

Le code dans le fichier programme (obligation de passer par "RegisterWindowMessage" pour pouvoir utiliser le message HWND_BROADCAST).

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  HMutex: THandle;
 
begin
     FIBONOTES_APPLICATION_RESTORE:= RegisterWindowMessage('FiboNotes_Application_Restore');
     SetLastError(NO_ERROR);
     HMutex := CreateMutex (nil, true, 'FiboNotes_Application_IsRunning');
     if (HMutex = 0) or (GetLastError = ERROR_ALREADY_EXISTS) then
          SendMessage(HWND_BROADCAST, FIBONOTES_APPLICATION_RESTORE, 0, 0)
     else
     begin
          Application.Initialize;
          Application.CreateForm(TForm1, Form1);
          //...  
         Application.Run;
     end;
     if HMutex <> 0 then CloseHandle(HMutex);
end.

J'espère que ceci te sera utile.

Thierry

16/05/2015, 00h38
kosbor

Citation:

Envoyé par ThWilliam

J'espère que ceci te sera utile.

Merci Thierry
j'ai testé ton code et ça marche du premier coup ,
Alors oui utile ça l'est !
C'est exactement ce que je voulais
encore merci