Discussion :

[aliwassem]

salut

j ai un fichier type record et je lui donne l extension .SCS et je l associee dans la base du registre et son icon est change comme mon application mais quand je clique sur le fichier, l application est ouvrir mais le fichier n ouvrir pas ca veut dire je trouve pas les data sur mon application mais si j utilise le mainmenu Ouvrir et le boite du dialogue opendialoge et je selectionne le fichier il ouvre normal

ou il est mon probleme ?

[Rayek]

As tu developpé la partie qui ouvre le fichier quand il est passé en paramètre dans ton application ?
Car si tu lui dis pas les actions à faire, il va pas le faire tout seul

[aliwassem]

alors

mon procedure pour ouvrir mon fichier est appele OUVRIR et quand j utilise la boite dialogue j utilise ce procedure mais quand je clique sur le fichier l application est ouvert mais le fichier n ouvrir pas commen je doit faire ?

[Guile]

Si tu double click sur un fichier windows lance ton application avec ton fichier en parametre, tu dois donc le gérer dans ton dpr ou à l'ouverture de ta form principale. Tu dois faire un truc du genre :

Code :

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

1
2
3
 
if ParamCount > 0 then
  Ouvrir(ParamStr(1));

[aliwassem]

salut j ai essaye avec ce code mais il me donne une message d erreur que Type incompatible Strings et object .........voila

[Laurent Dardenne]

Salut,
communique-nous le code que tu utilises pour récupérer les paramètres.

[aliwassem]

voila mon programme

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
 
type
// Declaration d un fichier type Record avec les variables
.
.
..
procedure Tform1.Energestrer(sender :Tobject);
begin
 
// Energstrement d un fichier type Record
// j energistrer des donnees qui existent dans un ListView
 
end;
 
 
procedure Tform1.Ouvrir(sender :Tobject);
begin
 
// Ouvrir d un fichier type Record
// je recupere Mes donnees a un ListView
 
end;
 
Procedure Tform1.Bouton1Click(Sender:Tobject);
begin
if opendialogue Execute then
File_name := Opendialogue.Filename;
Ouvrir(Sender);
end;
 
Procedure Tform1.Bouton2Click(Sender:Tobject);
begin
if savedialogue Execute then
File_name := savedialogue.Filename;
Energistrer(Sender);
end;

[Pedro]

OK
Maintenant donne-nous le code qui nous intéresse

[aliwassem]

ok
alors moi maintenant je veux quand je clique sur mon fichier -Qu il est deja energistrer - il ouvert direct avec mon programme schant que j ai deja fait l association de mon fichier dans la base de registre mais quand je clique sur mon fichier ....Ok le programme ouvrir mais je trouve pas mes donnees dans la ListView..............

[Laurent Dardenne]

Il te faut créer une autre méthode dédiée à l'ouverture de fichier, par exemple :

Code :

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

1
2
3
4
5
 
Procedure Tform1.OuvrirFichier(NomFichier:TFileName);
begin
 //code pour ouvrir le fichier
end;

Et dans l'événement Bouton1Click :

Code :

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

1
2
3
4
5
6
 
Procedure Tform1.Bouton1Click(Sender:Tobject); 
begin 
  if opendialogue.Execute 
   then OuvrirFichier(Opendialogue.Filename); 
end;

Il reste le lancement automatique à ajouter dans l'événement FormCreate mais cela dépend de ton contexte :

Code :

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

1
2
3
 
if ParamCount > 0 
 then OuvrirFichier(ParamStr(1))

Voilà le principe, il reste les contrôles de validité du nom de fichier...

[aliwassem]

salut

alors moi j ai fais comme suivante :

Code :

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

1
2
3
4
5
6
 
Procedure Tform1.OuvrirFichier(Sender:Tobject); 
begin 
AssignFile(......,Nom_de_Fichier);
 //le reste du code pour ouvrir le fichier 
end;

Code :

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

1
2
3
4
5
6
7
8
 
Procedure Tform1.Bouton1Click(Sender:Tobject); 
begin 
  if opendialogue.Execute 
   then 
Nom_de_Fichier :=Opendialogue.Filename;
OuvrirFichier(Sender); 
end;

et le code suivant c est dans le procedure du FormCreate

Code :

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

1
2
3
4
5
 
if ParamCount > 0 
 then 
Nom_de_Fichier := ParamStr(1);
OuvrirFichier(Sender);

alors le resultat comme suivant
si mon fichier exist dans le racine example C:\Mon Fichier quand je clique sur lui il me donne une message d erreuer aussi il ouvrir le fichier mais si mon fichier dans une autre place comme dans le bureau quand je clique sur lui il me donne une message d erreur Fichier introvable et il n ouvrir pas le fichier..............
.............................................ca qu est ce que je trouve ...........merci

[aliwassem]

salut

j ai essaye le code dans le page suivant mais aussi il marche pashttp://<br /> http://www.phidels.co...ion.htm&id=580

bon le source que je le trouve dans cette page il marche bien mais avec mon code il marche pas................