From: Byron Nikolaidis <byronn@insightdist.com>
To: Julia A.Case <julie@postgreSQL.org>
To: pgsql-interfaces <pgsql-interfaces@postgreSQL.org>
To: Marc G. Fournier <scrappy@hub.org>
To: pgsql-questions@postgreSQL.org
Subject: ODBC Driver and Install script (PLEASE READ!)
Date: Wed, 15 Apr 1998 17:41:45 -0400
Message-ID: <35352999.3FD27EDE@insightdist.com> (raw)
References: <3534EF3C.51C85C7@insightdist.com>
<19980415131528.32791@MageNet.com>
<3535075F.8A7A996@insightdist.com>
Hello,
My name is Byron Nikolaidis and I am the author of the new ODBC driver (and the install script as well) just in case anybody didn't know that. I would like to make myself
known and perhaps clear up a few things. I work with David Hartwig at Insight. He provided several ideas for the driver and I did all the programming.
If you want to contact me about the driver or install script, feel free! Feedback is appreciated. I would like to make every effort to respond to bug fixes, enhancements,
etc. in this new driver, since I have lived and breathed it for several months. In case you haven't heard, this driver is practically rewritten (all C++ code is gone) and it
is fast! It also can handle several knew ODBC API calls, data types (like LongVarBinary and LongVarChar, properly), the Postgres 6.3 protocol with password authentication, and
much more.
Please, go look at our web site, which contains the self-extracting install, the source code, and the complete list of enhancements/highlights. The URL is:
"http://www.insightdist.com/psqlodbc";. This is where you are going to find the latest binary and source updates and any other driver info.
By the way, the installation script file (setup.rul) that David Hartwig sent was way out of date. The most current script file is now included in the source at our web site
(http://www.insightdist.com/psqlodbc) and I will attach it here as well.
Byron Nikolaidis
email: byronn@insightdist.com
Attachments:setup.rul (text/plain, 16.9K) download
/*
# Insight Distribution Systems - System V - Apr 1998
#ident "@(#)setup.rul 1.9 :/sccs/sql/odbc/s.setup.rul 4/15/98 16:42:47"
*/
/*----------------------------------------------------------------------------*\
*
* PostgreSQL ODBC Driver Installation Script for InstallShield
*
\*----------------------------------------------------------------------------*/
#define APP_NAME "PostgreSQL ODBC Driver"
#define DRIVER_NAME "PostgreSQL"
#define DRIVER_FILE "PSQLODBC.DLL"
#define OLD_DRIVER_FILE "PODBC32.DLL"
#define OLD_DRIVER_FILE_RENAMED "podbc32_sav.dll"
#define COMPANY_NAME "Insight"
#define PRODUCT_NAME "PostgreSQL ODBC Driver"
#define PRODUCT_VERSION "6.3"
#define PRODUCT_KEY "PSQLODBC.DLL"
#define UNINSTALL_KEY "PSQLODBCv6.3"
#define ODBC_DM_KEY "\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\SharedDLLs"
#define ODBC_COMP_KEY "\\SOFTWARE\\ODBC\\ODBCINST.INI"
#define ODBC_CORE_KEY "\\SOFTWARE\\ODBC\\ODBCINST.INI\\ODBC Core"
#define ODBC_DRIVERS_KEY "\\SOFTWARE\\ODBC\\ODBCINST.INI\\ODBC Drivers"
declare
// functions
prototype SetupScreen();
prototype FileCompare(STRING, STRING, STRING, STRING);
// variables
STRING svMainDirectory [_MAX_STRING], svGrp, svUninstLogFile, svPath;
STRING svValue, szName, szKey, szMessage;
STRING szMsg, szTmp, szTmp2, szFileSet, szProgram;
NUMBER nResult, nvType, nvSize, nStartup, ComponentUsageCount;
NUMBER nvDoNot, nvVersion, nvInstall, nCore, nDM;
STRING dm, core, szFileName, svFileName;
NUMBER options, nvInfo, nvResult;
LONG lResult;
STRING svCompVersion, svFileVersion, svCompDate, svCompTime, svFileDate, svFileTime;
program
StartHere:
Disable( BACKGROUND );
// Set up the installation screen.
SetupScreen();
InstallationInfo(COMPANY_NAME, PRODUCT_NAME, PRODUCT_VERSION, PRODUCT_KEY);
RegDBSetAppInfo("Location", REGDB_STRING, WINSYSDIR ^ DRIVER_FILE, -1);
// Create a Welcome dialog.
WelcomeDlg:
Disable( BACKBUTTON );
Welcome( "Welcome to the PostgreSQL Odbc Driver Installation", 0 );
Enable( BACKBUTTON );
Enable( NEXTBUTTON );
GetTargetDirectory:
svMainDirectory = WINSYSDIR;
OptionsDlg:
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
szKey = ODBC_DM_KEY;
nCore = RegDBKeyExist(szKey);
szName = WINSYSDIR ^ "ODBC32.DLL";
nDM = RegDBGetKeyValueEx(szKey, szName, nvType, svValue, nvSize);
szMessage = "Select options for installing the ODBC Driver Manager.\n" +
"Analysis of your system suggests that the ODBC Driver Manager\n";
nvDoNot = FALSE;
nvInstall = FALSE;
nvVersion = FALSE;
if (nCore >= 0 && nDM >= 0) then
nvDoNot = TRUE;
szMessage = szMessage + "is already installed. Therefore, you may choose not to install it.";
else
nvInstall = TRUE;
szMessage = szMessage + "is not installed. Therefore, you should install it now.";
endif;
Enable(FINISHBUTTON);
nResult = AskOptions(EXCLUSIVE, szMessage,
"Do not install Driver Manager", nvDoNot,
"Install Driver Manager ", nvInstall,
"Install Driver Manager (with version checking)", nvVersion);
if (nResult = BACK) then
Disable(FINISHBUTTON);
goto WelcomeDlg;
endif;
Version:
CompressInfo("driver.z", DRIVER_FILE, COMP_INFO_VERSIONMS|COMP_INFO_VERSIONLS, nvInfo, svCompVersion);
szFileName = WINSYSDIR ^ DRIVER_FILE;
nResult = VerGetFileVersion(szFileName, svFileVersion);
// MessageBox("System file PSQLODBC.dll version is " + svFileVersion, INFORMATION);
lResult = VerCompare(svCompVersion, svFileVersion, VERSION);
if (lResult = EQUALS) then
//date
CompressInfo("driver.z", DRIVER_FILE, COMP_INFO_DATE, nvInfo, svCompDate);
GetFileInfo(szFileName, FILE_DATE, nvResult, svFileDate);
//time
CompressInfo("driver.z", DRIVER_FILE, COMP_INFO_TIME, nvInfo, svCompTime);
GetFileInfo(szFileName, FILE_TIME, nvResult, svFileTime);
// If compressed file date/time is earlier than system file date/time
// then
nResult = FileCompare(svCompDate, svCompTime, svFileDate, svFileTime);
if (nResult < 0) then
lResult = LESS_THAN;
endif;
NumToStr(szTmp, nResult);
// MessageBox("File Compare = " + szTmp, INFORMATION);
endif;
if (lResult = LESS_THAN) then
MessageBeep(0);
nResult = AskYesNo("The " + PRODUCT_NAME + " is already installed on your system \nand is a newer version than the one that is about to be installed.\n\n" +
"Would you like to continue the installation anyway (not recommended)?", NO);
if (nResult = NO) then
MessageBeep(0);
MessageBox("Installation has been aborted.\nNo changes have been made to your system.", WARNING);
exit;
endif;
else
/*
nResult = AskYesNo("Ready to install " + PRODUCT_NAME + ".\n\nPress Yes to proceed with the installation.\nPress No to abort the installation.", YES);
if (nResult = NO) then
MessageBeep(0);
MessageBox("Installation has been aborted.\nNo changes have been made to your system.", WARNING);
exit;
endif;
*/
endif;
CheckRegistry:
Enable(STATUSDLG);
SetStatusWindow(5, "Checking registry entries...");
Delay(1);
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
szKey = ODBC_DM_KEY;
nResult = RegDBKeyExist(szKey);
if (nResult < 0 && nvDoNot = TRUE) then
MessageBeep(0);
MessageBox("ODBC Core Components are not installed!", SEVERE);
Disable(STATUSDLG);
MessageBeep(0);
MessageBox("Please install the ODBC Core Components\nand rerun this setup program.", INFORMATION);
exit;
endif;
szName = WINSYSDIR ^ "ODBC32.DLL";
nResult = RegDBGetKeyValueEx(szKey, szName, nvType, svValue, nvSize);
if (nResult < 0 && nvDoNot = TRUE) then
MessageBeep(0);
MessageBox("ODBC Driver Manager (ODBC32.DLL) is not installed!", SEVERE);
Disable(STATUSDLG);
MessageBeep(0);
MessageBox("Please install the ODBC Driver Manager\nand rerun this setup program.", INFORMATION);
exit;
endif;
FileSetup:
SetStatusWindow( 10, "Copying program files...");
StatusUpdate(ON, 90);
DeinstallStart(svMainDirectory, svUninstLogFile, UNINSTALL_KEY, 0);
// Show the uninstall under Add/Remove Programs in Control Panel
RegDBSetItem(REGDB_UNINSTALL_NAME, PRODUCT_NAME);
szFileSet = "psqlodbc";
TARGETDIR = svMainDirectory; // winsys
FileSetBeginDefine(szFileSet);
nResult = CompressGet("driver.z", "*.*", COMP_NORMAL);
if (nResult < 0) then
NumToStr(szTmp, nResult);
MessageBox("Compress Get Error on driver.z files.\n\nError # " + szTmp, SEVERE);
exit;
endif;
TARGETDIR = svMainDirectory; // winsys
// Driver Manager stuff
if (! nvDoNot) then
if (nvVersion) then
options = COMP_UPDATE_VERSION;
else
options = COMP_NORMAL;
endif;
// The File usage count increments are handled by CompressGet
// with the SHAREDFILE option.
nResult = CompressGet("redist.z", "*.*", options|SHAREDFILE);
if (nResult < 0) then
NumToStr(szTmp, nResult);
MessageBox("Compress Get Error on redist.z files.\n\nError # " + szTmp, SEVERE);
exit;
endif;
endif;
FileSetEndDefine(szFileSet);
FileTransfer:
nResult = FileSetPerformEz(szFileSet, 0);
switch(nResult)
case FS_DONE:
case FS_CREATEDIR:
MessageBeep(0);
MessageBox("Unable to create a required subdirectory under " + TARGETDIR + "."
+ "\nPlease check write access to this directory.", SEVERE);
abort;
default:
NumToStr(szTmp, nResult);
MessageBeep(0);
MessageBox("Error copying files to " + TARGETDIR + "."
+ "\nPlease check this location and try again."
+ "\n\nError Number:"+szTmp, SEVERE);
abort;
endswitch;
UpdateRegistry:
SetStatusWindow(95, "Creating registry entries...");
Delay(2);
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
Disable(LOGGING);
// Create ODBC Core Subkey (if it doesn't exist)
// (But don't create uninstall information for it)
szKey = ODBC_CORE_KEY;
nResult = RegDBCreateKeyEx(szKey, "");
if (nResult < 0) then
MessageBeep(0);
MessageBox("Unable to create ODBC Core subkey.", SEVERE);
exit;
endif;
// Create Installed Driver Key (if it doesn't exist)
// (But don't create uninstall information for it)
szKey = ODBC_DRIVERS_KEY;
nResult = RegDBCreateKeyEx(szKey, "");
if (nResult < 0) then
MessageBeep(0);
MessageBox("Unable to create ODBC Drivers subkey.", SEVERE);
exit;
endif;
// Increment Driver Manager Component UsageCount
szKey = ODBC_CORE_KEY;
szName = "UsageCount";
if (RegDBGetKeyValueEx(szKey, szName, nvType, svValue, nvSize) < 0) then
ComponentUsageCount = 0;
endif;
// MessageBox("Current Driver Manager Component Usage Count = " + svValue, INFORMATION);
StrToNum(ComponentUsageCount, svValue);
ComponentUsageCount = ComponentUsageCount + 1;
NumToStr(szTmp, ComponentUsageCount);
// MessageBox("New Driver Manager Component Usage Count = " + szTmp, INFORMATION);
nResult = RegDBSetKeyValueEx(szKey, szName, REGDB_NUMBER, szTmp, -1);
if (nResult < 0) then
MessageBeep(0);
MessageBox("Unable to increment Driver Manager component usage count.", SEVERE);
exit;
endif;
// Re-enable logging now
Enable(LOGGING);
// set ODBC Drivers Subkey (installed)
szKey = ODBC_DRIVERS_KEY;
nResult = RegDBSetKeyValueEx(szKey, DRIVER_NAME, REGDB_STRING, "Installed", -1);
if (nResult < 0) then
MessageBeep(0);
MessageBox("Unable to create 'Installed' key value.", SEVERE);
exit;
endif;
// Driver Specification Subkey (PostgreSQL)
szKey = ODBC_COMP_KEY + "\\" + DRIVER_NAME;
nResult = RegDBCreateKeyEx(szKey, "");
if (nResult < 0) then
MessageBeep(0);
MessageBox("Unable to create ODBC Driver Key.", SEVERE);
exit;
endif;
nResult = RegDBSetKeyValueEx(szKey, "APILevel", REGDB_STRING, "1", -1);
if (nResult < 0) then
MessageBeep(0);
MessageBox("Unable to create 'APILevel' key value.", SEVERE);
exit;
endif;
nResult = RegDBSetKeyValueEx(szKey, "ConnectFunctions", REGDB_STRING, "YYN", -1);
if (nResult < 0) then
MessageBeep(0);
MessageBox("Unable to create 'ConnectFunctions' key value.", SEVERE);
exit;
endif;
nResult = RegDBSetKeyValueEx(szKey, "CommLog", REGDB_STRING, "0", -1);
if (nResult < 0) then
MessageBeep(0);
MessageBox("Unable to create 'CommLog' key value.", SEVERE);
exit;
endif;
nResult = RegDBSetKeyValueEx(szKey, "Optimizer", REGDB_STRING, "OFF", -1);
if (nResult < 0) then
MessageBeep(0);
MessageBox("Unable to create 'Optimizer' key value.", SEVERE);
exit;
endif;
nResult = RegDBSetKeyValueEx(szKey, "Driver", REGDB_STRING, WINSYSDIR ^ DRIVER_FILE, -1);
if (nResult < 0) then
MessageBeep(0);
MessageBox("Unable to create 'Driver' key value.", SEVERE);
exit;
endif;
nResult = RegDBSetKeyValueEx(szKey, "DriverODBCVer", REGDB_STRING, "02.00", -1);
if (nResult < 0) then
MessageBeep(0);
MessageBox("Unable to create 'DriverODBCVer' key value.", SEVERE);
exit;
endif;
nResult = RegDBSetKeyValueEx(szKey, "FileUsage", REGDB_STRING, "0", -1);
if (nResult < 0) then
MessageBeep(0);
MessageBox("Unable to create 'FileUsage' key value.", SEVERE);
exit;
endif;
nResult = RegDBSetKeyValueEx(szKey, "Setup", REGDB_STRING, WINSYSDIR ^ DRIVER_FILE, -1);
if (nResult < 0) then
MessageBeep(0);
MessageBox("Unable to create 'Setup' key value.", SEVERE);
exit;
endif;
nResult = RegDBSetKeyValueEx(szKey, "SQLLevel", REGDB_STRING, "1", -1);
if (nResult < 0) then
MessageBeep(0);
MessageBox("Unable to create 'SQLLevel' key value.", SEVERE);
exit;
endif;
nResult = RegDBSetKeyValueEx(szKey, "UsageCount", REGDB_NUMBER, "1", -1);
if (nResult < 0) then
MessageBeep(0);
MessageBox("Unable to create 'UsageCount' key value.", SEVERE);
exit;
endif;
RenameOld:
if (FindFile(WINSYSDIR, OLD_DRIVER_FILE, svFileName) = 0) then
szMessage = "Renaming old driver to " + OLD_DRIVER_FILE_RENAMED + " ...";
SetStatusWindow(98, szMessage);
Delay(1);
Disable(LOGGING);
SRCDIR= WINSYSDIR;
TARGETDIR = WINSYSDIR;
RenameFile(OLD_DRIVER_FILE, OLD_DRIVER_FILE_RENAMED);
Enable(LOGGING);
endif;
Done:
Delay(1);
SetStatusWindow(100, "Installation complete");
Delay(1);
Disable(STATUSDLG);
if (BATCH_INSTALL = TRUE) then
szMsg = "Some files could not be updated because they are " +
"currently in use by other programs on the system. " +
"Files in use will be updated the next time you restart " +
"your system.";
RebootDialog("Restart Windows", szMsg, SYS_BOOTMACHINE);
CommitSharedFiles(0);
szMsg = "Driver setup complete.\n\nReboot your system to complete the installation.";
MessageBeep(0);
MessageBox(szMsg, INFORMATION);
else
szMsg = "Driver installation completed successfully.";
MessageBeep(0);
MessageBox(szMsg, INFORMATION);
endif;
exit;
/*---------------------------------------------------------------------------*\
*
* Function: SetupScreen
*
* Purpose: This function will set up the screen look. This includes
* colors, fonts, text to be displayed, etc.
*
*
* Input:
*
* Returns:
*
* Comments:
\*---------------------------------------------------------------------------*/
function SetupScreen()
begin
Enable( INDVFILESTATUS );
SetTitle( APP_NAME + " Setup", 28, WHITE );
SetTitle( "Setup", 0, BACKGROUNDCAPTION ); // Caption bar text.
Enable( BACKGROUND );
end;
function FileCompare(szCompInfoDate, szCompInfoTime, szFileInfoDate, szFileInfoTime)
STRING year, month, day, file_date, file_time;
NUMBER nResult;
begin
StrSub(year, szFileInfoDate, 2, 2);
StrSub(month, szFileInfoDate, 5, 2);
StrSub(day, szFileInfoDate, 8, 2);
file_date = month + "-" + day + "-" + year;
nResult = StrCompare(szCompInfoDate, file_date);
if (nResult != 0) then
return nResult;
endif;
StrSub(file_time, szFileInfoTime, 0, 5);
// MessageBox("Comp = " + szCompInfoDate + " " + szCompInfoTime + ", File = " + file_date + " " + file_time, INFORMATION);
nResult = StrCompare(szCompInfoTime, file_time);
return nResult;
end;
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Reply to all the recipients using the --to and --cc options:
reply via email
To: pgsql-interfaces@postgresql.org
Cc: byronn@insightdist.com, julie@postgreSQL.org, scrappy@hub.org, pgsql-questions@postgreSQL.org
Subject: Re: ODBC Driver and Install script (PLEASE READ!)
In-Reply-To: <35352999.3FD27EDE@insightdist.com>
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
This inbox is served by DDX for PostgreSQL; see mirroring instructions
for how to clone and mirror all data and code used for this inbox