communication entre un projet DLL et une application

**ferry.jules** · 17/05/2006, 09h30

Jai reussi à afficher ma form1 je suis trop content !
il faut faire ceci !

Code :

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

1
2
3
4
5
6
7
8
 
ShellExecute(NULL,"open","C:\\Documents and Settings\\
U228167\\Desktop\\Projet\\
060517\\version1\\exe_dll\\
Executable.exe",Buffer,
"C:\\Documents and Settings\\U228167\\Desktop\\
Projet\\060517\\version1\\exe_dll",
SW_SHOWNORMAL);

Maintenant jai repris le traitement qu’il faut intégrer dans mon application pour qu’il puisse afficher le chemin dans ma listbox ou ma conbobox ou dans une edit ! jai mi en pratique et cela me donne une erreur de conversion !

**ferry.jules** · 17/05/2006, 10h14

donc ceci est la fonction qui me permet de recuperer la chaine de caractere a travers visual basic avec excel ! la chaine de caractere a ete verifier par une msgbox et elle correspond bien a celle du depart ! Buffer contient cette chaine ! Jusqu ici pas de probleme !

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
 
char * __stdcall MaFonction_chemin(char *myVar)
{
 
  ZeroMemory(Buffer,MaxBufferSize);
  if (strlen(myVar) > MaxBufferSize ) return "";
  strcpy(Buffer,myVar);
  strcpy(myVar,Buffer);
 
  ShellExecute(NULL,"open",
"C:\\Documents and Settings\\
U228167\\Desktop\\Projet\\
060517\\version1\\
exe_dll\\Executable.exe","mok",
"C:\\Documents and Settings\\U228167\\
Desktop\\Projet\\060517\\version1\\exe_dll",
SW_SHOWNORMAL);
  return myVar;
}

la dll apelera Form1 avec Shellexecute qui ensuite Form1 ouvrira Form2 ! ceci marche parfaitement ! mais la haine de caractere nest pas bonne ! jai mis un showmessage pour pouvoir verifier et cest un blanc qu'il y a dans la boite et rien dautre !!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
void __fastcall TForm1::FormShow(TObject *Sender)
{
AnsiString MonChemin;
int i_bcl_recup;
 
for(i_bcl_recup=0;i_bcl_recup<ParamCount();i_bcl_recup++)
MonChemin= MonChemin + ParamStr(i_bcl_recup);
ShowMessage(MonChemin);
Form2->ComboBox1->Clear();
Form2->ComboBox1->Items->Add(MonChemin);
Form2->ShowModal();
 
}

serai ce un probleme de conversion ?, comment je dois prendre le probleme ??

**Mattetfamilly** · 17/05/2006, 11h03

Bonjour Jules,

En effet, la boucle for ne doit avoir que trois partie:
1 - l'initialisation des paramètres avec une virgule entre chaque initialisation
2 - les conditions de sortie de la boucle: 1 seule mais elle peut avoir plusieurs membres séparés par des opérateurs logiques
3 - les opérations sur les variables à faire à chaque itération de la boucle.

chaque partie est séparée par un ";"

Donc mon erreur corrigée:

Code :

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

1
2
 
for(MonChemin="",i_bcl_recup=0;i_bcl_recup<ParamCount;i_bcl_recup++)

Attention, il est important d'initialiser MonChemin par une variable vide! Rien ne garantie que la variable est vide, même pas sa déclaration juste avant.
Ni même qu'elle se vide entre deux utilisations.

Et en effet les séparateurs des répertoires doivent être doublés soit "\" et non "\". C'est parce que la norme Ansi se sert de ce caractère pour des caractères spéciaux du type '\n' ou '\r' ou encore '\b' ....

Réessaye après avoir ajouté l'initialisation de MonChemin, lors de l'utilisation de MonChemin, cette variable ne devrait plus être vide.

Attention pour le moment, d'après ce que je vois tu transmets la chaîne "mok" et non un chemin.

Mattetfamilly

et surtout n'oublies pas si c'est le cas ---->

**Mattetfamilly** · 17/05/2006, 11h15

Re bonjour Jules,

Utilises la fonction

sur l'AnsiString pour trouver si une fonction "Append" existe sur l'AnsiString. Elle sera peut être plus indiquéeque le code Suivant:

Code :

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

1
2
 
MonChemin= MonChemin + ParamStr(i_bcl_recup);

je penses que cela doit être du genre:

Code :

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

1
2
 
MonChemin= MonChemin.Append(ParamStr(i_bcl_recup));

Si tu veux vérifier que tu reçois bien les paramètres d'initialisation de l'application tu peux afficher un message dans chaque itération de la boucle for:

Code :

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

1
2
3
4
5
6
 
for(MonChemin="",i_bcl_recup=0;i_bcl_recup<ParamCount;i_bcl_recup++)
{
MonChemin= MonChemin + ParamStr(i_bcl_recup);
ShowMessage(Paramètre reçu n° "+ IntoStr(i_bcl_recup) + " : "+ ParamStr(i_bcl_recup)+"\r\nNouvelle variable MonChemin : " + MonChemin);
}

Cela devrait te permettre de voir si tu reçois bien tes paramètres et comment se remplit ta variable MonChemin.

Au fait j'oubliais:
pour utiliser ShellExecute, tu n'as pas besoin d'ajouter de "# include " car il est intégré de base dans l'une des bibliothèques, je ne sais plus laquelle (system.h?)

je vois aussi que tu as mis:

Code :

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

1
2
 
ShellExecute(NULL,"open","C:\\Documents and Settings\\U228167\\Desktop\\Projet\\060517\\version1\\exe_dll\\Executable.exe","mok","C:\\Documents and Settings\\U228167\\Desktop\\Projet\\060517\\version1\\exe_dll",SW_SHOWNORMAL);

je penses qu'il manque le nom de l'exécutable dans la deuxième mention de l'application. En tout cas c'est comme cela que j'utilises le ShellExecute

Code :

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

1
2
 
ShellExecute(NULL,"open","C:\\Documents and Settings\\U228167\\Desktop\\Projet\\060517\\version1\\exe_dll\\Executable.exe","mok","C:\\Documents and Settings\\U228167\\Desktop\\Projet\\060517\\version1\\exe_dll\\Executable.exe",SW_SHOWNORMAL);

Mattetfamilly

**ferry.jules** · 17/05/2006, 11h26

Merci pour tes renseignements ! La chaîne « mok » a été mise exprès pour que je puisse voir si cela marche mais apparemment non ! Je dois effectivement recueperer Buffer qui contient le chemin ! Il suffit juste de récupérer le chemin et le RESOLU sera pas oublier conte sur moi ! Pour lhistoire du manque du nom de l’exécutable dans la deuxième mention de l’application je sais pas jai essayer les 2 manières avec et sans ben cela marche ! Je le mettrai désormais ! Je vais me documenter avec le Append je vais essayer !

**Mattetfamilly** · 17/05/2006, 11h57

Rebonjour,

Essayes aussi le

pour la fonction ParamStr --> J'ai un doute: est ce que l'on doit commencer par ParamStr(0) ou par ParamStr(1)???

Si c'est ParamStr(1) alors la boucle devra être modifiée comme suit:

Code :

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

1
2
 
for(MonChemin="",i_bcl_recup=1;i_bcl_recup<=ParamCount;i_bcl_recup++)

Mattetfamilly

**ferry.jules** · 17/05/2006, 14h02

ben la j’ai modifier un peu le code je recoi une chaîne de caractère mais qui ne correspond pas a celle que j'attend ! Celle qui est dans le Buffer est :
C:\Documents and Settings\U228167\Desktop\\Projet\060514\version1\excel\DPTA.doc

Mais apparemment je reçoit une chaîne de caractère qui est exactement celle qui dans la ligne de code ou j’emploie Shellexecute !
je recoi et jaffiche ceci :
C:\\Documents and Settings\\U228167\\Desktop\\Projet\\060517\\version1\\exe_dll\\Executable.exe

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
 
void __fastcall TForm1::FormShow(TObject *Sender)
{
AnsiString MonChemin;
int i_bcl_recup;
 
for(MonChemin="",i_bcl_recup=0;i_bcl_recup<=ParamCount();i_bcl_recup++)
MonChemin= MonChemin + ParamStr(i_bcl_recup);
 
ShowMessage(MonChemin);
Form2->Edit1->Clear();
Form2->Edit1->Text=MonChemin;
Form2->ComboBox1->Clear();
Form2->ComboBox1->Items->Add(MonChemin);
Form2->ComboBox1->Text=MonChemin;
Form2->ShowModal();
 
}

Serai ce un des paramètre de mon shellexecute qui n’est pas bon ?

**ferry.jules** · 17/05/2006, 14h07

Maintenant je recupere 2chaines de caracteres ! voici ce que je recoit :
C:\Documents and Settings\U228167\Desktop\ Projet\060517\version2\exe_dll\Executable.exeC:\DocumentsandSettings\U228167\Desktop\ Projet\060514\version1\excel\DPTA.doc

Les deux chaine sont collés ! jaimerai seulement avoir celle ci :
C:\DocumentsandSettings\U228167\Desktop\ Projet\060514\version1\excel\DPTA.doc

comment pourrai je extraire seulement la deuxieme chaine qui m’interresse ???

**ferry.jules** · 17/05/2006, 14h43

jai regarder la fonction ParamStr() et je lis Sous Windows, ParamStr(0) renvoie le chemin et le nom de fichier du programme en cours d'exécution (par exemple, C:\TEST\MYPROG.EXE). donc dans mon cas la premiere chaine represente le nom de fichier du programme en cours d'exécution ! comment faire pour effacer cette chaine ou bien ne pas l'aficher ??

**ferry.jules** · 17/05/2006, 15h05

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
 
void __fastcall TForm1::FormShow(TObject *Sender)
{
Form2->Edit1->Clear();
Form2->ComboBox1->Clear();
Form2->Memo1->Clear();
 
AnsiString MonChemin;
int i_bcl_recup;
for(MonChemin="",i_bcl_recup=1;i_bcl_recup<=ParamCount();i_bcl_recup++)
MonChemin= MonChemin + ParamStr(i_bcl_recup);
 
Form2->ComboBox1->Clear();
Form2->ComboBox1->Text=MonChemin;
Form2->ShowModal();
 
}

Voila le probleme a ete resolu ! la chaine de caractere est recuperer et afficher dans la conbobox mais je narrive toujours pas a afficher le contenu du fichier ! voici la ligne de code qui me permettrai d'afficher le contenu ! cela compile bien mais cela ne s'execute pas ! ya rien qui se passe ! comment pourrai je faire ??

Code :

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

1
2
 
Form2->Memo1->Lines->LoadFromFile(MonChemin);

**ferry.jules** · 17/05/2006, 15h53

Code :

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

Form2->Memo1->Lines->LoadFromFile(MonChemin);

cette ligne de code je ne sais pas mais on dirai elle n'ai pas prise en compte ! avant d'afficher le contenu du fichier serai t il possible de verifier si le fichier existe ??

**lanonyme** · 17/05/2006, 16h20

Bonjour,

Envoyé par ferry.jules

Voila le probleme a ete resolu ! la chaine de caractere est recuperer et afficher dans la conbobox mais je narrive toujours pas a afficher le contenu du fichier ! voici la ligne de code qui me permettrai d'afficher le contenu ! cela compile bien mais cela ne s'execute pas ! ya rien qui se passe ! comment pourrai je faire ??

Pourquoi est ce que dans le FormShow de ta Form2, tu ne met pas :

Code :

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

1
2
 
Memo1->Lines->LoadFromFile(ComboBox1->Text);

EDIT :

Envoyé par ferry.jules

Code :

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

Form2->Memo1->Lines->LoadFromFile(MonChemin);

cette ligne de code je ne sais pas mais on dirai elle n'ai pas prise en compte ! avant d'afficher le contenu du fichier serai t il possible de verifier si le fichier existe ??

La fonction donnée par Neilos:

Code :

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

FileExists(mon_path)

Enfin une petite recherche sur le forum te l'aurai dis

style ici -> http://www.developpez.net/forums/sho...fichier+existe

lanonyme

**Mattetfamilly** · 17/05/2006, 19h19

A quel moment fais tu le LoadFromFile?
Dans l'événement OnShow de Form1? de Form2?
Si c'est de Form1, l'écriture est bonne. Sinon en effet comme dit par "lanonyme" tu dois plutôt utiliser ComboBox1->Text comme nom de fichier.

Mais je penses que ton problème n'est ni "LoadFromFile" ni l'écriture de ton code mais plutôt la chaîne que tu as transmis comme nom de fichier.
Son extension est ".doc"...

Là je suis sûr que tu ne va pas apprécier:
Tu ne peux pas charger un fichier Word dans un Memo...

Le Memo ne te permet que de charger un fichier texte....

A la rigueur tu peux charger un fichier rtf dans un RichEdit.
Ce composant te permet de charger du texte riche ce qui est un format utilisé par WordPad par exemple et est un ancêtre de Word.

Mattetfamilly

**ferry.jules** · 17/05/2006, 21h27

ben en faite le chemin je le donne a Form1 ! en effet cest dans levenement OnShow de Form1 que jai mis cette ligne de code :

Code :

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

Form2->Memo1->Lines->LoadFromFile(MonChemin);

en mettant cette ligne de code :

Code :

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

Form2->Memo1->Lines->LoadFromFile(ComboBox1->Text);

il y a une erreur : symbole ComboBox1 non defini !

je sais vraiment pas comment m'y prendre ! comment sa se fait qu'avec un opendialog on peu afficher le contenu d'un fichier dans un memo quelque soit son extension ?

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
 
void __fastcall TForm1::FormShow(TObject *Sender)
{
Form2->Edit1->Clear();
Form2->ComboBox1->Clear();
Form2->Memo1->Clear();
 
AnsiString MonChemin;
int i_bcl_recup;
 
for(MonChemin="",i_bcl_recup=1;i_bcl_recup<=ParamCount();i_bcl_recup++)
MonChemin= MonChemin + ParamStr(i_bcl_recup);
 if(FileExists(MonChemin))
 {
Form2->Memo1->Lines->LoadFromFile(ComboBox1->Text);
Form2->Memo1->Lines->LoadFromFile(MonChemin);
Form2->ListBox1->Items->Add(MonChemin);
Form2->ShowModal();
}
else ShowMessage("pas de fichier");
 
}

**Mattetfamilly** · 17/05/2006, 23h41

Essayes

Code :

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

1
2
 
Form2->Memo1->Lines->LoadFromFile(Form2->ComboBox1->Text);

Es-tu vraiment sûre de pouvoir ouvrir un fichier ".doc" avec l'OpenDialog vers un Memo?
Là je doutes fort...
Et je suis intéressé.
En fait pour avoir a l'époque du TurboC++ essayé et retenté plus tard avec Builder, lorsque tu lit chaque caractère du fichier ".doc" pour le mettre dans un Memo (ou à l'écran pour Turbo C++), au bout du 3 ème ou du 8 ème caractère, tu as une sorte de caractère de fin de fichier qui te fermes le fichier si tu le lit comme si tu détectait "eof"...

J'ai une application au boulot pour la gestion de mes fichiers crypté, si je charge un ".doc", un ".xls", un ".zip" ou un ".pdf" dans mon Memo, j'obtiens uniquement trois caractères incompréhensible bien souvent...

De plus le fichier ".doc" est du teste mis en forme, ce que le Memo ne prend pas en compte (mais le RichEdit le prend en charge).

Mattetfamilly.

**ferry.jules** · 18/05/2006, 09h00

deja a la compilation sa pete un cable cela compil et ensuite une boite derreur s'ouvre pur me dire :
le projet executable.exe a provoquer une classe d'exception EFopenERROR avec le message ' impossible d'ouvrir le fichier processus stoppé utiliser le mode pas a pas ou executer pour continuer !
effectivement un .doc est ouvert mais le contenu ne correspond pas ! jai ouver un .doc qui contenai que du texte pure et dans mon memo il y a des caractere ilisible et incomprehensible !

**bakaneko** · 18/05/2006, 09h08

Pour le fichier .doc, c'est peut-être normal.

Un doc créé via Word est un fichier texte formaté. Si tu l'ouvres avec le bloc-notes ou un autre éditeur basique, tu auras des caractères barbares, pas le texte que tu as tapé.

Voici le résultat du test que j'ai effectué:

Dans le fichier .doc (généré par OO 2.0)

gfdgsfd
gfdsgfd
fdgsdgfdsg
fdgsfdgfsggsfdfgdgfsd
fdgsfdgfdgfsdgfdgdsgfdgsgffdg

(Je sais, j'ai un talent pour l'écriture

)

Résultat dans un TMemo (via le méthode LoadFromFile de la propriété Lines)

ÐÏà¡±á

Légère différence, non???

**ferry.jules** · 18/05/2006, 09h10

apparamant mon erreur vient du code vu l'explication donner par l'aide ! l'exception est une exception du langage !

**ferry.jules** · 18/05/2006, 09h55

toutes les ligne de code que jai essayer ne fonctionne pas !!!

**lanonyme** · 18/05/2006, 10h16

Bonjour,

Envoyé par ferry.jules

comment sa se fait qu'avec un opendialog on peu afficher le contenu d'un fichier dans un memo quelque soit son extension ?

- L'opendialog sert juste a recuperer un chemin + un nom de fichier,il affiche rien.
- Pour afficher le contenu d'un fichier quelque quelque soit son extension ... (l'extension ne veut pas dire grand chose, car mes .tutu sont du texte pur), on va dire format ... ,il faut l'afficher en héxadecimal mais bon dur dur de le comprendre aprés

- Le sens de ta phrase est bizarre l'opendialog n'est pas lié un memo

Envoyé par ferry.jules

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
 
void __fastcall TForm1::FormShow(TObject *Sender)
{
Form2->Edit1->Clear();
Form2->ComboBox1->Clear();
Form2->Memo1->Clear();
 
AnsiString MonChemin;
int i_bcl_recup;
 
for(MonChemin="",i_bcl_recup=1;i_bcl_recup<=ParamCount();i_bcl_recup++)
MonChemin= MonChemin + ParamStr(i_bcl_recup);
 if(FileExists(MonChemin))
 {
Form2->Memo1->Lines->LoadFromFile(ComboBox1->Text);
Form2->Memo1->Lines->LoadFromFile(MonChemin);
Form2->ListBox1->Items->Add(MonChemin);
Form2->ShowModal();
}
else ShowMessage("pas de fichier");
 
}