Create a button, drop in this code, "Stop on Delphi Exceptions", and see what happens.
Code: Select all
procedure TForm1.Button1Click(Sender: TObject);
var
myCRSQLConnection : TCRSQLConnection;
pList: TStringList;
begin
myCRSQLConnection := TCRSQLConnection.Create(nil);
pList := TStringList.Create;
try
myCRSQLConnection.DriverName := 'Oracle (Core Lab)';
myCRSQLConnection.LibraryName := 'dbexpoda.dll';
myCRSQLConnection.VendorLib := 'OCI.DLL';
myCRSQLConnection.GetDriverFunc := 'getSQLDriverORA';
myCRSQLConnection.Params.Clear;
myCRSQLConnection.Params.Values['DriverName'] := 'Oracle (Core Lab)';
myCRSQLConnection.LoginPrompt := false;
myCRSQLConnection.Params.Values['DataBase'] := edit1.text;
myCRSQLConnection.Params.Values['User_Name'] := edit2.Text;
myCRSQLConnection.Params.Values['Password'] := edit3.Text;
myCRSQLConnection.Connected := True;
myCRSQLConnection.GetFieldNames('EMP', pList);
Memo1.Text := pList.Text;
pList.Clear;
myCRSQLConnection.GetFieldNames('DEPT', pList);
Memo2.Text := pList.Text;
//with dbexpoda.dll dated 9th Feb 2006 (v2.50.5.0 EH!?):
//Memo2 is Empty
//raised exception class EConvertError with message ''58?412' is not a valid integer value'
//Note, okay with dbexpoda.dll dated 17th Oct 2005 (v2.50.6.0)
finally
pList.Free;
myCRSQLConnection.Free;
end;
end;