Создание comobject в delphi

Question

Здравствуйте.

Я, начинающий и неопытный, пытаюсь создать гбд и слои на Delphi7

база создаётся, приступаю к созданию слоя и тут сталкиваюсь:

    pwsn:=CreateComObject(CLASS_workspacename);
это работает

    pwsp:=CreateComObject(CLASS_Workspace);
а это не работает, потому что CLASS_Workspace не зарегистрирован!

что делать?

Answer 1

Если Вы не нашли ответ, вот пример создания базы данных:

 CreateDatabase('d:\workspace', 'test6.mdb', ipWorkspace);

procedure CreateDatabase(databaseFolder, databaseName: string;
  var pWorkspace: IWorkspace);
var
  pPropertySet: IPropertySet;
  pWorkspaceName: IWorkspaceName;
  pWorkspaceFactory: IWorkspaceFactory;
  pName: IName;
  pInterface: IInterface;
begin
  pWorkspaceFactory := coAccessWorkspaceFactory.Create as IWorkspaceFactory;
  pPropertySet := coPropertySet.Create as IPropertySet;
  pWorkspaceFactory.Create(databaseFolder, databaseName, pPropertySet, 0, pWorkspaceName);
  pName := pWorkspaceName as IName;
  pName.Open(pInterface);
  pWorkspace := pInterface as IWorkspace;
end;

Answer 2

Та же проблема.
Решена переходом на VC++