Discussion :

[saidus]

Bonjour !!
je suis debutant en Delphi ... alors les Pointeurs et les Chaine de Char je n' connais pas bien ..
Voila ... je ne sais pas si Qlqun a entendu parler de ChartDirector alors je voulais tirer profit de cette bibiotheque (DLL)... et comme les fichier d'entete son enorme et les la presence de plusieurs classes complexe a traduire en pascal objet (je suis debutant .. ) j'ai cree une DLL en exportant une fonction(Essai pour voir ..) .. bon voila le Code Ecrit par moi :

Code C++ :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
//////////////////////////////
//  Fichier entete
//////////////////////////////
#ifndef _BSCHART_H 
#define _BSCHART_H 
#define CEXTERN __declspec (dllexport) 
typedef unsigned int             Uint32; 
typedef const char *             QChar; 
typedef double                   UDbl32; 
typedef struct 
{ 
        int x,y,r; 
}   bs_Point ; 
typedef struct 
{ 
    Uint32    W,H;                        // With * Hight 
    char      *Bg;                        // image BG 
    bs_Point  P;                          // Pie Coordinate 
    char      *Tl;                        // Title of Image 
    Uint32    Ex;                         // Explode Bloc  
}   bs_PieChart; 
CEXTERN bool bsDrwPieChart(bs_PieChart,QChar *,UDbl32 *,char *,Uint32 ); 
#endif
//////////////////////////////////////
//  Source ...
/////////////////////////////////////
#include "bsChart.h" 
#include "chartdir.h" 
bool bsDrwPieChart(bs_PieChart t,QChar *m,UDbl32 *d,char *fn,Uint32 n) 
{ 
 
    PieChart *c = new PieChart(t.W,t.H); 
    c->setPieSize   ( t.P.x , t.P.y , t.P.r ); 
 
    c->set3D(15); 
    c->setRoundedFrame(); 
 
    c->addTitle(t.Tl,"Timesbi.ttf", 15/*t.fz*/)->setBackground(0xccccff, 0x000000, Chart::glassEffect()); 
    c->setWallpaper ( t.Bg ); 
    c->setColors    ( Chart::transparentPalette ); 
 
    TextBox *Q = c->setLabelStyle(); 
    Q->setBackground(Chart::SameAsMainColor, Chart::Transparent, Chart::glassEffect() ); 
    Q->setRoundedCorners(5); 
    c->setLineColor(Chart::SameAsMainColor, 0x000000); 
    c->setStartAngle(45); 
    c->setData      ( DoubleArray(d,n) , StringArray(m,n) ); 
    c->setExplode   ( t.Ex ); 
    return          ( c->makeChart(fn) ); 
    delete c; 
}

le probleme reside dans la traduction des Pointeurs

Code :

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

1
2
3
4
  QChar *,UDbl32 *  
// en delphi ... que j'ai essaye la declaration
           type QChar   =  PChar    ;
           type UDbl32  =  ^Double ;

mais .... ca ne marche pas vraiment ...
la Question est :
Comment traduire la declaration suivante en c++ pour delphi:

Code :

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

char **   // Pointeur sur Pointeur de chene

comment creer un Tableau de Chaine en Pascal Objet Compatible avec C++

[anapurna]

salut

tu doit le traduire par un tableau

Code :

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

array of string

@+ Phil

[sjrd]

Déjà array of PChar serait mieux Mais en plus, en paramètre, ce serait plutôt un PPChar :

Code :

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

1
2
type
  PPChar = ^PChar;

[anapurna]

salut


effectivement pour une compatibilite avec le c++ ta solution me parait plus viable

@+ phil