[D2006][Teechart] Configuration de l'aide

Bonjour

Pour accéder à l’aide de TeeChart j’ai configuré ainsi " paramètres" ce qui n’est pas correct :
C:\Program Files (x86)\Steema Software\TeeChart Standard 7 for Delphi 2006\Docs\TeeChart7.chm


Si je rajoute des guillemets ou double quotes ou même simples aux extrémités j’ai toujours le message suivant " Guillemet fermant manquant " .

Je ne peux pas afficher l'aide

Y a t’il une solution ?

Utiliser les noms courts ?

Bonjour

Merci à Tourlourou pour sa réponse.
Mais le nom du fichier et de l'adresse sont donnés par Steema Sft à l'exécution de l'installation de TeeChart
avec risque de répercussion en cas de modification.

PL

Certes, mais je pensais à l'équivalent de ce chemin au format 8.3.
On doit pouvoir le trouver par code grâce à la fonction GetShortPathName.
Tu obtiendras ainsi un chemin équivalent, mais sans espaces, qui sera pê accepté en paramètre sans t'embêter avec des guillemets ou apostrophes...

J'ai effectivement trouvé GetShortPath dans le SDK.
J'ai fait l'essai suivant :

Code:

---

1 2 3 4 5 6 7 8 9

var pTeeCh: Pchar; nom :string; Lg : integer; begin nom := 'C:\Program Files (x86)\Steema Software\TeeChart Standard 7 for Delphi 2006\Docs\TeeChart7.chm'; Lg := Length(Nom); // 93 GetShortPathName('C:\Program Files (x86)\Steema Software\TeeChart Standard 7 for Delphi 2006\Docs\TeeChart7.chm', pTeeCh, 18); Nom := StrPas(pTeeCh);

---

Le résultat n'est pas probant : Nom = '‹Eô[‹å]Ã'#$90'SVWUQˆ'#$C'$‹ê‹ð3ÿ³'#1'€<$'
Longueur de la chaine : 93, ce qui semblerait incompatible avec la procédure (longueur de chaine limitée à 67, si j'ai bien traduit la documentation).

Mais je dois aussi avouer qu'il y a longtemps que je n'ais pas utilisé les pointeurs

Bonjour,

de là à faire un programme pour obtenir un nom court, pourquoi pas.
Mais pour une seule utilisation pourquoi ne pas essayer la console avec la commande dir /Xen quelques commandes il sera facile d'arriver à composer le nom court

cela donnera a peu près ceci :

Citation:

---

cd c:\
dir /x ----> progra~2
cd progra~2
dir /x ----> steema~1
cd steema~1
dir /x ----> teecha~1
cd teecha~1
dir /x ----> Docs
cd docs
dir /x ----> teechar~1.chm

---

donc c:\progra~2\steema~1\teecha~1\docs\teechar~1.chm
ceci dit faire un programme c'est pas une mauvaise idée . voici ma version (une forme avec un Edit, un bouton et un Opendialog)

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 47

unit UnitshortName;   interface   uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;   type TForm1 = class(TForm) edt1: TEdit; dlgOpen1: TOpenDialog; btn2: TButton; procedure btn2Click(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end;   var Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.btn2Click(Sender: TObject); function GetShortName(sLongName: string): string; var sShortName: string; nShortNameLen: Integer; begin SetLength(sShortName, MAX_PATH); nShortNameLen := GetShortPathName(PChar(sLongName), PChar(sShortName), MAX_PATH - 1); if (0 = nShortNameLen) then begin showmessage('erreur'); end; SetLength(sShortName, nShortNameLen); Result := sShortName; end; begin if dlgOpen1.Execute then edt1.text:=GetShortName(dlgOpen1.filename); end;   end.

---

P.S. j'ai mis un opendialog car si le chemin demandé n'existe pas (par exemple une saisie dans un autre TEdit) cela ne semble pas fonctionner :weird:

Bonjour,

Merci à Sergio pour sa solution.
J'allai m'orienter vers une copie de la doc sous un répertoire simplifié.

PL

Problème résolu avec "CD .. DIR /X"