Hi all,
I do have a quite a problem here. I am developing a tool that is
supposed to load data from COBOL database (via ODBC driver) into a grid.
There is a Settings section there in the application; user can select a
proper DSN name of theODBC driver (for there might be more than one
driver, each pointing to its own COBOL database) and then test the
selected driver by clicking on the Test button.
In Delphi I'm using TDatabase component and Try - Except block for
testing:
procedure TfrmNastaveniAplikace.btnTestClick(Sender: TObject);
var
DatabaseBMD: TDataBase;
begin
DatabaseBMD := TDataBase.Create(Nil);
with DatabaseBMD do
begin
DatabaseName := 'TestDB';
LoginPrompt := False;
SessionName := 'Default';
Connected := False;
end;
if (cmbVyberOdbc.Text <> '') then
begin
try
DatabaseBMD.AliasName := cmbVyberOdbcLonskyRok.Text; //here I pass
the DSN of selected ODBC driver to the component
DatabaseBMD.Connected := True;
ShowMessage(Connection test successful!'); //I was able to connect
to the database via the driver, say "Hooray" to user
except
ShowMessage('Connection test failed.' + #13#10 + 'Check please the
ODBC settings.'); //The connection could not be established, tell the
user about it
end;
end;
DatabaseBMD.Connected := False;
DatabaseBMD.free;
end;
It works flawlessly under 32b Windows XP/Vista/7. But when I try to
launch this application under 64b Windows 7, the code above always end
up in the Except part of the block, even though the user still can see
and select the driver. For users with 64b Windows 7, I decided to do
the tool in Lazarus under my 64b Windows 7 (and then compile it under
Lazarus for 32b Windows XP for those using Windows XP). The problem is
that Lazarus does not use TDataBase anymore, there is TOdbcConnection
component there instead. When I try this:
procedure TfrmNastaveniAplikace.btnTestClick(Sender: TObject);
var
DatabaseBMD: TODBCConnection;
begin
DatabaseBMD := TODBCConnection.Create(nil);
with DatabaseBMD do
begin
DatabaseName := cmbSelectOdbcDriver.Text; //here I pass the DSN
Password := '';
UserName := '';
LoginPrompt := False;
Connected := False;
end;
if (cmbOdbcFibuLonskyRok.Text <> '') then
begin
try
DatabaseBMD.Connected := True;
ShowMessage('Connection test successful!'); //Test ODBC was
successful, say "All Green" to user
except
ShowMessage('Connection test failed.' + #13#10 + 'Check the ODBC
settings.'); //ODBC test failed, say "Oh sh.t" to user
end;
end;
DatabaseBMD.Connected := False;
DatabaseBMD.free;
end;
... I always get error message saying "Project raised an exception -
External:SIGSEV" (on the line DatabaseBMD.Connected := True). I have
been digging in the Lazarus documentation and it seems to me that I
should not use the DataBase name property the way I am using it. But
there was no closer info on the matter, so I am hoping to get a
qualified help from you guys. How else could I do the test (and connect
to the database by just passing over a DSN name)?
Used IDEs are: Turbo Delphi 2006, Lazarus 0.9.28.2 with FPC 2.2.4
Thanks in advance for your help.
David Viktora, KIT s.r.o.
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
