Discussion :

[Shibron]

Bonjour a tous,
je cherche a créer un exectable de mon programme delphi, j'utilise innosetup pour pouvoir le créer et tout se passe bien sauf que j'ai un etat rave report qui est lié a mon programme et mème lorsque j'inclu le fichier .rav dans l'executable je me retrouve confronté a une erreur lorsque je l'install sur un autr pc
l'erreur vien du fait qu'il ne trouve pas le chemin spécifié dans le composant raveproject qui lie mon etat a mon application.
Donc ma question est de savoir si il est possible de spécifier ce chemin dynamiquement dans delphi ou par quelconque autre moyen

merci d'avance

[cincap]

@ Shibron, le plus simple pour moi c'est d'appeler et sauver ton fichier *.rav dans le même dossier que l'application dans le OnCreate avec "ExtractFilePath(Application.ExeName)", ce qui fait lors de l'installation avec InnoSetup, ton fichier se trouvera aussi dans le même dossier et le chemin sera correct lors de l'appel.

InnoSetup :

Code :

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

1
2
3
4
 
[Files]
Source: "C:\Data\Mon.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\Data\Mon fichier.rav"; DestDir: "{app}"; Flags: ignoreversion

@+,

Cincap

[Shibron]

merci de ta réponse mais etant donné que je suis debutant en delphi je ne suis pas sur de comprendre ton raisonnement

ta réponse soulève plusieurs questions de ma par :

-Comment "appeler" mon fichier *.rav dans l'évènement on create de mon formulaire ( est-ce simplement en utilisant l'extraction du chemin du fichier?)

- Comment "sauvegarder" mon fichier *.rav dans ce même évènement ( cela se fait-il au moment de la création du setup grâce a l'appel definit ci-dessus?)

Dans tous les cas merci de ton aide

[Shibron]

j'ai trouvé se que tu voulais me dire en fait j'ai mis le code suivant dans l'evenement onCreate de mon formulaire

Code :

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

RVProject1.ProjectFile := ExtractFilePath(Application.ExeNAme) +'project1.rav'

cela fonctionne au niveau de l'installation cependant sur les autres postes lorsque le logiciel est installé je ne peut pas imprimer

une erreur de violation d'adresse survient et la je ne vois pas du tout d'où cela provient

mon problème initiale etant résolu je posterais ce problème ultérieurement

[cincap]

Bonjour à toutes et à tous,

@ Shibron, j'utilise une fonction pour valider ou creer un dossier facilement :

function ValiderPath(Str : String) : String;
var i : Integer;
begin
if Copy(Str, 1, 2) = '\\' // Unité de réseau ...
then RESULT := '\' // Prefixe ...
else RESULT := '';

i := Pos('\\', Str);

while i > 0 do
begin
Delete(Str, i, 1);
i := Pos('\\', Str);
end;

RESULT := RESULT + Str;
end;

Puis dans le OnCreate de la fiche pour créer le dossier "Rapport" :

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
 
procedure TFenregistre.FormCreate(Sender: TObject);
Var
DestOk : boolean;
chappli, chemin : String;
begin
 
 chappli := ExtractFilePath(Application.ExeName);
 chemin := ValiderPath(chappli + '\Rapport');
 
 if not DirectoryExists(chemin)
    then DestOk := CreateDir(chemin)
    else DestOk := true;
  if DestOk
    then begin
......
........
end;

Avec ce code, tu peux sauver et charger le document dans son dossier qui a été créé dans le même répertoire que ton application.

Si tu as Vista, le dossier rapport ne doit pas être créé dans les dossiers sensibles à cause de l'UAC.

@+,

Cincap