Как создать ComObj используя CreateComObject?
LIBID_Scaner: TGUID = '{30BDCD3D-FF71-46DD-931F-0C85D2FD6BFE}';
IID_IStandart: TGUID = '{9EE812C6-E98F-11D2-AF3E-0000E8DBEDCE}';
DIID_IScanerEvents: TGUID = '{691870D6-592F-11D3-B029-0000E8DBEDCE}';
IID_IScaner3: TGUID = '{691870D5-592F-11D3-B029-0000E8DBEDCE}';
CLASS_Scaner45: TGUID = '{691870D7-592F-11D3-B029-0000E8DBEDCE}';
делал :
Код:
ComObj:=CreateComObject(LIBID_Scaner);
/// Далее хочу получить свойство
ShowMessage( ComObj.Version);
// и тут ошибка не является объектом автоматизации