www.gusucode.com > mbcdata 工具箱 matlab 源码程序 > mbcdata/@calibrationdata/@visionv2interface/pSetConnection.m
function value = pSetConnection(obj, value) %PSETCONNECTION Private set method. % Copyright 2004-2005 The MathWorks, Inc. if isempty(value) % disconnect % Release interfaces obj.pReleaseIDevices; obj.pReleaseIProject; release(obj.Connection); % Disconnect value = []; elseif ~strcmpi(class(value), progID) % Invalid connection error(message('mbc:calibrationdata:visionv2interface:InvalidArgument1')) else % OK end % ------------------------------------------------------------------------- function out = progID %PROGID ProgID for Vision. % Cache ProgID persistent VISION_PROGID if isempty(VISION_PROGID) % Initialize cache if str2double(version('-release')) < 14 VISION_PROGID = 'COM.Vision.Application'; % R13 and earlier else VISION_PROGID = 'COM.Vision_Application'; % R14 end end % Return out = VISION_PROGID;