Discussion :

[paulfr]

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 ?

[tourlourou]

Utiliser les noms courts ?

[paulfr]

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

[tourlourou]

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...

[paulfr]

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

Code :

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

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

[SergioMaster]

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 :

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 :

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
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

[paulfr]

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"