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 ---
|
