pb7下使用几个Win32 API 的例子

　　pb7下会用到ＡＰＩ来处理很多底层的操作。因为PB７在数据库方面强，在别的方面就显得很弱。pb7中使用win32　ＡＰＩ　也是很简单的。首先对要使用的win32 API 进行声明，然后就是调用，声明和调用的时候需要注意数据类型。

　　声明一般在 Declare  --> Global External Functions 中。

　　１，几个文件系统操作的ＡＰＩ

声明：

//　　用关联的应用程序打开一个文件     

FUNCTION    long    ShellExecuteA(    ulong    hWnd,    string    Operation,    string    lpFile, string    lpParameters,    string    lpDirectory,    int    nShowCmd   )   LIBRARY    " shell32.dll "   　  
 
//  创建一个目录
 Function   boolean   CreateDirectoryA( string    lpPathName, string    lpSecurityAttributes)   Library    " kernel32.dll "
    
//      删除一个空目录

 FUNCTION    ulong    RemoveDirectory( ref     string    lpPathName)   LIBRARY    " kernel32.dll "    ALIAS   FOR    " RemoveDirectoryA "    

调用：

// 　　打开文件
ShellExecuteA( 0 , " open " , " c:Northsnow.doc " , "" , "" , 1 ) 

// 　　创建目录
string  ls_SecurityAttributes,As_PathName
SetNull(ls_SecurityAttributes)
As_PathName  =   " c:Northsnow "
CreateDirectoryA(as_PathName,ls_SecurityAttributes)

// 　　删除空目录
string  filePath
filePath = " c:Northsnow "
RemoveDirectory(filePath)

文件系统操作的API功能非常强。这里只是列出了刚刚用过的几个而已。比如创建，打开，修改，删除文件和目录，文件系统的拷贝，剪切和粘贴。文件系统的遍历，文件系统属性的操作。

　　２，几个ＦＴＰ连接的ＡＰＩ

声明：

 

FUNCTION  ulong InternetConnect (ULONG HINTERNET,REF  STRING  lpszservername , long  nserverport ,ref  string  lpszusername,ref  string  lpszpassword,ulong dwsevice,ulong dwflags,ref ulong dwcontext  ) library  " WININET.DLL "  alias  for   " InternetConnectA "

FUNCTION   boolean  FtpGetFile(ulong hconnect ,ref  string  lpszremotefile,ref  string  lpsznewfile, boolean  ffailifexists,ulong dwflagsandattributes,ulong dwfalgs,ref ulong dwcontext) library  " WININET.DLL "  alias  for   " FtpGetFileA "

FUNCTION   BOOLEAN  FtpPutFile(ulong hconnect ,ref  string  lpszLocalfile,ref  string  lpszNewRemoteFile,ulong dwfalgs,ref ulong dwcontext) library  " WININET.DLL "  alias  for   " FtpPutFileA "


FUNCTION   BOOLEAN  FtpDeleteFile (ULONG HCONNECT,REF  STRING  LPSZLOCALFILE,REF  STRING  LPSZNWEREMOTEFILE ,ULONG DWFLAGS,REF ULONG DWCONTEXT) LIBRARY  " WININET.DLL "  ALIAS  FOR   " FtpPutFileA "

FUNCTION   BOOLEAN  FtpDeleteFile (ULONG HCONNECT ,REF  STRING  LPSZFILENAME) LIBRARY  " WININET.DLL "  ALIAS  FOR   " FtpDeleteFileA "

FUNCTION   BOOLEAN  FtpRenameFile (ULONG HCONNECT,REF  STRING  LPSZEXISTING ,REF  STRING  LPSZNEW) LIBRARY  " WININET.DLL "  ALIAS  FOR   " FtpRenameFileA "

FUNCTION  ULONG FtpOpen(ULONG HCONNECT ,REF  STRING  LPSZFILENAME,ULONG DWACCESS,ULONG DWFLAGS,REF ULONG DWCONTEXT ) LIBRARY  " WININET.DLL "  ALIAS  FOR   " FtpOpenFileA "  

FUNCTION   BOOLEAN  FtpSetCurrentDirectory (ULONG HCONNECT,REF  STRING  LPSZDIRECTORY) LIBRARY  " WININET.DLL "  ALIAS  FOR   " FtpSetCurrentDirectoryA "

FUNCTION   BOOLEAN  FtpGetCurrentDirectory (ULONG HCONNECT ,REF  STRING  LPSZCURRENTDIRECTORY,REF ULONG LPDWCURRENTDIRECTORY) LIBRARY  " WININET.DLL "  ALIAS  FOR   " FtpGetCurrentDirectoryA "  

FUNCTION  ULONG InternetOpen(REF  STRING  LPSZAGENT,ULONG DWACCESSTYPE,REF  STRING  LPSZPROXY ,REF  STRING  LPSZPROXYBYPASS,ULONG DWFLAGS) LIBRARY  " WININET.DLL "  ALIAS  FOR   " InternetOpenA "

FUNCTION     long    ShellExecuteA(   ulong   hWnd,    string    Operation,    string    lpFile, string    lpParameters,    string    lpDirectory,    int    nShowCmd   )   LIBRARY    " shell32.dll "      
Function     boolean    CreateDirectoryA( string    lpPathName, string    lpSecurityAttributes)   Library    " kernel32.dll "

 

调用：

 

 

ulong    lnginetconn  // 被赋予 wininet.dll internetconnect 函数
boolean   ftpgetf      // 被赋予 wininet.dll ftpgetfile 函数   
ulong    ulngIetOpen  // 被赋予 wininet.dll internetopen 函数

string  sAgent = " liuyang "
string  sProxy
string  sProxyByPass
ulngIetOpen = InternetOpen(sAgent, 0 ,sProxy,sProxyByPass, 0 )
lnginetconn = InternetConnect(ulngIetOpen,ftpserver ,ftpport,ftpu,ftpp, 1 , 0 ,d)



string  f
string  g 
    // 从服务器上取文件
ftpgetf = FtpGetFile(lnginetconn,f,g, false , 0 , 1 ,d)


string  str
boolean  bPutFile
string  g
ulong e  = 0
bPutFile =  FtpPutFile(lnginetconn,g,str, 0 ,e)  


string   ds
// 在ftp服务器上删除文件
ftpdeletef =  FtpdeleteFile(lnginetconn,ds)