diff -ur dbxdriver.orig/DbxMysql41.pas dbxdriver/DbxMysql41.pas --- dbxdriver.orig/DbxMysql41.pas Fri Aug 19 21:13:44 2005 +++ dbxdriver/DbxMysql41.pas Fri May 5 03:26:01 2006 @@ -25,7 +25,7 @@ interface uses Classes, SysUtils, DBXpress, FMTBcd, SqlTimSt, Math, - SqlxApi, PlainMysql41; + SqlxApi, PlainMysql41, IndexCursor; type /// @@ -112,7 +112,7 @@ eSqlCommandOption: TSQLCommandOption; ulValue: Integer): SQLResult; stdcall; function GetOption(eSqlCommandOption: TSQLCommandOption; - PropValue: Pointer; + var pValue: Integer; MaxLength: SmallInt; out Length: SmallInt): SQLResult; stdcall; function setParameter( ulParameter: Word ; @@ -431,13 +431,13 @@ UINT32(PropValue^) := UINT32(@FMySQL); Length := SizeOf(MYSQL); end; - +{ eConnMaxActiveComm: UINT32(PropValue^) := 1; eConnObjectQuoteChar: PChar(PropValue)^ := Char(0); - +} else Result := DBXERR_NOTSUPPORTED; end; @@ -755,7 +755,7 @@ end; function TDBXCommandMYSQL41.GetOption(eSqlCommandOption: TSQLCommandOption; - PropValue: Pointer; MaxLength: SmallInt; + var pValue: Integer; MaxLength: SmallInt; out Length: SmallInt): SQLResult; begin Result := DBXERR_NOTSUPPORTED; @@ -1652,6 +1652,7 @@ out Cursor: ISQLCursor): SQLResult; begin //TODO: TDBXMetaDataMYSQL41.getIndices + Cursor := TappIndexCursor.Create; Result := SQL_SUCCESS; end; Only in dbxdriver: IndexCursor.pas diff -ur dbxdriver.orig/dbxopenmysql41.cfg dbxdriver/dbxopenmysql41.cfg --- dbxdriver.orig/dbxopenmysql41.cfg Fri Aug 19 21:22:50 2005 +++ dbxdriver/dbxopenmysql41.cfg Fri May 5 03:23:54 2006 @@ -31,9 +31,5 @@ -M -$M16384,1048576 -K$00400000 --LE"d:\program files\borland\delphi7\Projects\Bpl" --LN"d:\program files\borland\delphi7\Projects\Bpl" --w-DUPLICATE_CTOR_DTOR --w-UNSAFE_TYPE --w-UNSAFE_CODE --w-UNSAFE_CAST +-LE"c:\program files\borland\delphi6\Projects\Bpl" +-LN"c:\program files\borland\delphi6\Projects\Bpl"