Discussion :

[lejert]

Je sais que la question a déjà été posée ici et ailleurs, mais je reste quand même bloqué sur ce problème qui me semblait pourtant très simple au départ.

Je voudrais sauvegarder quelques clés de registre dans un fichier reg (seulement 4 de toute l'arborescence).

J'ai créé des fichiers temporaires (sauvegarde de chaque clé dans des fichiers) que je souhaitais donc concaténer en un seul par la suite.

Le codage des .reg n'étant pas utf-8, je ne pouvais pas utiliser de StringList. J'ai donc opté pour la méthode 'binaire' mais la fonction Blockread pose problème (je développe sous Delphi 2006 - Win7). Erreur E/S 998.

Aussi, j'ai lu que Blockread était obsolète... le problème ne viendrait-il pas de là ?

Merci pour votre aide...

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
 
 
var
    i : Integer;
    s : String;
    f1, f2, f3,
    f4, fDest    : File;
    FSize        : Integer;
    StrBuf       : String;
 
 
begin
    dlgSave.Filter := 'Windows registry file | *.reg';
    dlgSave.InitialDir := '';
    dlgSave.DefaultExt := '.reg';
    dlgSave.Options    := [ofOverwritePrompt,ofHideReadOnly,ofEnableSizing];
    if (dlgSave.Execute = True) then Begin
        // Sauvegarde des clé dans des fichiers temporaires       
s := dlgSave.FileName + 'tmpEX';
        ShellExecute (0, nil, 'regedit.exe', PChar ('/e "' + s +'" "HKEY_LOCAL_MACHINE\SOFTWARE\M\EX\"'), nil, 0);
        s := dlgSave.FileName + 'tmpDBC';
        ShellExecute (0, nil, 'regedit.exe', PChar ('/e "' + s +'" "HKEY_LOCAL_MACHINE\SOFTWARE\M\DBC\"'), nil, 0);
        s := dlgSave.FileName + 'tmpGR';
        ShellExecute (0, nil, 'regedit.exe', PChar ('/e "' + s +'" "HKEY_LOCAL_MACHINE\SOFTWARE\M\GR\"'), nil, 0);
        s := dlgSave.FileName + 'tmpSYNC';
        ShellExecute (0, nil, 'regedit.exe', PChar ('/e "' + s +'" "HKEY_LOCAL_MACHINE\SOFTWARE\M\Sync\"'), nil, 0);
 
        AssignFile(f1, dlgSave.FileName + 'tmpEX');
        AssignFile(f2, dlgSave.FileName + 'tmpDBC');
        AssignFile(f3, dlgSave.FileName + 'tmpGR');
        AssignFile(f4, dlgSave.FileName + 'tmpSYNC');
        Reset(f1,1);
        Reset(f2,1);
        Reset(f3,1);
        Reset(f4,1);
        AssignFile(FDest, dlgSave.FileName);
        Rewrite(FDest,1);
        FSize := FileSize(f1);
        BlockRead(f1, StrBuf, FSize);
        BlockWrite(fDest, StrBuf, FSize);
        FSize := FileSize(f2);
        BlockRead(f3, StrBuf, FSize);
        BlockWrite(fDest, StrBuf, FSize);
        FSize := FileSize(f3);
        BlockRead(f3, StrBuf, FSize);
        BlockWrite(fDest, StrBuf, FSize);
        FSize := FileSize(f4);
        BlockRead(f4, StrBuf, FSize);
        BlockWrite(fDest, StrBuf, FSize);
 
        CloseFile(f1);
        CloseFile(f2);
        CloseFile(f3);
        CloseFile(f4);
        CloseFile(fDest);
 
        DeleteFile(dlgSave.FileName + 'tmpEX');
        DeleteFile(dlgSave.FileName + 'tmpDBC');
        DeleteFile(dlgSave.FileName + 'tmpGR');
        DeleteFile(dlgSave.FileName + 'tmpSYNC');
    end
end;

[dehorter olivier]

J'utilise cette fonction (trouvé sur le forum )

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
FUNCTION Fusion_Fichier(Nouveau: STRING; lst_Fichier: TStringList): boolean;
VAR
    LFileStream, LNewFile: TFileStream;
    i: Integer;
 
BEGIN
    IF FileExists(Nouveau) THEN
        DeleteFile(PChar(Nouveau));
    // On créer un flux représentant le gros fichier final
    LNewFile := TFileStream.Create(Nouveau, fmCreate);
    TRY
        FOR i := 0 TO lst_Fichier.Count - 1 DO
        BEGIN
            Result := False;
            IF FileExists(lst_Fichier.Strings[i]) THEN
            BEGIN
                LFileStream := TFileStream.Create(lst_Fichier.Strings[i], fmOpenRead OR fmShareDenyWrite);
                TRY
                    LFileStream.Position := 0; // Début du flux
                    // On copie dans le gros fichier l'ensemble du petit fichier
                    // C'est la méthode la plus importante de l'algo un petit F1 te donnera tous les détails
                    LNewFile.CopyFrom(LFileStream, LFileStream.Size);
                    Result := True;
                FINALLY
                    LFileStream.Free;
                END;
            END; // Fin de IF
        END; // Fin de FOR
    FINALLY
        LNewFile.Free;
    END;
END; // Fin de FONCTION

[lejert]

Merci, Olivier, ça fonctionne avec ta méthode