Directory

Bonjour à toutes et à tous,

Voici mon problème, j'ai un logiciel qui lors de l'installation vérifie si un dossier contenu dans son répertoire existe.

Si pas il le crée.

Code sans les guillemets :

"chemappli := ExtractFilePath(Application.ExeName);"

"if not DirectoryExists('Plans') then mkdir('Plans');"

Tout fonctionne sur Win XP mais sur Vista, le dossier est bien créé dans le répertoire de l'application mais si je sauve un plan, Vista recrée le dossier sur la racine.

Y a t'il une explication que je n'aurai pas saisi.

Merci d'avance si quelqu'un a une idée du problème.

@+,

Cincap

mailto:

Bonjour,

Je n'ai pas besoin de reprendre le chemin "chemappli" puisqu'il est en variable, je pense que c'est plutôt un problème de Vista puisque cela fonctionne correctement sur Win Xp pack1et 2.

Merci de ta réponse.

@+,

Cincap

mailto:

Bonjour à toutes et à tous,

@ Foxi, merci de ta longue explication comme toujours appréciée, tu as raison mais j'attendais de faire l'essai ce jour sur le Pc du voisin qui tourne sur Vista.

En effet, j'avais appliqué l'explication du membre BernieNoel68 que je remercie encore.

D'autant que dans le reste du programme , j'avais codé le chemin comme proposé par ce membre pour un autre dossier.

Méa Culpa.

@+,

Cincap

mailto:

salut,

j'ai eut un problème avec Vista (beta):

je charge un fichier de config qui est dans un sous-dossier de l'applic: pas de problem.
je modifie le fichier et je le sauve: pas de problème.
le fichier sur le disque n'est pas modifié.

après quelques recherches et test: il semble que vista te fasse croire que tas acces au fichier dans le dossier programm file, mais il fait les modif dans un cache qui n'est jamais écrit sur le disque.

D'après MS, il exist deux solutions:
- sauver tes données d'application dans ApplicationData.
- obetnir les droits d'écriture dans programmFile (j'ai même pas essayé)

A+

Loda

---

Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.

Salut Loda,

Tu rejoins ma première impression sur Vista (droits ect...), néanmoins je dois encore faire le test chez mon voisin.

Dans Vista, le répertoire "Program Files" n'existe pas, il est remplacé par "Program".

Je pense que la solution des membres BernieNoel68 et Foxi doit fonctionner telle quelle.

Sinon merci aussi pour ta réponse.

@+,

Cincap

mailto:

Bonsoir à toutes et à tous,

J'ai donc essayé le code de BernieNoel68 sur le pc du voisin équipé de Vista et cela ne fonctionne pas.

J'ai donc utilisé le code de l'ami Foxi mais je n'ai pas encore eu l'occasion de le tester sur le pc avec Vista, sur le mien cela fonctionne comme celui de BernieNoel.

En supposant que dans le dossier créé, je dois sauver une image, plutôt que de faire ceci (en rouge) :

Function TCameras.SaveJpeg1(Camera:integer):string;
var Jpg1 : TjpegImage;
    FileName:string;
chappli : String;
begin
  Result:='';
    while  Image1.Tag<>0 do Application.ProcessMessages;
    Image1.Tag:=1;
  afficheheure1(camera,20);

  Jpg1 := TjpegImage.Create;
  Jpg1.Assign(image1.Picture.Bitmap);
  Jpg1.CompressionQuality := 80;
  inc(Parcam[Camera].IndexImage);
  FileName:= chappli + 'Detection\' +'CAM'+inttostr(Camera)+'  '+'IMG'
  + inttostr(Parcam[Camera].IndexImage)+ '.jpg';
  Jpg1.SaveToFile(FileName);  
  Jpg1.Free;
    Image1.Tag:=0;
  Result:=Filename;
end;

Je pourrai peut être faire ceci :

 FileName:= ExtractFilePath(ParamStr(0))+ '\Detection'+ 'CAM' + inttostr(Camera)+ '  ' + 'IMG' + inttostr(Parcam[Camera].IndexImage) + '.jpg';

Qu'en penser vous ?

@+ Cincap


mailto: