Discussion :

[guiling]

Bonjour à tous.

Faisant de la programmation orienté objet en C++ Builder, j'ai réussi a avoir du code me permettant de faire un projet.
Le souci est que le code est en Delphi et que, pour le retranscire, c'est pas très évident.
Voici le code:

Code delfi :

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
Function TBD.MSJ_provider():boolean;
begin
msj_Provider:=False;
 
if length(ADOConnection_Catalogue.ConnectionString)<10 then
   ADOConnection_Catalogue.ConnectionString := 'Provider=SQLOLEDB.1;' +
                           'Integrated Security=SSPI;' +
                           'Initial Catalog=master;' +
                           'Data Source=.\WINCC;'+
                           'Auto Translate=True;'+
                           'Packet Size=4096;';
    ;
 
    ADODataSet_Catalogue.Recordset := AdoConnection_Catalogue.Commands[0].Execute;
 
    if ADODataSet_Catalogue.RecordCount=0
    then begin
        MessageDlg('Attention WinCC non trouvé', mtWarning, [mbOk], 0);
        Form1.Close;
    end
    else begin
         catalog :=Adodataset_Catalogue.Recordset.Fields[0].Value;
         Provider:='Provider:=WinCCOLEDBProvider.1;'+
                   'Data Source=.\WinCC;'+
         'Catalog='+Catalog;
         msj_Provider:=False;
    end;
end;

Merci d'avance pour vos réponses.


Guiling

[nikko34]

Tu bloques sur quoi? Tu connais le C++ ? Tu connais le pascal?

[guiling]

Je connais le C++, c'est le pascal qui est un code que l'on m'a passé et je dois le retranscrire.

[koala01]

Salut,

Visiblement, c'est une fonction membre de la classe TBD qui s'appelle MSJ_provider, ne prend pas d'argument et renvoie un booléen.

De toute évidence, elle a pour objectif de créer une connexion ADODB à une base de données.

S'il n'y a pas de connexions en cours, elle essaye d'en créer une.

Si la création de connexion échoue, elle t'envoie un message pour te prévenir, autrement, elle mets les informations de connexions à jour.

[guiling]

Bonjour koala01

C'est gentil de m'avoir répondu.
Le truc, c'est que je ne vois pas comment retranscrire...

[nikko34]

Bonjour koala01

C'est gentil de m'avoir répondu.
Le truc, c'est que je ne vois pas comment retranscrire...

Ben t'appelle le même objet avec les mêmes méthodes au même endroit et avec les mêmes arguments. Non?

[guiling]

Ben disons que ce bout de code en delphi :

ADODataSet_Catalogue.Recordset := AdoConnection_Catalogue.Commands[0].Execute;

Se traduit en c++ par :

ADODataSet_Catalogue->Recordset == AdoConnection_Catalogue->Commands[0]->Execute();

Après certain point, je ne sais pas comment le traduire.

[nikko34]

ADODataSet_Catalogue->Recordset == AdoConnection_Catalogue->Commands[0]->Execute();

plutôt "=" à la place de "==" en fait

Après certain point, je ne sais pas comment le traduire.

lesquels?

[guiling]

Envoyé par nikko34 :
lesquels?

Bah à peu près tout ce qui est écrit.
Certain point je sais, mais le reste non.
De plus je voulais voir si j'avais le même point de vue que d'autres développeurs.