Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.pascal.delphi.databases > #25

How to use function SQLGetPrivateProfileString? Or an alternative?

Show all headers | View raw

Dear All,
I found this thread http://www.delphigroups.info/2/ad/345347.html dating back to the year 2004. It shows how to retrieve a list of DSN entries without poking into the registry directly. So far no problem with Delphi. BTW, I'm using version 2007 on Windows 7. Now I'd like to select only the entries which refer to an MS Access database, so I tried to add only a few lines to the example.

First I declared this:
function SQLGetPrivateProfileString(
  lpszSection, lpszEntry, lpszDefault, lpszRetBuffer: PChar;
  cbRetBuffer: Integer;
  lpszFilename: PChar): integer; stdcall;

and under implementation:
function SQLGetPrivateProfileString; external 'odbccp32.dll' name 'SQLGetPrivateProfileString';

Then I added the following line somewhere in the middle of the example: 
Result := SQLGetPrivateProfileString('ODBC Data Sources', Buffer1, 'Driver', RetBuf, 100, 'odbc.ini');

with RetBuf also declared as PChar. I was able to retrieve the Driver strings as shown in the registry under ODBC. Unfortunately, the memory is not cleaned up and at the end of it all and execution stops because of this exception: Access violation ...

I tried to handle this exception but failed. What am I doing wrong? I tried running the code also as Administrator but saw no difference. Any help will be appreciated!

Back to comp.lang.pascal.delphi.databases | Previous | Next — Next in thread | Find similar

Thread

How to use function SQLGetPrivateProfileString? Or an alternative? dobedani@gmx.net - 2016-07-13 07:30 -0700
  Re: How to use function SQLGetPrivateProfileString? Or an alternative? dobedani@gmx.net - 2016-07-13 08:54 -0700

csiph-web