Retanscription de code Delphi en C++

Version imprimable

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:

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

22/04/2010, 17h34
nikko34

Tu bloques sur quoi? Tu connais le C++ ? Tu connais le pascal?
22/04/2010, 18h23
guiling

réponse

Je connais le C++, c'est le pascal qui est un code que l'on m'a passé et je dois le retranscrire.
24/04/2010, 11h22
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.
24/04/2010, 11h43
guiling

reponse

Bonjour koala01

C'est gentil de m'avoir répondu.
Le truc, c'est que je ne vois pas comment retranscrire...
24/04/2010, 15h04
nikko34

Citation:

Envoyé par guiling

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?
24/04/2010, 17h02
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.
24/04/2010, 17h55
nikko34

Citation:

Envoyé par guiling

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

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

Citation:

Envoyé par guiling

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

lesquels? :)
24/04/2010, 18h00
guiling

Citation:

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.