Convertir string en Array of Char et point de restauration

Version imprimable

Je souhaite créer un point de restauration systeme dans mon programme.
j'ai trouvé le code sur le site de developpez.com à l'adresse :
http://www.developpez.com/delphi/faq...inrestauration

la ligne suivante, affiche le nom du point de restauration :
InfoPointRestauration.szDescription := 'Example de point de restauration';

il s'agit en fait d'un Array et non s'un string

J'ai voulu ajouter un InputBox pour demander le nom du point de restauration mais impossible ! des problèmes de compatibilité de format entre string et Array. J'ai essayer de transformer le string de l'inputbox en Array of Char
comme ceci :
Code:

1 2 3 4 5 6 7 8 9 var a : string; RestoreName : Array[0..255) of char; begin //Copie d'un string vers un array of char RestoreName := StrCopy(a, PChar(RestoreName)); InfoPointRestauration.szDescription := RestoreName;
mais impossible (type incompatibles) ! j'avoue que je bloque.
Quelque'un peut-il m'aider ?
Merci.

Daniel

27/05/2007, 13h54
Clorish

Pourquoi ne pas effectuer uen boucle de 1 a Length(<chaine saisie>) et copiler les caracteres un par un dans le tableau de char ;)

A verifier ... mais je pense que le tableau doit contenir le caracter nul #0 pour terminer la chaine :)
27/05/2007, 14h15
Gilbert Geyer

Pour transférer un String dans un Array of Char :

Essayes donc avec Move(StrSource, BufDestination, Length(StrSource));
et si Length(StrSource) est trop court (0 terminal AZT de l'Array) remplaces par Length(StrSource)+1) ;

Pour plus de détails sur Move faire F1.

Marche pas !

marche pas (avec ou sans +1) !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 var RestoreName : string; RestoreName2 : Array[0..255] of Char; begin repeat RestoreName := InputBox('Point de restauration', 'Entrez un nom', 'Nouveau point de restauration'); until RestoreName <> ''; Move(RestoreName, RestoreName2, Length(RestoreName)); InfoPointRestauration.szDescription := RestoreName2; //Array of
Types incompatibles !
Quelqu'un peut-il me dire s'il s'agit bien d'un Array of Char pour InfoPointRestauration.szDescription" ?

Quelqu'un peut il tester le code (voir lien dans la question) ?

Daniel

27/05/2007, 16h53
Gilbert Geyer

Y'a pas beaucoup de monde sur le forum aujourd'hui.

Mais si tu tapes 'Copy String to array of char' dans l'Edit qui s'ouvre avec la fonction Chercher dans le Forum (en haut à droite de la page 1 du Forum) on trouve une discussion sur ce sujet qui te donnera peut-êtres des idées.
28/05/2007, 06h52
J_apprenti
:salut: Mr secretman.

peut-etre que c'est StrPCopy que tu dois utiliser :D

Code:

function StrPCopy(Dest:PChar;const Source:string):PChar;

StrPCopy copie Source dans une chaîne à zéro terminal Dest.Elle renvoie un pointeur vers Dest.
Code:

1 2 3 4 5 6 var a : string; RestoreName : Array[0..255) of char; begin StrPCopy(RestoreName,a); InfoPointRestauration.szDescription := RestoreName;
:coucou:
28/05/2007, 17h06
secretman

Types incompatibles !

StrPCopy(RestoreName,a);

[Erreur] Unit1.pas(467): Types incompatibles

Je me demande si "InfoPointRestauration.szDescription"
est bien d'un Array of Char ??? car j'ai tout essayer en vain.

Qu'y a t-il comme autres Array ? Byte ? ...

Si quelque'un à le temps de regarger le source, 2 secondes, pour me dire ce qu'il en pense :

http://www.developpez.com/delphi/faq...inrestauration

Merci d'avance,

Daniel
28/05/2007, 17h27
the_clansman

Y'a pas de doute...

Non, y'a pas de doute, c'est bien un Array of Char...

Tu peux refaire un copier-coller de ton code avec ton Input ? J'ai l'impression que le problème vient de l'input et non pas du type d'origine...
28/05/2007, 17h31
the_clansman

Dans l'api...

Dans l'api le szDescription est limité à 64 caractères... T'es sûr que ton problème ne vient pas de là ???
28/05/2007, 21h40
bjl

Hello,

et en essayant Move(StrSource[1], BufDestination, Length(StrSource)); ?

la partie array of char d'un string commence au rang 1 et non 0, ne l'oublions pas.

dsl, je n'ai pas delphi ici pour tester.

Toujours type incompatible (voivi le code) !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
var
  a : string;
  RestoreName : Array[0..63] of char;
begin
  // Initialise l'enregistrement
  InfoPointRestauration.dwEventType := BEGIN_SYSTEM_CHANGE;
  InfoPointRestauration.dwRestorePtType := APPLICATION_INSTALL;
  InfoPointRestauration.llSequenceNumber := 0;
 
  a := InputBox('Point de restauration', 'Entrez un nom', 'Nouveau point de restauration');
  Move(a[1], RestoreName, Length(a));
  //  a := StrCopy(RestoreName, PChar(a)); //test2
  // a := StrPCopy(RestoreName, PChar(a)); //test3 : toujours rien
 
  InfoPointRestauration.szDescription := RestoreName;

Voici donc le code, pour trouver le truc qui coince !

Daniel

salut

restorename n'est pas du meme type que szDescription
Code:

1 2 3 4 5 6 7 MAX_DESC = 64; ... // Informations de point de restauration type ... szDescription: array [0..MAX_DESC] of CHAR; // Description : Nom de l'application / opération ...
64 est different de 63

@+ Phil

01/06/2007, 17h50
secretman

Toujours incompatibles !

var
RestoreName: array [0..MAX_DESC] of CHAR;
toto : string;

toto := InputBox('Point de restauration', 'Entrez un nom', 'Nouveau point de restauration');

Move(toto[1], RestoreName, Length(toto));
//StrPCopy(RestoreName,toto)

InfoPointRestauration.szDescription := RestoreName; //Array of

Toujours type incompatible ! c'est à s'arracher les cheveux.
04/06/2007, 14h55
bjl

Citation:

Envoyé par secretman

var
RestoreName: array [0..MAX_DESC] of CHAR;
toto : string;

toto := InputBox('Point de restauration', 'Entrez un nom', 'Nouveau point de restauration');

Move(toto[1], RestoreName, Length(toto));
//StrPCopy(RestoreName,toto)

InfoPointRestauration.szDescription := RestoreName; //Array of

Toujours type incompatible ! c'est à s'arracher les cheveux.

bonjour, j'ai pu jouer un peu avec delphi ce week end.

Move(toto[1], RestoreName[0], Length(toto));

devrait mieux fonctionner. attention aux longueurs respectives des tableaux de caractères
04/06/2007, 20h38
secretman

Toujours type incompatible

Merci pour tes tests !
RestoreName prend bien le contenu de toto comme un Array (chaque caractère est séparé dans la chaine) mais il rempli les autres caractères, au dela de la longueur de toto jusqu'au 64e caractère, avec des caractères cabalistiques de toute nature. Le problème surement de là.
Comment faire pour vider la variable RestoreName (Array of Char) avant de l'affecter à toto ?

Merci,

Daniel

Citation:

Envoyé par secretman

Merci pour tes tests !
RestoreName prend bien le contenu de toto comme un Array (chaque caractère est séparé dans la chaine) mais il rempli les autres caractères, au dela de la longueur de toto jusqu'au 64e caractère, avec des caractères cabalistiques de toute nature. Le problème surement de là.
Comment faire pour vider la variable RestoreName (Array of Char) avant de l'affecter à toto ?

Merci,

Daniel

As tu vraiment besoin d'un tableau statique ?

si ce n'est pas le cas
Code:

1 2 3 RestoreName: array of CHAR; {déclaration de tableau dynamique} SetLength(RestoreName, Length(Toto));
{met le tableau à même longueur que Toto}

sinon,
Code:

1 2 For Index := High(RestoreName) downto 0 do {une simple boucle qui érase les caractères un á un. L'expression High renvoie l'index le plus haut du tableau. ne pas utiliser length qui renvoie la taille, c'est à dire high + 1 et qui donnerait une erreur} RestoreName[Index] := '';

05/06/2007, 19h35
secretman

Peut-être un FillChar(RestoreName, MAX_DESC, #0); ???
pour initialiser le tableau RestoreName afin de supprimer les caractères parasites
05/06/2007, 20h46
bjl

Citation:

Envoyé par secretman

Peut-être un FillChar(RestoreName, MAX_DESC, #0); ???
pour initialiser le tableau RestoreName afin de supprimer les caractères parasites

oui un fillchar, mais ainsi, je pense.

FillChar(RestoreName, Length(RestoreName), 0);
Il vaut mieux mesurer la valeur de RestoreName
et, comme il demande un byte en valeur et non un caractère.

lorsque je met
SetLength(RestoreName, Length(Toto));
j'ai : [Erreur] Unit1.pas(804): Un objet constante ne peut être passé comme paramètre Var

Alors je met cela :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 var RestoreName: array [0..MAX_DESC] of CHAR; toto : string; begin // Initialise l'enregistrement InfoPointRestauration.dwEventType := BEGIN_SYSTEM_CHANGE; InfoPointRestauration.dwRestorePtType := APPLICATION_INSTALL; InfoPointRestauration.llSequenceNumber := 0; toto := InputBox('Point de restauration', 'Entrez un nom', 'Nouveau point de restauration'); For Index := High(RestoreName) downto 0 do RestoreName[Index] := #0; Move(toto[1], RestoreName[0], Length(toto)); InfoPointRestauration.szDescription := RestoreName;
et j'ai toujours : [Erreur] Unit1.pas(810): Types incompatibles, sur la dernière ligne
Je rappel que le code complet est ici :
http://www.developpez.com/delphi/faq...inrestauration

Si quelque'un veut bien faire quelques tests (prend 2 minutes avec un copier coller du code)

Merci

Daniel

C'est sur InfoPointRestauration.szDescription := RestoreName;
qu'est l'erreur ?

Une déclaration de tableau dans un packed record et une déclaration de tableau dans une var ??

dans ce cas, travaille directement sur InfoPointRestauration.szDescription:
Code:

1 2 3 4 If Length(toto) > Length(InfoPointRestauration.szDescription) then SetLength(toto, Length(InfoPointRestauration.szDescription)); {interdit une copie de caractères plus longue que szDescription} For Index := High(InfoPointRestauration.szDescription ) downto 0 do InfoPointRestauration.szDescription [Index] := ''; Move(toto[1], InfoPointRestauration.szDescription [0], Length(toto));
RestoreName est il réellement utile ?

De mon coté pas de résultat de test avant lundi. Ici, demain c'est férié avec pont vendredi.

07/06/2007, 17h43
secretman

oui c'est bien sur InfoPointRestauration.szDescription := RestoreName;
qu'est l'erreur.

Je vais tester ta solution, j'espère que cette fois c'est la bonne

Encore merci

désolé marche pas plus !

Voici donc le code complet pour celui qui parviendra au sommet de mon estime :-)

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
 
procedure TForm1.mnuCreateSysRestoreClick(Sender: TObject);
// Crée et annule un point de restauration en cas d'erreur
 
 procedure Affiche(Texte:String);
  begin
     StatusBar1.Panels[2].text := Texte+' Données du point de restauration :' + crlf +
     'Numéro de séquence : ' + Format('%d', [SMgrStatus.llSequenceNumber]) + crlf +
     'Statut: ' + Format('%u', [SMgrStatus.nStatus])
  end;
 
begin
   // Initialise l'enregistrement
  InfoPointRestauration.dwEventType := BEGIN_SYSTEM_CHANGE;
  InfoPointRestauration.dwRestorePtType := APPLICATION_INSTALL;
  InfoPointRestauration.llSequenceNumber := 0;
 
  {C'est ici ! Réussir : InfoPointRestauration.szDescription := RestoreName;
  RestoreName := InputBox('Point de restauration', 'Entrez un nom', 'Nouveau point de restauration'); }
  InfoPointRestauration.szDescription := 'Nouveau point de restauration';
 
  if (SRSetRestorePointA(@InfoPointRestauration, @SMgrStatus)) then
   begin
     Affiche('Configure le point de restauration.');
 
     // Configuration pour annuler le point de restauration précédent.
     InfoPointRestauration.dwEventType := END_SYSTEM_CHANGE;
 
     {Pour annuler le point de restauration actuel:}
     //InfoPointRestauration.dwRestorePtType  := CANCELLED_OPERATION;
 
     // Termine les modifications systéme en passant le numéro de séquence
     // recu lors du premier appel à l'API SRSetRestorePoint.
     InfoPointRestauration.llSequenceNumber := SMgrStatus.llSequenceNumber;
 
     // Notifie le système que les modifications sont terminée et
     // que c'est la  fin du point de restauration.
     if not SRSetRestorePointA(@InfoPointRestauration, @SMgrStatus) then
     begin
        Affiche('Ne peut pas positionner la fin du point de restauration.');
        Exit;
     end
   end;
end;

Bon courage !

hello,

le code suivant fonctionne chez moi. si il ne marche pas chez toi, on regardera la manière dont tu déclares InfoPointRestauration.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject);
var
  InfoPointRestauration: RESTOREPOINTINFO;
  RestoreName : String;
begin
   // Initialise l'enregistrement
  InfoPointRestauration.dwEventType := BEGIN_SYSTEM_CHANGE;
  InfoPointRestauration.dwRestorePtType := APPLICATION_INSTALL;
  InfoPointRestauration.llSequenceNumber := 0;
 
  RestoreName := InputBox('Point de restauration', 'Entrez un nom', 'Nouveau point de restauration');
  If Length(restoreName) > Length(InfoPointRestauration.szDescription) then // empêche la recopie d'un string supérieur à MAX_DESC
    SetLength(restoreName, Length(InfoPointRestauration.szDescription));
  FillChar(InfoPointRestauration.szDescription[0], Length(InfoPointRestauration.szDescription), 0); // Initialise les valeurs du tableau
  move(RestoreName[1], InfoPointRestauration.szDescription[0], length(restoreName)); // recopie restorename dans le tableau
end;