22. Juli 2009 09:39
22. Juli 2009 09:44
22. Juli 2009 09:51
ServerName() : Text[1024]
ltxtTemp := CONTEXTURL;
i := STRPOS(ltxtTemp,'servername=');
IF i > 0 THEN BEGIN
ltxtTemp := COPYSTR(ltxtTemp,i + 11,999);
i := STRPOS(ltxtTemp,'&');
EXIT(COPYSTR(ltxtTemp,1,i - 1));
END
ELSE
EXIT('');
ServerType() : Text[1024]
ltxtTemp := CONTEXTURL;
i := STRPOS(ltxtTemp,'servertype=');
IF i > 0 THEN
EXIT(COPYSTR(ltxtTemp,i + 11))
ELSE
EXIT('');
22. Juli 2009 09:53
22. Juli 2009 10:02
22. Juli 2009 10:51