[DLL] Ma DLL execute le Timer une seul fois !

Version imprimable

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:

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:

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 !

13/08/2005, 07h54
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

Code:

1 2 if Sender is TTimer then Sender.Enabled := True; // pour éviter l'erreur
ProcSetting : c'est toi qui l'a faite ?

Citation:

Envoyé par skywaukers

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:

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

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

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:

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 !

13/08/2005, 12h51
TOTO32

Citation:

Envoyé par tourlourou

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.
13/08/2005, 14h09
TOTO32

Ca y'est j'ai trouvé ! :D

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 :wink:
13/08/2005, 14h22
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 :

Citation:

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 !
13/08/2005, 14h26
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 ?

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

Ceci est possible :
Code:

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.

Non,

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

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 ! :?

13/08/2005, 15h11
Reisubar

Alors, ton bug ne dois pas venir de là. Utiliser et passer des objets dans une DLL est heureusement entièrement possible.
13/08/2005, 15h28
TOTO32

Citation:

Envoyé par Reisubar

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.

Code:

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

13/08/2005, 20h06
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.
13/08/2005, 20h37
Reisubar

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

Code:

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.