diff options
| author | George Hazan <george.hazan@gmail.com> | 2013-03-01 16:51:48 +0000 |
|---|---|---|
| committer | George Hazan <george.hazan@gmail.com> | 2013-03-01 16:51:48 +0000 |
| commit | 779136b83154801010b848fadc2fce4011ecd16d (patch) | |
| tree | 1ff4931ece25817b3b1518d93532c05298287588 /plugins/Libs/KOLEdb.pas | |
| parent | 15858ed4002eabbe921dc56c8bbfbf7a639c48cb (diff) | |
minor optimization for pascal
git-svn-id: http://svn.miranda-ng.org/main/trunk@3821 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/Libs/KOLEdb.pas')
| -rw-r--r-- | plugins/Libs/KOLEdb.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/plugins/Libs/KOLEdb.pas b/plugins/Libs/KOLEdb.pas index 53357ab44f..3a1916965b 100644 --- a/plugins/Libs/KOLEdb.pas +++ b/plugins/Libs/KOLEdb.pas @@ -11,7 +11,7 @@ unit KOLEdb; interface
-uses Windows, ActiveX, KOL;
+uses Windows, mComObj, KOL;
type
INT64 = I64;
@@ -29,7 +29,7 @@ type 3: ( fltVal : Extended );
4: ( dblVal : Double );
5: ( boolVal : Bool );
- 6: ( scode : SCODE );
+ //6: ( scode : SCODE );
//7: ( cyVal : CY );
//8: ( date : Date );
9: ( bstrVal : Pointer ); // BSTR => [ Len: Integer; array[ 1..Len ] of WideChar ]
@@ -212,7 +212,7 @@ type riid: TIID; var DataSource: IUnknown): HResult; stdcall;
function CreateDBInstanceEx(const clsidProvider: TGUID;
const pUnkOuter: IUnknown; dwClsCtx: DWORD; pwszReserved: POleStr;
- pServerInfo: PCoServerInfo; cmq: ULONG; rgmqResults: PMultiQI): HResult; stdcall;
+ pServerInfo: PCoServerInfo; cmq: ULONG; rgmqResults: Pointer): HResult; stdcall;
function LoadStringFromStorage(pwszFileName: POleStr;
out pwszInitializationString: POleStr): HResult; stdcall;
function WriteStringToStorage(pwszFileName, pwszInitializationString: POleStr;
@@ -481,7 +481,7 @@ type PDBColumnInfo = ^TDBColumnInfo;
DBCOLUMNINFO = packed record
pwszName: PWideChar;
- pTypeInfo: ITypeInfo;
+ pTypeInfo: Pointer;
iOrdinal: UINT;
dwFlags: DBCOLUMNFLAGS;
ulColumnSize: UINT;
|