Discussion :

[AL1986]

Salut,
Je bosse sur un projet de migration de vb à delphi, dans vb la méthode SaveSetting est utilisée pour sauvegarder les modifications concernant la base de registres. J'aimerai savoir s'il y a une méthode équivalente en delphi.
J'ai cherché un peu dans l'aide, j'ai trouvé l'unit Registry avec pas mal de méthodes mais aucune ne semble prendre les 4 paramètres nécessaires à SaveSetting.
Merci pour votre aide.
Ali

[aityahia]

je ne sais pas vraiment ce que fais SaveSetting mais TRegistry j e connais bien alors si vous pouvez me donné un exemple on fera une traduction en delphi .

[Dirk-Pitt]

C'est à dire ? Que fait SaveSetting exactement en VB ?

[rbh]

Salut
Le savesettings de VB ne fait que enregistrer dans la BDR à un certain endroit.
Il me semble que c'est quelque Chose du genre : "Key_Current_User\SOFTWARE\VB and VBA Program Settings" les paramêtres que tu donnes à la fonction détermine ou sera enregistré la valeur.

A partir de la, il faut que tu apprennes à te servir de l'objet TRegistry.
Tu auras besoin de :

Code :

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

1
2
3
4
5
6
 
TRegistry.RootKey;
TRegistry.OpenKey;
TRegistry.ReadString;
TRegistry.ReadInteger;
etc avec float, bool, ...

[AL1986]

Le bout de code que je veux transformer est :
SaveSetting('JWA\Réplication\MiseAjour' , vgTrans2 , 'Numéro' , vgTrans3 );
SaveSetting( 'JWA\Réplication\MiseAjour' , vgTrans2 , 'Demande',Check1.checked );
Je dois donc utiliser plusieurs propriétés de Tregistry pour faire la même opération que SaveSetting.

[Dirk-Pitt]

Regarde du côte des méthodes WriteXXX de TRegistry. Par exemple:

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
        lRegistry := TRegistry.Create;
        try
            with lRegistry do begin
                RootKey := HKEY_LOCAL_MACHINE;
                lKey := '\SYSTEM\CurrentControlSet\Services\' + cSignature;
 
                if KeyExists( lKey ) then begin
                    OpenKey( lKey, false );
                    try
                        WriteString( 'Description', '© 2005 Dirk-Pitt ~ Service DP Terminal Listener Starter' );
                    finally
                        CloseKey;
                    end;
                end
                else begin
                    SysTrace( tlError, 'Service %s not installed', [ cSignature ] );
                end;
            end;
        finally
            FreeAndNil( lRegistry );
        end;

[AL1986]

Ouki, merqui