DDE code for TeleMagic

Keywords:     DDE TeleMagic

SAMPLE CODE:

mCom="Company"

If WinExist("TeleMagic Database Server")==@False
        RunShell( "C:\TMWIN\DBSERVER.EXE","", "C:\tmwin", @Icon, @NoWait ) ; 
launches DBServer per page 168 in API
Endif

Channel=DDEInitiate("TMServer","DBServer")              
        ;Message("Channel Opened is",channel)                           

mResult1=DDEPoke(Channel,'OPENDB','(()Ś')               
        ;Message("Poke #1 Return is",mResult1)                          

If mResult1
        mResult2=DDERequest(Channel,'OPENDB(()Ś')       
        ;Message("Is Channel Open?",mResult2)
Endif

mResult3=DDEPoke(Channel,'Read','1%mCom%')
        ;Message("Poke #2 Return is",mResult3)                          

If mResult3
        mResult4=DDERequest(Channel,'Read')
        ;Message("Current Company field value is",mResult4)     
Endif


DDETerminate(channel)

WinClose("TeleMagic Data")

Message("Company Name is",mResult4)

Exit

Article ID:   W14451

Filename:   DDE Code for TeleMagic.txt