communication entre un projet DLL et une application

Version imprimable

Voir 40 message(s) de cette discussion en une page

19/05/2006, 10h02
ferry.jules

jai fai exactement ce que tu ma di de faire de plus hier soir javai penser a cela ! jai bien mis ma variable MonChemin dans le .h de ma form1 en public ! le paramatre de la fonction open a ete remplacer ! cela compil bien quand je met la deuxieme ligne de code pour la conversion en char * ! jusqua la tout va bien ! mais meme probleme impossible d'ouvrir le fichier !:aie: :aie:
19/05/2006, 10h12
ferry.jules

ben le fichier cest un fichier que jai creer moi meme ! clik droit Nouveau->Text Document ! cest un .txt ! je met des ligne de merde a linterieur ! sinon pour ce que tu di pour le TRichtEdit jai regarder apparamant je trouve pas dans la barre ou tu choisi ! apparamant yen a pas je sais pas pourquoi ! il dois etre dans l'onglet WIN32 mai moi dans ma barre yapa donglet win32 !!! quand j'ouvre mon projet longlet win32 est present des que jouvre ma fenetre pour pouvoir y ajouter RichtEdit longlet senleve quoi !
19/05/2006, 10h20
ferry.jules

Je viens de voir en faite jai creer deux projet different ! le premier cest une application toute simple longlet WIN32->RichtEdit apparait bien ! le deuxieme cesy une application CLX toute simple il ny a pas donglet WIN32->RichtEdit ! moi ce que jutilise cest une application CLX ! donc il ny a pas moyen dutiliser WIN32->RichtEdit ! devrai refaire mon application cest a dire remplacer mon application CLX par une application normal koi ??
je sais je sui un gros :boulet: :boulet: je merite detre :fessee:
19/05/2006, 10h26
bakaneko

La CLX est la version multi-plateforme de la VCL (compatible Windows et Linux).
Certains composants ne sont pas valables au niveau de la CLX...
19/05/2006, 15h24
Mattetfamilly
As tu réellement besoin de ta form2 de ton combo box et de ton Memo?
Une fois le texte dans le Memo, que dois tu en faire?

Est ce qu'un ShellExecute, une nouvelle fois ne permettrait pas de solutionner le problème?

En fait après l'ouverture de ton open dialog tu fais un ShellExecute sur le fichier Word.

Cette commande va t'ouvrir Word avec le fichier indiqué ou même tout simplement: ouvrir word imprimer le fichier et fermer word.

Si tu choisis d'ouvrir Word pour consultation, j'ai vu quelque part sur le forum, que tu peux mettre ton application en Standby au point d'appel du fichier Word.

Il me semble que lancer le fichier Word en consultation (sans le stand by) cela s'écrit comme cela.
Code:

1 2 ShellExecute(NULL,"open",monchemin.c_str(),NULL,monchemin.c_str(),SW_SHOWNORMAL);
l'ouvrir juste pour impression et le refermer cela devrait être
Code:

1 2 ShellExecute(NULL,"print",monchemin.c_str(),NULL,monchemin.c_str(),SW_SHOWNORMAL);
Est ce que cela peut te permettre d'avancer?
Sinon je crois aussi qu'il faut que tu passes par les objets Ole: certains te permettent d'afficher le document Word sans avoir les barres d'outils de Word, ce qui te permet de contrôler les actions de l'utilisateur voir même de l'ouvrir en lecture seule...

Mattetfamilly.:calin: :coucou: :coucou:

Jai avancer un peu mon travail et je me sui rendu compte que lorsque je change mon chemin de spécification c’est a dire au lieu de mettre « «C:\Documents and Settings\U228167\Desktop\Projet\060522\version2\excel \essai.txt » je met « C:\essai.txt »
Et accrochez vous bien cela marche parfaitement ! La récupération du chemin est bonne l’affichage du contenu du fichier est bonne aussi ! Tout marche quand le chemin est différent c’est à dire le deuxième « C:\essai.txt » !!!
Je pense que c’est un problème d’espace dans la chaîne de caractère !! Je ne suis pas sur ! Si c’est ça j’aimerai bien avoir de laide ! Comment résoudre ce problème ! Voici mon code :
Code:

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 void __fastcall TForm1::FormShow(TObject *Sender) { const int size=1024; char buffer[size]; int i_bcl_recup; Form2->Edit1->Clear(); Form2->ComboBox1->Clear(); Form2->Memo1->Clear(); for(MonChemin="",i_bcl_recup=1;i_bcl_recup<=ParamCount();i_bcl_recup++) MonChemin= MonChemin + ParamStr(i_bcl_recup); Form2->ComboBox1->Text=MonChemin; Form2->ListBox1->Items->Add(MonChemin); memset(buffer,0,size); // ouverture du fichier selectionné en lecture seulement HFILE file=_lopen(Form1->MonChemin.c_str(),OF_READ); if (file!=NULL) _lread(file,buffer,size); for (int i=0;i<1023;i++) if (buffer[i]==0) buffer[i]='.'; // affichage du fichier dans le memo Form2->Memo1->Text=AnsiString(buffer); _lclose(file); Form2->ShowModal(); }

En utilisant ce code cela m’affiche que des « ……………………………… » et non pas le contenu du fichier ! Pourtant le fichier comporte bien du texte a l’intérieur !!! Je ne comprend pas !!!

Code:

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
 
void __fastcall TForm1::FormShow(TObject *Sender)
{
 
        const int size=1024;
        char buffer[size];
        int i_bcl_recup;
 
        Form2->ComboBox1->Clear();
        Form2->Memo1->Clear();
 
        for(MonChemin="",i_bcl_recup=1;i_bcl_recup<=ParamCount();i_bcl_recup++)
                MonChemin= MonChemin + ParamStr(i_bcl_recup);
                Form2->ComboBox1->Text=MonChemin;
                Form2->ListBox1->Items->Add(MonChemin);
 
                memset(buffer,0,size);
                // ouverture du fichier selectionné en lecture seulement
                HFILE file=_lopen(MonChemin.c_str(),OF_READ);
                        if (file!=NULL) _lread(file,buffer,size);
                                for (int i=0;i<1023;i++) if (buffer[i]==0) buffer[i]='.';
                // affichage du fichier dans le memo
                Form2->Memo1->Text=AnsiString(buffer);
                _lclose(file);
                Form2->ShowModal();
 
}

:bug: :arf: :bug: :arf:

22/05/2006, 10h56
lanonyme

Bonjour,

Ca viendrai pas de cette ligne:

Code:

for (int i=0;i<1023;i++) if (buffer[i]==0) buffer[i]='.';

Edit :
j'ai poster un peu vite,
Le test sur le buffer c'est pour remplacer quoi ?
lanonyme

Bonjour,

Citation:

je me sui rendu compte que lorsque je change mon chemin de spécification c’est a dire au lieu de mettre « «C:\Documents and Settings\U228167\Desktop\Projet\060522\version2\excel \essai.txt » je met « C:\essai.txt »

Pour obtenir, la version courte de ton chemin :

Code de Dure_Limite :
Code:

1 2 3 4 5 6 7 8 9 //--------------------------------------------------------------------------- String __fastcall TForm1::Path_LongToCourt( String Path_Long ) { char PathCourt[MAX_PATH]; GetShortPathName(Path_Long.c_str(), PathCourt, MAX_PATH); return (String)PathCourt; } //---------------------------------------------------------------------------
Ainsi, tu n'aura plus de probleme d'espace ;)

lanonyme

22/05/2006, 11h28
ferry.jules
oui cest peu etre cette ligne de code que tu as specifier !
Code:

1 2 for (int i=0;i<1023;i++) if (buffer[i]==0) buffer[i]='.';
mai je l'ai mise en commentaire et jobtient rien cest a dire que dans le memo ya vu vide aucun contenu afficher !! la je comprend pas !:(
22/05/2006, 14h51
ferry.jules

Jai essayer tous ceux qui me senblai possible et rien a faire ! la ligne de commande precedente je lai mise en commentaire finalement ya rien qui s'affiche dans mon memo !!! :aie:
22/05/2006, 15h03
lanonyme

Bonjour,

Dans ton post #86, tu indique tout marche excepter pour les noms de chemin long.

Je t'est indiqué une methode de convertion ...

Ne marche t'elle pas ? :?

lanonyme
22/05/2006, 15h36
ferry.jules

oui jai effectivement essayer la methode que tu ma proposer ! pour le chemin C:\essai.txt cela fonctionne parfaitement le contenu est afficher ! sinon pour le chemin tres long il y a une boite de dialogue me disan que cest impossible douvrir le fichier !:bug: :traine: :arf: :arf:
22/05/2006, 15h47
ferry.jules

franchement je pense pas que cela y joue la longueur de la chaine vu qu'elle est bien recuperer ! maintenant je sais pas ou chercher ! jai tout essayer !
22/05/2006, 19h04
Mattetfamilly
Ce n'est pas la longueur du nom du fichier qui est en cause mais bien les espaces qui sont considérés comme des séparateurs par ton application: lorsque tu reconstitues le nom de fichier tu ne les remets pas.
Code:

1 2 3 4 for(MonChemin="",i_bcl_recup=1;i_bcl_recup<=ParamCount();i_bcl_recup++) MonChemin= MonChemin + ParamStr(i_bcl_recup) +" "; MonChemin=MonChemin.SetLength(MonChemin.Length()-1);
Dans ce code, à chaque ligne tu inséres 1 expace entre chaque paramètre et à la fin, tu supprimes l'espace finale.

Attention, avec cette correction, je soupçonnes des défaults: si ton chemin comporte un caractère proscrit mais toléré par Windows: 'é' / 'è' / '&' / 'ë' ou autre types...

Mattetfamilly.
22/05/2006, 20h06
ferry.jules

Voila cela fonctionne comme je le veu ! cela affiche bien le contenu du fichier ! JE remerci tous ceux qui ont contribuer a cette effort ! Merci :lol:

Voir 40 message(s) de cette discussion en une page