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