PureBasic心得

  使用PureBasic也有一段时间了，国内关于这个东西的资源不多，有个中文社区http://www.purebasic.cn，但是人气一般；幸运的是PureBasic的帮助文档写得非常不错，是俺见过的效率最高的文档，所以摸索一段时间下来，也能弄个7788。当然它的官方论坛也是内容比较丰富的。
PureBasic不是免费的，但是价格非常实惠，79欧包括了windows、linux在内的四个版本，还有后续的无限升级，相对其他开发工具来说，没有什么企业版、个人版的区别。只是国内没有代理商，中文社区的站长算是个非官方的代理。
开始研究PureBasic，是因为它的一个特性，就是直接调用WindowAPI，无需声明，只要加一个“_”（SetWindowLong_）就可以了（当然要完整版才有，demo版不提供）。后来随着渐渐的了解，发现这真是个好工具，具体的功能介绍网上有得是，说说俺平时用它干什么吧
1、为PowerBuilder写DLL：
别看都简称PB，可是确实完全两个不同的东西，PowerBuilder开发MIS系统的效率人所共知，但遗憾的是好多系统方面的功能必须依靠API或者其他语言编写的DLL才能实现，毕竟人家专业不是干这个的，所以需要另外一门辅助语言支持一下。
网上流行的方式都是用VC或DELPHI编写DLL，但是方法都比较复杂，经常遇到PASCAL调用和C调用的问题，还有就是数据类型不匹配，甚至Unicode造成的乱码。使用PureBasic编写DLL可谓极为方便，简单介绍一下：
既然能写DLL，当然这门语言的基础特性就包括了指针、内存操作、数据类型转换、PASCAL和C两种调用方式，这些都不细说了，看一个简单的例子吧（昨天入住博客园的时候，看见Summerheart老大的文章，用VC写了一个获取IP的DLL，小弟现场临摹一下，老兄请勿见怪）：

 1ProcedureDLL.s getip() 2  Protected result$="",ip_num=0
 3  If InitNetwork() 4    If ExamineIPAddresses() 5      ip_num=NextIPAddress() 6      If ip_num 7        result$+IPString(ip_num);第一个IP地址 8        Repeat 9          ip_num=NextIPAddress()10          If ip_num11            result$+";"+IPString(ip_num);后续IP地址12          Else
13            Break14          EndIf15        ForEver16      EndIf17    EndIf18  EndIf19  ProcedureReturn result$20EndProcedure

可以选是否unicode编译，PowerBuilder10以后默认使用unicode
调用方式：在PowerBuilder里声明：
Function string getip() Library "getip_u.dll"
如果不采用unicode编译，需要在后面加ALAIS，帮助里有
小弟半路出家，基本功较差，代码还有可以优化的地方，不过意思是表达出来了。

看看这个例子，只有20行，即可显示全部有连接状态的网卡的ip地址，开发起来非常简洁，俺没有像Summerheart老大那样使用引用传递参数，一方面是因为函数可以返回字符串，另一方面是因为引用传递在PowerBuilder里限制较多。
简单分析一下：
第1行的.s，声明了函数会返回字符串；第3行是初始化网络环境；剩下的就是获取IP了，简单吧
例子就举这一个，其实PureBasic可以干好多VC的事情，并且代码量要少得多（俺是个懒人），比如md5、jpeg解码编码等。
2、自己做一些简单的win32应用程序
PureBasic做出来的程序是全绿色的，不需要任何环境文件的支持，它自己有一套窗体和控件（自带窗体编辑器，功能比较全，使用起来稍微有点别扭），还可以直接使用WINAPI，更变态的是，支持rc文件，可以用resed等工具画对话框，当然也要通过WINAPI调用。
再来个小例子，打开窗口，载入JPG图片，用鼠标在上面移动，可以看到一个可随鼠标移动的框框：

 1;- Window Constants 2Enumeration 3  #Window_0 4EndEnumeration 5 6;- Gadget Constants 7Enumeration 8  #ctn_0 9  #Image_010EndEnumeration1112;- Image Plugins13UseJPEGImageDecoder()1415;- Image Globals16Global Image01718;- Catch Images19Image0 = CatchImage(0, ?Image0)2021;- Images22DataSection23  Image0:24  IncludeBinary "d:\back.JPG"
25EndDataSection2627Procedure Open_Window_0()28  If OpenWindow(#Window_0, 258, 111, 410, 310,"ABC",  #PB_Window_SystemMenu | #PB_Window_TitleBar )29    If CreateGadgetList(WindowID(#Window_0))30      ContainerGadget(#ctn_0,5,5,403,303,#PB_Container_Double)31        ImageGadget(#Image_0, 0, 0, 400, 300, Image0) 32        CloseGadgetList()33    EndIf34  EndIf35EndProcedure3637Global rcOldClip,oldproc,bDrawFlag,lastx=-1,lasty=-1
3839Procedure callback_img(hwnd, uMsg, wParam, lParam)40  Protected x=lParam&$FFFF,y=(lParam>>16)&$FFFF41  Select uMsg 42    Case #WM_PAINT43      bDrawFlag=#False
44      lastx=lasty=-1
45    Case #WM_MOUSEMOVE46      If bDrawFlag47        hdc=GetDC_(hwnd);获取控件DC48        hPen=CreatePen_(#PS_SOLID, 3, RGB(255,0,0));画笔49        hBrush=GetStockObject_(#NULL_BRUSH);透明画刷50        SelectObject_(hdc, hPen)51        SelectObject_(hdc, hBrush)52        SetROP2_(hdc,#R2_NOTXORPEN)53        54        If lastx>=0
55          Rectangle_(hdc,lastx-50,lasty-50,lastx+50,lasty+50);覆盖上次画过的56        EndIf57        58        Rectangle_(hdc,x-50,y-50,x+50,y+50)59        lastx=x:lasty=y60        61        ReleaseDC_(hwnd,hdc)62      EndIf63    Case #WM_LBUTTONDOWN64      bDrawFlag=#True
65      66      rcClip.RECT67      68      GetWindowRect_(hwnd,@rcClip)69      rcClip\left+51
70      rcClip\right-51
71      rcClip\top+51
72      rcClip\bottom-51
73      ClipCursor_(@rcClip)74      75    Case #WM_RBUTTONDOWN76      bDrawFlag=#False
77      ClipCursor_(@rcOldClip)78      79  EndSelect80  81  ProcedureReturn CallWindowProc_(oldproc, hwnd, uMsg, wParam, lParam) 82  83EndProcedure8485Open_Window_0()8687;/init window 88GetClipCursor_(@rcOldClip)8990;/set callback91oldproc = SetWindowLong_(GadgetID(#Image_0), #GWL_WNDPROC, @callback_img())9293Repeat ; Start of the event loop
94Until WaitWindowEvent() = #PB_Event_CloseWindow ; End of the event loop
95End

呵呵，这段代码是从原来的MFC程序迁移过来的，有些地方走了捷径，不过功能实现上没什么问题。
这段里可以看到callback的应用，winapi的应用和基于PureBasic自身功能的应用，当年用mfc做的时候，还要用gdiplus，头痛死了
3、这个东西本身也很好玩
PureBasic作为过程语言，不支持OOP，也就不支持com、activex，但是它偏偏支持Interface之类的功能，所以研究它本身也很有意思。
举例来说，c本身也不支持com，但是有高人搞出了DispachHelp，因为PureBasic可以看做C的BASIC实现，所以又有高人研究出了PureDispachHelp，于是俺就可以使用COM了。
PureBasic还有许多特性，简直就是为了俺们这些仰视C++又敬而远之的闲散人员设计的，呵呵，要不是因为它，俺也不会去学习C++
心得就这么多，总的感觉是：PureBasic不像VC那样，功能强大，但什么都得自己弄，也不想VB、PB那样，自身擅长的领域没有对手，出了自己的领域，什么都要靠别人。它有自身的特点，非常适合作为第二语言。