Test and thanks

Mon, 27 May 2024 14:28:25 +0000

Quick test and a thanks Albert.

Test posting

Tue, 14 May 2024 06:23:04 +0000

this is a posting to test the BB codes.

Code:
    gThreadAlive=%TRUE

    thread create ttdsPing(0) to gThread

    SetThreadPriority gThread,%thread_priority_idle

    gMainALoX  = val(GetRegValue(%HKEY_CURRENT_USER,$REGISTRY,$MAINALOX))

    gMainALoY  = val(GetRegValue(%HKEY_CURRENT_USER,$REGISTRY,$MAINALOY))

    gMutaALoX  = val(GetRegValue(%HKEY_CURRENT_USER,$REGISTRY,$MUTAALOX))

    gMutaALoY  = val(GetRegValue(%HKEY_CURRENT_USER,$REGISTRY,$MUTAALOY))

    '  Connect to ttds

    '  ---------------

    '

    gDSConn=trm_Connect(gServerURL,gttdsPort,gttdsData,gttdsUser,gttdsPass,0)

    if gDSConn < 0 then

      gErrorText="Unable to connect user "+gttdsUser+" to database "+ _

                  gttdsData+":"+$cr+"Error "+format$(abs(gDSConn))+" - "+ _

                  trm_ErrorMessage(gDSConn)

      msgbox gErrorText,%mb_iconerror or %mb_taskmodal,$ERR_CAPTION

      exit function

    end if

'  Open ttds files

'  ---------------

'

    gDLDAT = trm_Open(gDSConn,gDLDAT_File,1)

    if gDLDAT < 0 then

      gErrorText="ERR#001 Cannot open "+gDLDAT_File+". Code "+format$(gDLDAT)

      msgbox gErrorText,%mb_iconerror or %mb_taskmodal,$ERR_CAPTION

      goto closedown

    end if

    dim abg(0) as global DLGES at varptr(dld)

Code tags obviously works fine - important for us programmers.

PowerBASIC Users Meeting Point - Test forum

Test and thanks

Test posting