tcp_getserveripaddress(tcp_client_h)

function server_ip_adds = tcp_getserveripaddress(tcp_client_h)
%
% TCP_GETSERVERIPADDRESS returns a string containing the server's
% IP address, to which there is an open socket.
%
%   server_ip_adds = tcp_getserveripaddress(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_ip_adds = invoke(tcp_client_h, 'getserveripaddress');