From 779136b83154801010b848fadc2fce4011ecd16d Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Fri, 1 Mar 2013 16:51:48 +0000
Subject: minor optimization for pascal

git-svn-id: http://svn.miranda-ng.org/main/trunk@3821 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/Libs/KOLEdb.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'plugins/Libs')

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;
-- 
cgit v1.2.3