meteoryte
Messages postés2Date d'inscriptionsamedi 3 janvier 2004StatutMembreDernière intervention 7 janvier 2004
-
3 janv. 2004 à 17:54
meteoryte
Messages postés2Date d'inscriptionsamedi 3 janvier 2004StatutMembreDernière intervention 7 janvier 2004
-
7 janv. 2004 à 05:10
Bonjour.
Je développe une Application faisant appel a OpenGL.
Pour des raisons d'optimisations, je n'utilise pas l'Unit Forms de Delphi. C'est donc une application Console dans laquelle je crée moi même ma fenêtre avec les fonctions de l'API Windows.
Comme je n'ai pas de Form dans l'IDE de Delphi, je ne peux bien evidemment pas inserer de composants Delphi.
Le Problème est que j'aimerais utiliser le composant OpenDialog.
J'ai pourtant bien essayé de déclarer une variable ayant pour type TOpenDialog et d'y appliquer le constructeur Create mais cela declenche une exception et je n'arrive pas a résoudre mon problème.
Merci de m'éclairer au plus vite !
(A vrai dire, c'est pour un projet pour mon ecole dont la premiere soutenance a lieu Mardi. Cela n'est pas indispensable que ceci fonctionne pour cette soutenance mais si ca fonctionnait, ca serait aussi bien :-). )
jmp77
Messages postés1119Date d'inscriptionlundi 4 février 2002StatutMembreDernière intervention 4 octobre 20067 6 janv. 2004 à 13:37
Hello,
Cela me parait assez curieux car moi j'utilise les composants delphi sans les poser sur la fiche. Je les déclare et je fais un create et hop ça roule. Tiens je cherche un morceau de code avec un opendialog pour voir si on fait bien la même chose. Bien entendu il faut déclarer dans les uses Dialogs.
Tiens moi au courant,
Good luck,
JMP.
procedure test;
var {Déclaration des variables locales}
OpenDialog : TOpenDialog;
Directory,Fichier,Extension : String;
If OpenDialog.Execute then
begin
Directory := OpenDialog.FileName; //Directory + nom du fichier
Fichier := ExtractFileName(Directory);
Extension := LowerCase(ExtractFileExt(Fichier));
If Extension = '.zip' then
begin
Decompresse(Directory,PathIni.Rep_Temp + 'LoadFile.abb');
end else if (Extension '.abb') or (Extension '.asy') then
begin
If not(CopyFileTo(Directory,PathIni.Rep_Temp + 'LoadFile.abb')) then
ShowMessage('Load Error : Copy error');
end
else ShowMessage('Load Error : Incorrect file extension');
Finally
OpenDialog.Free;
end;
end;
meteoryte
Messages postés2Date d'inscriptionsamedi 3 janvier 2004StatutMembreDernière intervention 7 janvier 2004 7 janv. 2004 à 05:10
Un enorme MERCI !!!
Lol quel boulet ke suis...
Je n'appelais pas le constructeur de la bonne maniere. Cela declenchait une exception.
Heureusement, la vu de votre code source m'a immediatement fait voir mon erreur...
Et il est arrivé juste a temps. En effet, il est maintenant 05h08 (du matin, je precise), je n'ai pas dormi de la nuit puisque je l'ai passé a peaufiner mon rapport et mon code... La soutenance est a 9h45 donc tout va bien ! Bon, c'est legerement codé a la derniere minute (a peine 5 heures avant...) mais au moins ca marche ! lol
Done vraiment un grand grand grand merci !
Bon, sur ce, je vais essayer d'aller dormir 2ou 3 heures histoire de pas avoir de trop gros cernes aux yeux pour la soutenance... lol