function [dtype, server, port, rds, cal, stat] = ltpdv_server_get_server(mainfig)


% Get data type
sh = findobj(mainfig, 'Tag', 'LTPDVserverDataType');
idx = get(sh, 'Value');
strs = get(sh, 'String');
dtype = strs{idx};

% Get server 
sh = findobj(mainfig, 'Tag', 'LTPDVserverServerEdit');
server = get(sh, 'String');

% Get port
sh = findobj(mainfig, 'Tag', 'LTPDVserverPortEdit');
port = str2num(get(sh, 'String'));

% Get rds
sh = findobj(mainfig, 'Tag', 'LTPDVserverRdsEdit');
rds = str2num(get(sh, 'String'));

% Get cal
sh = findobj(mainfig, 'Tag', 'LTPDVserverCalEdit');
cal = str2num(get(sh, 'String'));

% Get stat
sh = findobj(mainfig, 'Tag', 'LTPDVserverStat');
idx = get(sh, 'Value');
strs = get(sh, 'String');
stat = strs{idx};