क्या TSQLMonitor को TSQLConnection के साथ उपयोग करने के लिए कोई चाल है जो नए ओडीबीसी dbExpress ड्राइवर का उपयोग करता है?

Question

मैं नए ओडीबीसी डीबीईएक्सप्रेस ड्राइवर का परीक्षण कर रहा हूं जो डेल्फी एक्सई 2 के साथ जहाजों, और ध्यान दिया है कि TSQLMonitor काम नहीं कर रहा है। यह सोचकर कि मैंने गलत तरीके से घटक को कॉन्फ़िगर किया हो, मैंने एक TSQLMonitor को एक TSQLConnection में जोड़ दिया जो एमएस एसक्यूएल dbExpress ड्राइवर का उपयोग करता है, और यह एक आकर्षण की तरह काम करता है।

मुझे वेब पर इस समस्या के बारे में कोई पोस्ट नहीं दिखाई देता है। क्या किसी और ने इस मुद्दे को देखा है? क्या यह एक बग, एक असमर्थित सुविधा (एक TSQLConnection पर कोई निगरानी नहीं है जो ओडीबीसी ड्राइवर का उपयोग करता है), या इस स्थिति के तहत TSQLMonitor को कॉन्फ़िगर करने के लिए कोई चाल है?

Answer 1

इस आजमाएं:

procedure TForm2.Button1Click(Sender: TObject); 
begin 
    try 
    Connect; 
    SQLMonitor1.SQLConnection := SQLConnection1; 
    SQLMonitor1.Active := True; 
    ExecuteQueries; 
    SQLMonitor1.SaveToFile('D:\\Log.txt'); 
    except 
    on E: Exception do 
     ShowMessage('Exception ocurred!: ' + E.Message); 
    end; 
end; 

procedure TForm2.Connect; 
begin 
    SQLConnection1 := TSQLConnection.Create(nil); 
    SQLConnection1.ConnectionName := 'odbcinterbaseconnection'; 
    SQLConnection1.LoginPrompt := False; 
    SQLConnection1.LoadParamsOnConnect := True; 
    SQLConnection1.Connected := True; 
end; 

procedure TForm2.ExecuteQueries; 
var 
    Query: String; 
begin 
    try 
    if SQLConnection1.Connected then 
    begin 
     Query := 'CREATE TABLE ExampleTable(id INTEGER, name VARCHAR(50))'; 
     SQLConnection1.Execute(Query, nil); 
     Query := 'INSERT INTO ExampleTable VALUES(1,''test1'')'; 
     SQLConnection1.Execute(Query, nil); 
     Query := 'INSERT INTO ExampleTable VALUES(2,''test2'')'; 
     SQLConnection1.Execute(Query, nil); 
     Query := 'INSERT INTO ExampleTable VALUES(3,''test3'')'; 
     SQLConnection1.Execute(Query, nil); 
     Query := 'SELECT * FROM ExampleTable'; 
     SQLConnection1.Execute(Query, nil); 
    end; 
    except 
    on E: Exception do 
     ShowMessage('Exception ocurred!: ' + E.Message); 
    end; 
end;