Создание ODBC DSN for SQLite3 from Delphi 7

[ТипичныйСтудент]

Прошу помощи в создании dsn программно...нашла пример кода, но для Access...код плохо понимаю...
прошу помочь разобраться в нем и конкретно ткнуть пальцем что где поменять под себя и на что =)

unit ODBCDSN;

interface

uses Windows, Classes;

var
ParentWND: HWND;

function CreateDSN(DSNName, Driver, Attributes: string): boolean;
function EditDSN(DSNName, Driver, Attributes: string): boolean;
function DeleteDSN(DSNName, Driver: string): boolean;
function IsODBCDSNLoaded: boolean;

implementation

const
ODBCDSNLib = 'ODBCCP32.DLL';

const
ODBC_ADD_DSN = 1;
ODBC_CONFIG_DSN = 2;
ODBC_REMOVE_DSN = 3;

var
ODBCDSNHandle: THandle = 0;
_SQL_ConfigDataSource :
function (hWnd: THandle; fRequest: LongWord;
lpszDriver, lpszAttributes: PWideString): LongWord; stdcall;

function IsODBCDSNLoaded: boolean;
begin
result := (ODBCDSNHandle <> 0);
end;

function CreateDSN(DSNName, Driver, Attributes: string): boolean;
begin
result := (IsODBCDSNLoaded);
if (result) then
result := boolean(_SQL_ConfigDataSource(ParentWND, ODBC_ADD_DSN,
PWideString(Driver), PWideString('DSN=' + DSNName + chr(0) + Attributes)));
end;

function EditDSN(DSNName, Driver, Attributes: string): boolean;
begin
result := (IsODBCDSNLoaded);
if (result) then
result := boolean(_SQL_ConfigDataSource(ParentWND, ODBC_CONFIG_DSN,
PWideString(Driver), PWideString('DSN=' + DSNName + chr(0) + Attributes)));
end;

function DeleteDSN(DSNName, Driver: string): boolean;
begin
result := (IsODBCDSNLoaded);
if (result) then
result := boolean(_SQL_ConfigDataSource(ParentWND, ODBC_REMOVE_DSN,
PWideString(Driver), PWideString('DSN=' + DSNName + chr(0))));
end;

function LoadODBCDSN: boolean;
begin
result := IsODBCDSNLoaded;
if (not result) then begin
ODBCDSNHandle := LoadLibrary(ODBCDSNLib);
result := IsODBCDSNLoaded;
if (result) then begin
result := (GetProcAddress(ODBCDSNHandle, 'SQLConfigDataSource') <> nil);
if (result) then
_SQL_ConfigDataSource := GetProcAddress(ODBCDSNHandle, 'SQLConfigDataSource');
end;
end;
end;

procedure UnloadODBCDSN;
begin
if (IsODBCDSNLoaded) then
FreeLibrary(ODBCDSNHandle);
end;

Initialization
ParentWND := 0;
LoadODBCDSN;

Finalization
UnloadODBCDSN;

end.

[Stilet]

поменять под себя и на что

А что нужно то?
Это модуль. Его не менять нужно а вызывать из него функции.
Я только предполагаю что:

uses ODBCDSN
...
if  CreateDSN('MyDriver', 'Firebird/InterBase(r) driver', 'UID=sysdba;PWD=masterkey;') then ODBC подключение создано.

[ТипичныйСтудент]

Сообщение от Stilet

А что нужно то?
Это модуль. Его не менять нужно а вызывать из него функции.
Я только предполагаю что:

uses ODBCDSN
...
if  CreateDSN('MyDriver', 'Firebird/InterBase(r) driver', 'UID=sysdba;PWD=masterkey;') then ODBC подключение создано.

дописать строку эту в модуль и просто его подключить? а как проверить работает ли? удалить тот, который создавала в ручную и попробовать запустить так?

[Stilet]

а как проверить работает ли?

Бубен есть? Махай
Я не знаю что делает та либа что в модуле задействована, но возможно в настройках ODBC появится новое подключение.
Про функцию _SQL_ConfigDataSource нужно почитать в MSDN.

[ТипичныйСтудент]

нету...бубна=) и нового подключения тоже...ладно, попробую запустить на другом пк, если пойдет - значит работает=)

[Stilet]

Читай МСДН.
http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

И вот это тоже полезно:
http://netcode.ru/cpp/?artID=2382
http://support.microsoft.com/kb/287668

[ТипичныйСтудент]

ой, спасибо!!! завтра уже на свежую голову попробую разобраться!

[Stilet]

Ну да... Утро вечера, как говорится, мудренее.