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;