How To retrieve servername and servertype?

Administrator

How To retrieve servername and servertype?

http://www.mibuso.com/howtoinfo.asp?FileID=2

Discuss this How To here.

Anonymous

not clear enough, please try to simplify it so i can understand

Anonymous

In a introduction stage I was need to understand, what base I Use. To clean understand this, I use another form of this function, and plase it's result to main form (330).
On modification of your variant:

GetServerName() : Text[30]
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 BEGIN
  i := STRPOS(ltxtTemp,'database=');
  IF i > 0 THEN BEGIN
   ltxtTemp := COPYSTR(ltxtTemp,i + 9,999);
   i := STRPOS(ltxtTemp,'&');
   EXIT(COPYSTR(ltxtTemp,1,i - 1));
   END ELSE EXIT('');
  END;

slaha

How to get server date from client machine

rdebath

Thankyou, I'd forgotten about this trick.

BTW: if slaha is still around ...

CREATE VIEW [dbo].[Server Time]
AS
SELECT     '' AS [Key], CURRENT_TIMESTAMP AS ServerTime

OBJECT Table 50000 Server Time
{
  OBJECT-PROPERTIES
  {
    Date=23/02/09;
    Time=21:14:28;
    Modified=Yes;
    Version List=;
  }
  PROPERTIES
  {
    DataPerCompany=No;
    LinkedObject=Yes;
  }
  FIELDS
  {
    { 1   ;   ;Key                 ;Code10         }
    { 2   ;   ;ServerTime          ;DateTime       }
  }
  KEYS
  {
    {    ;Key                                      }
  }
  CODE
  {
    BEGIN
    END.
  }
}

Just do a GET on the table.

kriki

You should make a tips/tricks topic for this one!

rdebath wrote:

Thankyou, I'd forgotten about this trick.

BTW: if slaha is still around ...

CREATE VIEW [dbo].[Server Time]
AS
SELECT     '' AS [Key], CURRENT_TIMESTAMP AS ServerTime

OBJECT Table 50000 Server Time
{
  OBJECT-PROPERTIES
  {
    Date=23/02/09;
    Time=21:14:28;
    Modified=Yes;
    Version List=;
  }
  PROPERTIES
  {
    DataPerCompany=No;
    LinkedObject=Yes;
  }
  FIELDS
  {
    { 1   ;   ;Key                 ;Code10         }
    { 2   ;   ;ServerTime          ;DateTime       }
  }
  KEYS
  {
    {    ;Key                                      }
  }
  CODE
  {
    BEGIN
    END.
  }
}

Just do a GET on the table.