CoLoadLibrary
Loads a specific DLL into the caller's process. CoLoadLibrary is equivalent to LoadLibraryEx. CoLoadLibrary does not do anything about the lifetime of the library.

Copy Code
       HINSTANCE CoLoadLibrary(
 LPOLESTR lpszLibName,
 BOOL bAutoFree
);
Parameters

lpszLibName
[in] Points to the name of the library to be loaded. The use of this name is the same as in the Win32 function LoadLibrary.

bAutoFree
[in] If TRUE, indicates that this library is freed when it is no longer needed, through a call to either the CoFreeUnusedLibraries or CoUninitialize functions. If FALSE, the library should be explicitly freed with the CoFreeLibrary function.

Note:  
The bAutoFree parameter is used only for 16-bit applications. This parameter is ignored for 32-bit and 64-bit applications.


Return Values

Module Handle
Handle of the loaded library.

NULL
Library could not be loaded.

Remarks

The CoGetClassObject function does not call CoLoadLibrary. CoLoadLibrary loads a DLL specified by the lpszLibName parameter into the process that called CoGetClassObject. Containers should not call CoLoadLibrary directly.

Internally, a reference count is kept on the loaded DLL, by using CoLoadLibrary to increment the count and the CoFreeLibrary function to decrement it.

Public Type TParamConnect
  Base As String
  Server As String
  BackupPath As String
  User As String
  Password As String
End Type

Public Function ConnectAdd(ParamCon As TParamConnect, strAliasDb As String) As deObjDBLib.IObjDBConnection
  Dim pXmlDoc As New MSXML2.DOMDocument
  Dim xmlField As IXMLDOMElement
  Dim pObjDb As New deObjDBLib.ObjDB
 
  Set xmlField = pXmlDoc.appendChild(pXmlDoc.createElement("CONNECTION"))
  xmlField.setAttribute "Base", ParamCon.Base
  xmlField.setAttribute "Server", ParamCon.Server
  xmlField.setAttribute "BackupPath", ParamCon.BackupPath

  Dim pNewConn As deObjDBLib.IObjDBConnection
  Set pNewConn = pObjDb.Connect(xmlField, ParamCon.User, ParamCon.Password)
  Set ConnectAdd = pNewConn
End Function

Dim pObjDb As New deObjDBLib.ObjDB

Dim pObjDb As New deObjDBLib.ObjDB

procedure TForm1.Button1Click(Sender: TObject);
var
v : IObjDB;
begin
 v := CoObjDB.Create;
end;

Sub Макрос1()
'
' Макрос1 Макрос
'
  Dim pObjDb As deObjDBLib.ObjDB
  Set pObjDb = New deObjDBLib.ObjDB
  Set pObjDb = Nothing
'
End Sub

> procedure TForm1.Button1Click(Sender: TObject);
> var
> v : IObjDB;
> begin
>  v := CoObjDB.Create;
> end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  CoInitFlags := Х;
end;