Discussion :

[BVW13]

Bonjour à toutes et à tous,
Ci-après 2 courtes procédures pour ouvrir un jpg avec adobe photoshop éléments mais : la 1ere fonctionne mais pas la deuxième pourtant presque semblables. (pb de pointeur sans doute mais je suis bloqué). La 2ème procédures permet au travers de l'initialisation de mon appli de récupérer le chemin de photoshop et de la stocker dans une variable globale.

Cette variable globale de type string contient la même valeur (même longueur et même contenu) ?????
COMMENT FAIRE...MERCI DE VOTRE AIDE
Cordialement
Bernard

PROCEDURE 1 FONCTIONNELLE

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var
  fichier  : AnsiString;
  myCharPtr : PAnsiChar;
  CheminExe : String;
begin
  CheminExe := 'C:\Program Files (x86)\Adobe\Photoshop Elements 4.0\Photoshop Elements 4.0.exe';  // affectation directe
  Fichier := RepInstallation + 'photos\' + StringgridOrdres.Cells[0,LigneSelectOrdre] + '\' + StringgridFamilles.Cells[0,LigneSelectFamille]
        + '\' + StringgridGenres.Cells[0,LigneSelectGenre] + ' ' + StringgridEspeces.Cells[0,LigneSelectEspece] + '.jpg';
  myCharPtr := Addr(fichier[1]);
  ShellExecute(Handle,'open',PChar(CheminExe),myCharPtr,nil,SW_SHOW);
  Reafficher.Enabled := True;
end;

PROCEDURE 2 NON FONCTIONNELLE ????

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var
  fichier  : AnsiString;
  myCharPtr : PAnsiChar;
  CheminExe : String;
begin
  CheminExe := CheminAdobe;     // affectation par contenu d'une variable globale qui contient 'C:\Program Files (x86)\Adobe\Photoshop Elements 4.0\Photoshop Elements 4.0.exe'
  Fichier := RepInstallation + 'photos\' + StringgridOrdres.Cells[0,LigneSelectOrdre] + '\' + StringgridFamilles.Cells[0,LigneSelectFamille]
        + '\' + StringgridGenres.Cells[0,LigneSelectGenre] + ' ' + StringgridEspeces.Cells[0,LigneSelectEspece] + '.jpg';
  myCharPtr := Addr(fichier[1]);
  ShellExecute(Handle,'open',PChar(CheminExe),myCharPtr,nil,SW_SHOW);   // ca ne marche pas ???
  Reafficher.Enabled := True;
end;

[SergioMaster]

Bonjour et bienvenue,

on n'a pas indication de l'OS mais c'est certainement un Windows 64 bits.

perso je mettrai le chemin entre " " avant tout car il y a des espaces dans le dit chemin

Code :

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

CheminExe:='"C:\Program Files (x86)\Adobe\Photoshop Elements 4.0\Photoshop Elements 4.0.exe"';

ensuite pourquoi n'avoir pas fait pour les paramètres la même chose que pour le nom du programme ?

Code :

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

ShellExecute(Handle,'open',PAnsiChar(CheminExe),PAnsiChar(Fichier),nil,SW_SHOW);

[BVW13]

Bonsoir,
Merci pour votre aimable réponse mais le problème ne semble pas résider dans les espaces car la procédure qui fonctionne est celle où cheminexe se voit affecté de la chaine avec les espaces.
Dans la procédure qui ne fonctionne pas, cheminexe se voit affecté de la même chaîne mais au travers d'une variable globale contenant exactement la même chaîne avec ces espaces.
Au sujet de l'OS il s'agit bien de windows 64 bits.
Bien cordialement
Bernard.

[Andnotor]

Tester le retour de ShellExecute te donnerait déjà quelques indices.

[tourlourou]

Bonjour,
Les 2 chaînes ont-elles la même longueur ? Sont-elles identiques ? Le chemin obtenu en global est-il bien ANSI ? Le CodePage est-il le même ?

[ShaiLeTroll]

A quoi sert CheminExe si CheminAdobe est une String

Code :

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

ShellExecute(Handle, 'open', PAnsiChar(CheminAdobe), PAnsiChar(Fichier), nil, SW_SHOW);   // ca ne marche pas ???

un ShowMessage(CheminAdobe) pour débugguer aussi