2000-06-18 22:13

' Introductory example of calling DLLs in Rapid-Q by William Yu

     $APPTYPE CONSOLE

     DECLARE FUNCTION PasPos    LIB "PASCAL.DLL" ALIAS "Pas_POS"       (SubString AS STRING, SearchString AS STRING) AS WORD
     DECLARE FUNCTION Uppercase LIB "PASCAL.DLL" ALIAS "Pas_UPPERCASE" (S AS STRING) AS STRING
     DECLARE FUNCTION Lowercase LIB "PASCAL.DLL" ALIAS "Pas_LOWERCASE" (S AS STRING) AS STRING
     DECLARE FUNCTION GetDate   LIB "PASCAL.DLL" ALIAS "Pas_DATE"      AS STRING
     DECLARE FUNCTION GetTime   LIB "PASCAL.DLL" ALIAS "Pas_TIME"      AS STRING
     DECLARE SUB MESSAGEBOX     LIB "PASCAL.DLL" ALIAS "Pas_MSGBOX"    (Title AS STRING, Text AS STRING)

     ?PasPos("fox", "the quick brown fox wasn't so quick after all")
     ?Uppercase("fox")
     ?Lowercase("BIG CASE")
     ?GetDate
     ?GetTime

     MESSAGEBOX "Application Title", "Message: Hello world, from Rapid-Q!"

2000-06-18 22:13