From: Carlo B. <car...@us...> - 2005-02-10 23:07:15
|
Update of /cvsroot/instantobjects/Source/Brokers/IBX In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv436/Source/Brokers/IBX Modified Files: InstantIBX.pas Removed Files: ioibx50.dpk Log Message: Porting to Delphi 5 Index: InstantIBX.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/IBX/InstantIBX.pas,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** InstantIBX.pas 3 Feb 2005 16:54:53 -0000 1.6 --- InstantIBX.pas 10 Feb 2005 23:06:23 -0000 1.7 *************** *** 336,344 **** --- 336,347 ---- procedure TInstantIBXConnector.InternalCreateDatabase; + {$IFDEF D7+} var db_handle: TISC_DB_HANDLE; tr_handle: TISC_TR_HANDLE; + {$ENDIF} begin inherited; + {$IFDEF D7+} // IBX's TIBDatabase.CreateDatabase is fatally flawed and so we have to // bypass it for the time being. *************** *** 356,359 **** --- 359,363 ---- Disconnect; end; + {$ENDIF} end; --- ioibx50.dpk DELETED --- |