Buscar por:

Criando drivers odbc através do delphi

Código

Unit Unit1;

  interface

  uses

    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

  type

    TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

  var

    Form1: TForm1;

  implementation

  {$R *.DFM}

  procedure CreateODBCDriver(Const   cDSNName,cExclusive,cDescription,cDataBase,cDefaultPath,cConfigSql,cDriver: string);

  type

    TSQLConfigDataSource = function( hwndParent: HWND; fRequest: WORD; lpszDriver: LPCSTR;  lpszAttributes: LPCSTR ): BOOL; stdcall;

  const

    ODBC_ADD_DSN = 1; // Adiciona uma fonte de dados (data source)

    ODBC_CONFIG_DSN = 2; // Configura a fonte de dados (data source)

    ODBC_REMOVE_DSN = 3; // Remove a fonte de dados (data source)

    ODBC_ADD_SYS_DSN = 4; // Adiciona um DSN no sistema

    ODBC_CONFIG_SYS_DSN = 5; // Configura o DSN do sistema

    ODBC_REMOVE_SYS_DSN = 6; // Remove o DSN do sistema

  var

    pFn: TSQLConfigDataSource;

    hLib: LongWord;

    strDriver: string;

    strHome: string;

    strAttr: string;

    strFile: string;

    fResult: BOOL;

    ModName: array[0..MAX_PATH] of Char;

    srInfo : TSearchRec;

    begin

      Windows.GetModuleFileName( HInstance, ModName, SizeOf(ModName) );

      strHome := ModName;

      while ( strHome[length(strHome)] <> '' ) do

      Delete( strHome, length(strHome), 1 );

      strFile := strHome + cDatabase; // Teste com access (Axes = Access)

      hLib := LoadLibrary( pChar(cDefaultPath) ); // carregando para o diretório padrão

      if( hLib <> NULL ) then 

      begin

        @pFn := GetProcAddress( hLib, pChar(cConfigSql) );

        if( @pFn <> nil ) then 

        begin 

          strDriver := cDriver;

          strAttr := Format( 'DSN=%s'+#0+  'DBQ=%s'+#0+'Exclusive=%s'+#0+'Description=%s'+#0+#0,[cDSNName,strFile,cExclusive,cDescription] );

          fResult := pFn( 0, ODBC_ADD_SYS_DSN, @strDriver[1], @strAttr[1] );

          if( fResult = false ) then

            ShowMessage( 'Falha ao tentar criar o DSN (Data source).' );

          if( FindFirst( strFile, 0, srInfo ) <> 0 ) then

          begin

            strDriver := cDriver;

            strAttr := Format( 'DSN=%s'+#0+'DBQ=%s'+#0+'Exclusive=%s'+#0+'Description= %s'+#0+#0+'CREATE_DB="%s"'#0+#0, [cDSNName,strFile,cExclusive,cDescription,strFile]);

            fResult := pFn( 0, ODBC_ADD_SYS_DSN, @strDriver[1], @strAttr[1] );

            if( fResult = false ) then

              ShowMessage( 'Falha ao tentar criar o banco de dados' );

          end;

          FindClose( srInfo );

       end;

       FreeLibrary( hLib );

        if fResult then

          ShowMessage( 'Banco de dados criado.' );

    end

    else

    begin

      ShowMessage( 'o sistema não pode carregar a biblioteca ODBCCP32.DLL' );

    end;

  end;

  procedure TForm1.Button1Click(Sender: TObject);

  begin

    CreateOdbcDriver('Cludelphi DSN','1','clubedelphi','clubedelphi.MDB','ODBCCP32','SQLConfigDataSource','Microsoft Access Driver (*.mdb)');

  end;

  end.

{  Concluções: Com esta dica você poderá criar drivers ODBC em tempo de execução, softwares de instalação, economizando tempo e deixando suas aplicações mais dinâmicas. }