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?