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)