2013年9月2日 星期一

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, 258111410310,"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, 00400300, 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, 3RGB(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那样,自身擅长的领域没有对手,出了自己的领域,什么都要靠别人。它有自身的特点,非常适合作为第二语言。

沒有留言:

張貼留言