How To retrieve servername and servertype?

Administrator · **Posted:** Tue Jul 05, 2005 2:36 pm

How To retrieve servername and servertype?

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

Discuss this How To here.

thelma · **Posted:** Tue Jul 05, 2005 3:05 pm

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

Frantskevith George · **Posted:** Tue Jul 05, 2005 3:08 pm

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:

Code: Select all

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 · **Posted:** Thu Jun 08, 2006 10:48 am

How to get server date from client machine

rdebath · **Posted:** Mon Feb 23, 2009 11:28 pm

Thankyou, I'd forgotten about this trick.

BTW: if slaha is still around ...

Code: Select all

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

Code: Select all

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 · **Posted:** Sun Mar 01, 2009 10:17 am

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 ...

Code: Select all

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

Code: Select all

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.

mibuso.com

How To retrieve servername and servertype?

Who is online