Discussion :

[TOTO32]

Bonjour a tous !

J'ai un probleme qui dure depuis 1 semaine, et franchement je commence a desesperer. Cette application est un Systray dans la barre des tache, je ne sais pas si cela jous quelque chose, mais au cas ou, je prefere le dire.

Voici le code de l'evenement OnTimer :

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
procedure TTray.Timer1Timer(Sender: TObject);
var SCANINI, SCANPRG: TIniFile; I, J, Sum: Integer; ScanSet: String; VerifDate: Boolean;
    DirPar: ShortString; Hn, Mn, Hc, Mc, Sc: Word;
label EndB;
begin
    try
        VerifDate:=False;
        DecodeTime(Time,Hn,Mn,Sc,Sc);
        SCANINI:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'ScfData.ini');
        Sum:=SCANINI.ReadInteger('File0','Sum',0);
        for I:=1 to Sum do begin
            if SCANINI.ReadString('File'+IntToStr(I),'Enabled','Non') = 'Oui' then begin
                ScanSet:=SCANINI.ReadString('File'+IntToStr(I),'Setting','Aucune');
                if ScanSet <> 'Aucune' then begin
                    SCANPRG:=TIniFile.Create(ExtractFilePath(Application.ExeName)+ScanSet+'.prg');
                    if SCANPRG.SectionExists(IntToStr(7)) then
                        if Date = SCANPRG.ReadDate('7','1',Now) then VerifDate:=True;
                    if SCANPRG.SectionExists(IntToStr(8)) then
                        for J:=1 to 7 do
                            if SCANPRG.ReadBool('8',IntToStr(J),False) then
                                if DayOfTheWeek(Date) = J then VerifDate:=True;
                    if SCANPRG.SectionExists(IntToStr(9)) then
                        if DayOf(Date) = SCANPRG.ReadInteger('9','1',1) then VerifDate:=True;
                    if SCANPRG.SectionExists(IntToStr(10)) then
                        if (SCANPRG.ReadInteger('10','1',1) = DayOfTheWeek(Date)) and (NthDayOfWeek(Date) = 1) then VerifDate:=True;
                    if VerifDate then begin
                        VerifDate:=False;
                        DecodeTime(SCANPRG.ReadTime('11','2',Now),Hc,Mc,Sc,Sc);
                        if (Hn = Hc) and (Mn = Mc) then begin
                            SCANPRG.Free;
                            DirPar:=Copy(ExtractFilePath(Application.ExeName),1,Length(ExtractFilePath(Application.ExeName))-9);
                            if ProcSetting(ExtractFilePath(Application.ExeName)) then ShowMessage('Top OK !');
                            goto EndB;
                        end;
                    end;
                end;
            end;
            SCANPRG.Free;
        end;
        EndB:
        Timer1.Enabled:=True;
        Exit;
    finally
        SCANINI.Free;
    end;
end;

Ce code doit s'executer normalement toutes les 60 secondes, et de préférence a la seconde prés, mais le probleme que j'ai est qu'il s'execute qu'une seule fois, ensuite plus rien. Je tient a preciser que la fonction ProcSetting vient d'une DLL, si cela peut influencer quelque chose !

J'ai meme essayer de reactiver le Timer a la fin de la boucle histoire d'etre sur que celui-ci soit actif, et la encore pire il me fait une erreur de violation d'acces. je n'y comprend plus rien !

Autre chose, quand je mets un point d'arret pour scruter l'evenement OnTimer, au premier passage il s'arrete, ensuite il faut que j'attendent 2 minute mini pour voir le code se figer a nouveau, et le pire dans tout ça c'est qu'il s'arrete ici, au premier begin :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TTray.WMAppelMessage(var msg : TMessage);
Var Curs:TPoint;
begin
    if Msg.LParam = WM_RButtonDown then begin
        SetForegroundWindow(Handle);
        GetCursorPos(Curs);
        PopupMenu1.Popup(Curs.X,Curs.Y);
        PostMessage(Handle,WM_NULL,0,0);
    end;
end;

Ce bout de code est tout simplement le clique droit de mon systray, ce qui n'a rien a voir avec le point d'arret mis dans l'evenement OnTimer !

Alors si quelqu'un pourrait me donner des reponse a tous ce bazarre, cela m'aiderait beaucoup, Ou sinon si vous pouvez m'indiquer une facon d'avoir une horloge plus precise et plus fonctionnel que le TTimer, cela serait l'ideale, Merci !

[skywaukers]

bonjour,

tu es sûr que le problème n'est pas dans la DLL ? Essaye en desactivement la partie qui l'appelle pour voir si le comportement reste le même.

@++
Dany

[tourlourou]

Code :

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

1
2
 
if Sender is TTimer then Sender.Enabled := True; // pour éviter l'erreur

ProcSetting : c'est toi qui l'a faite ?

[TOTO32]

tu es sûr que le problème n'est pas dans la DLL ?

Merci, en effet le probleme vient de la DLL, je comprend pas pourtant elle fonctionne tres bien en temps normale, peut etre que j'aurais fais une erreur, voici la déclaration de celle-ci dans le Systray :

Code :

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

function  ProcSetting(DirSet: ShortString): Boolean; stdcall; external 'scanchk.dll';

et ici les autre fonction exportés déclaré dans la DLL :

Code :

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

1
2
3
4
5
function  ProcSetting(DirSet: ShortString): Boolean; stdcall;
function  AssLDC(LigneCom, FilePrg: ShortString; Write: Boolean): ShortString; stdcall;
function  DateStart(Date1: TDateTime; FileSet: ShortString; Hour: Boolean): TDateTime; stdcall;
function  ExtractName(Dir: ShortString): ShortString; stdcall;
function  ExtractDir(Dir: ShortString): ShortString; stdcall;

et voici les procedure et fonction contenus dans la DLL qui ne sont pas exportés :

Code :

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

1
2
3
4
5
6
procedure ProcModif(SetF: TIniFile; IndiceIni: Integer);
procedure ProcCreate(SetF: TIniFile; IndiceIni: Integer);
procedure SaveReport(SetF: TIniFile; Tp, Mess1, Mess2: TString80; S, IndiceIni: Integer; DateFile: TDateTime; NF: String);
procedure MAJFile(Index: Integer; FileIni: TIniFile; ItProp: TSearchRec);
procedure CommInc(StrInc, StpInc: TString5; var ResInc: TString20; Pref: Boolean);
function  FormatLDC(LigneCom: String; ComID: TString20; FilePrg: ShortString; Write: Boolean): TString20;

Je tient a preciser que le Systray importe seulement la fonction ProcSetting, c'est tout !

[TOTO32]

ProcSetting : c'est toi qui l'a faite ?

En effet, c'est moi qui les faites, et puis je tient a preciser que le goto que j'ai mis, est a la base remplacer par le Exit, j'avais juste mis le goto pour faire des essais, idem pour le Timer.Enabled.

[TOTO32]

Ca y'est j'ai trouvé !

Je savais que l'on pouvait pas passer d'Objet en parametre pour les fonctions exportés, mais je savais pas que l'on ne pouvait pas passer d'Objets en parametre au procedure interne a la DLL, étant donnée que celle-ci ne sont pas exportés, hé bien si, malheureusement on ne peut pas passer d'Objet en parametre quelle que soit la portée de la fonction.

Pour les débutant comme moi, voici un resumé :

- On peut manipuler les Objet dans une DLL, mais on ne peut pas les faire sortir de la fonction proprement dite, il faut a chaque fois les recréer.
- De plus on ne peut pas les transmettre en parametre, quel que soit la portée de la fonction.
- De plus j'ai lu que "les DLL ne peuvent exporter que des fonctions" voici le lien qui se trouve sur la page des tutoriels : http://www.eyrolles.com/Chapitres/9782212111439/19.pdf.

Et malheureusement dans l'aide de Delphi il n'en parle pas, alors bonjour la galere, enfin tout est bien qui finis bien !

Si il y a des erreurs, n'hesitez pas a me corriger

[Reisubar]

Les DLL peuvent recevoir des objets Delphi à condition que l'application hôte et la DLL soient construits avec les paquets d'exécution. Sinon, il faut utiliser ShareMem des deux côtés et savoir que les opérateurs IS et AS ne fonctionneront pas.

Je ne comprends pas non plus pourquoi tu dis :

On peut manipuler les Objet dans une DLL, mais on ne peut pas les faire sortir de la fonction proprement dite, il faut a chaque fois les recréer.

On peut faire ce qu'on veut dans une DLL. Le problème est éventuellement le passage de l'application à la DLL et de la DLL à l'application, mais dans les appels de fonctions dans la DLL, tout est possible !

[TOTO32]

Ben alors pourquoi ça fonctionne pas quand je passe un TIniFile en parametre dans une de mes procedure dans la DLL, il faudrait que j'utilise ShareMem ?

[Reisubar]

Je voudrais qu'on soit sûr que l'on se comprenne bien ;-)

Ceci est possible :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure MaProcExportee(const ADummyParam: PChar); stdcall;
var
  LIniFile: TIniFile;
begin
   LIniFile := TIniFile.Create('c:\monIni.ini');
   MaProcPasExportee(LIniFile);
   LIniFile.Free; 
end;
 
procedure MasProcPasExportee(AIniFile: TIniFile);
begin
   AIniFile.WriteString('Hello', 'World, 'It''s me');
end;

Est-ce que c'est ce que tu fesais ?

ShareMem est nécessaire lorsque tu passes des objets ou des entités dont la mémoire est gérée par Delphi. Etant donné que les DLL ne partagent pas le même tas, des allocations mémoires faites d'un côté ne peuvent pas être désalloués de l'autre... C'est là ou on fait appel à un troisième gestionnaire, ShareMem, qui est commun aux deux modules et permet d'outrepasser cette limitation. Sinon, ShareMem n'est pas nécessaire.

[TOTO32]

Non,

En faite je fesais cela, entiérement dans la DLL :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure ProcNonExporté1;
var Init: TIniFile;
begin
     Init:=TIniFile.Create('C:\Program Files');
     ProcNonExporté2(Init);
     Init.Free; 
end;
 
procedure ProcNonExporté2(FIni: TIniFile);
begin
     FIni.WriteString('Section','Key','Value');
end;

Voir mon message vers le debut du poste ou toute la déclaration de la DLL est présente.

Et comme ça mon Timer ne s'execute qu'une seule fois, par contre si j'enleve toute les procedure et fonction qui utilise des objet en parametre ça fonctionne !

[Reisubar]

Alors, ton bug ne dois pas venir de là. Utiliser et passer des objets dans une DLL est heureusement entièrement possible.

[TOTO32]

Alors, ton bug ne dois pas venir de là. Utiliser et passer des objets dans une DLL est heureusement entièrement possible.

Alors, je vais essayer d'approfondir, et je vous tiendrait au courant.

[tourlourou]

Code :

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

1
2
3
4
procedure ProcNonExporté2(     var     FIni: TIniFile); 
begin 
     FIni.WriteString('Section','Key','Value'); 
end;

[TOTO32]

Bon, ben tout ça pour vous dire que je ne comprend pas !

Le fait d'avoir enlever mes objets en parametre dans ma DLL, fait fonctionner mon Timer, je ne sais pas si c'est reelement ça, mais bon je m'arrete la et merci pour votre aide.

[Reisubar]

OK :-) Tant mieux si ça marche, donc.

Code :

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

procedure ProcNonExporté2(     var     FIni: TIniFile);

Le fait de mettre var ou pas ne change pas grand chose. Un objet est déjà, implicitement, un pointeur.