Guidance
指路人
g.yi.org
software / rapidq / Examples / Win32API & DLL / simple / DLL.BAS

Register 
新用户注册
Search 搜索
首页 
Home Home
Software
Upload

  
' 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!"
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Sat 2021-10-23  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2000-06-18 22:13:52