Bonjours
Quelqu'un a t'il deja utilise les composants de l'onglet " System " de BCB6
Apparament ces composants permettent de dialoguer un peux comme Ole avec un programmeDdeClientConv1
DdeClientItem1
DdeServerConv1
DdeServerItem1
Voici un morceau de code que j'ai trouve sur le Net, il utilise Excel et ecrit sur la Feuille1 quelques donnees, Excel doit etre ouvert avec la Feuille1 vierge
Sur la Form deux TButtons un TEdit et DdeClientConv1
le code
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 //--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { DdeClientConv1->PokeData("L1C1:L3C4","A001\t19997320\t17,5\nA002\t19997325\t20\nA003\t19997330\t22,5\n"); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { char Topics[]="Feuil1"; DdeClientConv1->SetLink("Excel", Topics); if(!DdeClientConv1->OpenLink()) { Edit1->Text="Connection établie"; while(DdeClientConv1->WaitStat); return; } else { Edit1->Text="Connection non établie"; } } //---------------------------------------------------------------------------
Partager