Discussion :

[colorid]

avec le code suivant

Code :

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

1
2
3
4
5
6
procedure TFormWork.FormCreate(Sender: TObject);
begin
  Position := poScreenCenter;
  CurExePath:= ExtractFilePath(Application.exeName);
  ImageNominal.Picture.LoadFromFile(CurExePath+'IMG\Tirage.bmp');
end;

J'ai un message Impossible d'ouvrir le fichier "C:\Work\Exe\IMG\Tirage.bmp". Le chemin d'accès spécifié est introuvable
Le chemin est tout à fait correcte et le fichier bitmap est correct car je peux l'ouvrir avec Photoshop.

Quelqu'un connait il la solution ?

[ShaiLeTroll]

Sans conviction

Code :

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

ImageNominal.Picture.Bitmap.LoadFromFile(CurExePath+'IMG\Tirage.bmp');

A part un chemin invalide ou alors un chemin vérouillé pas une autre application et un message d'erreur peu approprié (on l'a déjà vu)

[JustMe]

Ton code est tout à fait juste peut être que ton application et dans un autre répertoire comme c:\Work\Exe\Win32\debug ?? et tes images dans c:\Work\Exe\IMG

[Jipété]

Yep !

Ton code est tout à fait juste peut-être que ton application est dans un autre répertoire comme c:\Work\Exe\Win32\debug ?? et tes images dans c:\Work\Exe\IMG

Euh, si c'était ça, il aurait eu le message Impossible d'ouvrir le fichier "c:\Work\Exe\Win32\debug\IMG\Tirage.bmp". Le chemin d'accès spécifié est introuvable
puisque le chemin est remonté par CurExePath:= ExtractFilePath(Application.exeName);

Pour être sûr de mes chemins, en général je me rajoute une petite info (que je supprime quand tout est OK), style

Code :

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

1
2
3
4
5
6
7
procedure TFormWork.FormCreate(Sender: TObject);
begin
  Position := poScreenCenter;
  CurExePath := ExtractFilePath(Application.exeName);
  ShowMessage(CurExePath); // pour vérif
  ImageNominal.Picture.LoadFromFile(CurExePath+'IMG\Tirage.bmp');
end;

Mias pourquoi as-tu marqué "problème compilateur Delphi" en titre ? Qu'est-ce que le compilo a à voir avec cette affaire ?

[colorid]

Code :

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

1
2
3
4
5
6
7
  Position := poScreenCenter;
  CurExePath:= ExtractFilePath(Application.exeName);
  BMP:= TBitmap.Create;
  BMP.PixelFormat:= pf24Bit;
//  BMP.LoadFromFile(CurExePath+'IMG\Tirage.bmp');
//  ImageNominal.Picture.Bitmap.LoadFromFile(CurExePath+'IMG\Tirage.bmp');
//  ImageNominal.Picture.LoadFromFile(CurExePath+'IMG\Tirage.bmp');

Les trois appels provoquent le même message

[SergioMaster]

il manque un test bête

Code :

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

1
2
 
ImageNominal.Picture.LoadFromFile('C:\Work\Exe\IMG\Tirage.bmp');

qui pourrait pour le moins écarté

un message d'erreur peu approprié (on l'a déjà vu)

je l'ai déjà vu suite a un entête d'image erroné

[colorid]

L'éclaté ne servirait à rien

[Jipété]

Il n'existe pas de répertoire Work sur mon disque

C'est bien pour ça que je te dis de faire un ShowMessage.

Ah la la, le temps qu'on perd....

[colorid]

Code :

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

1
2
  CurExePath:= ExtractFilePath(Application.exeName);
  ShowMessage(CurExePath);

C'est le bon chemin qui s'affiche ! Et au Ok il se plante !

[Jipété]

Code :

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

1
2
  CurExePath:= ExtractFilePath(Application.exeName);
  ShowMessage(CurExePath);

C'est le bon chemin qui s'affiche ! Et au Ok il se plante !

Bon !

Le chemin est tout à fait correcte et le fichier bitmap est correct car je peux l'ouvrir avec Photoshop.

Est-ce que par hasard, lors de tes manips, Photoshop est-il toujours ouvert (même avec le fichier fermé) ?
Je lui connais un comportement bizarre, à cet animal...
Relis la première réponse, celle de Shai.

[colorid]

J'ai essayé de charger à partir de la bitmap sans succès.

Quand je disais que cela provient du compilateur je ne suis pas sur que ce n'est pas de sa faute... J'ai tout simplement reconstruit mon projet dans un autre répertoire que j'ai créé à cet effet et cela marche ! J'ai tout essayé sur l'ancien répertoire sans succès !!!
Bizard

[Jipété]

J'ai essayé de charger à partir de la bitmap sans succès.

Quand je disais que cela provient du compilateur je ne suis pas sur que ce n'est pas de sa faute... J'ai tout simplement reconstruit mon projet dans un autre répertoire que j'ai créé à cet effet et cela marche ! J'ai tout essayé sur l'ancien répertoire sans succès !!!
Bizard

J'ai tout simplement reconstruit mon projet dans un autre répertoire

Et pourquoi donc le reconstruire ?
T'avais juste à créer une nouvelle arborescence de travail pour tester, style c:\pour_test, y mettre ton exe puis créer c:\pour_test\IMG, y mettre ton .bmp et ça doit fonctionner.
Je te rappelle que tu utilises CurExePath qui est censé te faciliter la vie pour le chemin des images.

J'ai tout essayé sur l'ancien répertoire sans succès !
Problème de droits ?

[colorid]

Je n'ai jamais pu résoudre ce problème, et pire j'ai procédé à une mise à jour de Windows 8 vers Windows 8.1 et depuis le compilateur Delphi 2007 Win32 ne retrouve plus ses chemins, j'ai du passer à Windows XE

[SergioMaster]

J et pire j'ai procédé à une mise à jour de Windows 8 vers Windows 8.1 et depuis le compilateur Delphi 2007 Win32 ne retrouve plus ses chemins

il me semble avoir lu quelque-part que le passage de W8 à W8.1 impliquait une réinstallation des programmes existants sous peine de problèmes , il semblerait que tu en fasse l'expérience

[colorid]

Malheureusement je suis en déplacement et ne pourrai réinstaller Delphi sous Windows 8.1 que rentré à la maison, et confirmer cette rumeur qu'à ce moment là.