Utilisation composants Dde BCB6

Version imprimable

Bonjours
Quelqu'un a t'il deja utilise les composants de l'onglet " System " de BCB6

Citation:

DdeClientConv1
DdeClientItem1
DdeServerConv1
DdeServerItem1

Apparament ces composants permettent de dialoguer un peux comme Ole avec un programme
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:

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";
        }
}
//---------------------------------------------------------------------------

J'ai un peux avance
Sur la Form deux TButtons un TEdit un TDdeClientConv1
le 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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "utilcls.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant vMSExcel, vFileName, vXLWorkbooks, vXLWorkbook;
vFileName = "C:\\ClasseurTest.xlsx";
try
        {
        vMSExcel = Variant::GetActiveObject("Excel.Application");
        }
catch(...)
        {
        vMSExcel = Variant::CreateObject("Excel.Application");
        }
vMSExcel.OlePropertySet("Visible", true);
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);
// ici Excel est ouvert le classeur est charge et la Feuil1 est ouverte
//======================
// on se connecte au serveur Dde
char Topics[]="Feuil1";
DdeClientConv1->SetLink("Excel", Topics);
if(!DdeClientConv1->OpenLink())
        {
        Edit1->Text="Connection établie";
        while(DdeClientConv1->WaitStat);
        return;
        }
else
        {
        Edit1->Text="Connection non établie";
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
DdeClientConv1->PokeData("L1C1:L3C4","A001\t19997320\t17,5\nA002\t19997325\t20\nA003\t19997330\t22,5\n");
}
//---------------------------------------------------------------------------

Je peux ecrire et lire une cellule Excel, voici le 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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "utilcls.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
// tuto <a href="http://flash-koti.developpez.com/articles/delphi/101-dde/" target="_blank">http://flash-koti.developpez.com/art...elphi/101-dde/</a>
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant vMSExcel, vFileName, vXLWorkbooks, vXLWorkbook;
vFileName = "C:\\ClasseurTest.xlsx";
try
        {
        vMSExcel = Variant::GetActiveObject("Excel.Application");
        }
catch(...)
        {
        vMSExcel = Variant::CreateObject("Excel.Application");
        }
vMSExcel.OlePropertySet("Visible", true);
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);
// ici Excel est ouvert le classeur est charge et la Feuil1 est ouverte
//======================
// on se connecte au serveur Dde
char Topics[]="Feuil1";
DdeClientConv1->SetLink("Excel", Topics);
Edit2->Text = DdeClientConv1->DdeService;
Edit3->Text = DdeClientConv1->DdeTopic;
Edit4->Text = DdeClientItem1->DdeItem;
if(!DdeClientConv1->OpenLink())
        {
        Edit1->Text="Connection établie";
        while(DdeClientConv1->WaitStat);
        }
else
        {
        Edit1->Text="Connection non établie";
        }
//======================
 
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
DdeClientConv1->PokeData("L1C1:L3C4","A001\t19997320\t17,5\nA002\t19997325\t20\nA003\t19997330\t22,5\n");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
DdeClientItem1->DdeItem = "L1C1";
AnsiString mText = DdeClientConv1->RequestData(DdeClientItem1->DdeItem);
DdeClientItem1->DdeItem = "L1C2";
DdeClientConv1->PokeData(DdeClientItem1->DdeItem, mText.c_str());
}
//---------------------------------------------------------------------------

Un tuto sur le site

Citation:

http://flash-koti.developpez.com/art...elphi/101-dde/

Sur la Form 3 TButtons, 4 TEdits, 1 TDdeClientConv, 1 TDdeClientItem