tcp_getserverportnum(tcp_client_h)

function server_port_num = tcp_getserverportnum(tcp_client_h)
%
% TCP_GETSERVERIPADDRESS returns the TCP port number, on the server,
% to which there is an open socket.
%
%   server_port_num = tcp_getserverportnum(tcp_client_h)
%

% Author:       David Ganor, WAVION Ltd.
% Last Update:  09/2003
% Revisions:
%   1. Created.

%% Checking input arguments
if (nargin ~= 1)
    error('Wrong number of input arguments');
end
if ~isobject(tcp_client_h)
    error('Input argument must be a handle to an ActiveX object');
end
if isempty(tcp_client_h)
    error('Input argument cannot be empty');
end

server_port_num = get(tcp_client_h, 'ServerPortNum');