MeMpad同步工具

 

用Pb写了一个简单的Mempad文档同步工具，其实也就是将这个MyDoc文档通过Ftp上传到think.zzl.org服务器中。本来想要上传到谷歌的服务器，但实在不想去看Google 的API，所以就弄了这么一个简单的！

 

代码如下：

 

 

;- Window Constants ; Enumeration #Window_0 EndEnumeration ;- Gadget Constants ; Enumeration #Text_0 #Text_1 #String_0 #Text_2 #Text_3 #String_1 #String_2 #String_3 #Button_0 #Button_1 #Button_2 #ProgressBar_0 #Timer_0 EndEnumeration ;Ftp登录数据结构 Structure UFtpInfo ServerName.s User.s Password.s port.i EndStructure ;- Fonts Global FontID1 FontID1 = LoadFont(1, "Courier New", 11) Global FontID2 FontID2 = LoadFont(2, "Courier New", 10) Global Ftpinfo.UFtpInfo Global ThreadID1.l Global ThreadID2.l ;函数声明 Declare CheckUserFtpInfo() Declare DownFtpFile() Declare UpLoadFtpFile() Declare Timers(*i) Declare DownFtpFileThread(*i) Declare UpLoadFtpFileThread(*i) ;函数实现 Procedure Open_Window_0() If OpenWindow(#Window_0, 365, 213, 360, 164, "同步文档数据", #PB_Window_SystemMenu | #PB_Window_TitleBar ) If CreateGadgetList(WindowID(#Window_0)) TextGadget(#Text_0, 7, 14, 60, 20, "IP地址:", #PB_Text_Center) SetGadgetFont(#Text_0, FontID2) TextGadget(#Text_1, 240, 14, 50, 20, "端口:", #PB_Text_Center) SetGadgetFont(#Text_1, FontID2) StringGadget(#String_0, 290, 12, 60, 20, "21") TextGadget(#Text_2, 7, 50, 60, 20, "用户名:", #PB_Text_Center) SetGadgetFont(#Text_2, FontID2) TextGadget(#Text_3, 200, 50, 40, 20, "密码:", #PB_Text_Center) SetGadgetFont(#Text_3, FontID2) StringGadget(#String_1, 70, 48, 120, 20, "") StringGadget(#String_2, 240, 48, 110, 20, "",#PB_String_Password) StringGadget(#String_3, 70, 12, 160, 20, "") ButtonGadget(#Button_0, 10, 90, 100, 30, "下载服务器文件") ButtonGadget(#Button_1, 130, 90, 110, 30, "同步本地文件") ButtonGadget(#Button_2, 260, 90, 90, 30, "退出") ProgressBarGadget(#ProgressBar_0, 10, 130, 340, 20, 0, 10) EndIf EndIf EndProcedure Procedure MainLoop() Repeat Event = WaitWindowEvent() Select Event Case #PB_Event_CloseWindow Quit = 1 Case #PB_Event_Gadget Select EventGadget() Case #Button_0 DownFtpFile() Case #Button_1 UpLoadFtpFile() Case #Button_2 Quit = 1 EndSelect EndSelect Until Quit = 1 End EndProcedure Procedure Timers(*i) Repeat Delay(550) SetGadgetState(#ProgressBar_0,*i) *i = *i +1 If *i > 10 *i= 0 EndIf If IsThread(ThreadID2)=0 ProcedureReturn EndIf ForEver EndProcedure Procedure DownFtpFileThread(*i) DisableGadget(#Button_0,1) DisableGadget(#Button_1,1) DisableGadget(#Button_2,1) If OpenFTP(0,Ftpinfo/ServerName,Ftpinfo/User,Ftpinfo/Password,0,Ftpinfo/port) SetFTPDirectory(0,"MempadData") re = ReceiveFTPFile(0,"MyDoc.lst","MyDoc.lst") If re = 0 MessageRequester("警告","下载文件出错！") CloseFTP(0) ProcedureReturn Else KillThread(ThreadID1) SetGadgetState(#ProgressBar_0,10) SetWindowTitle(0,"数据下载完成！") EndIf CloseFTP(0) Else KillThread(ThreadID1) SetGadgetState(#ProgressBar_0,0) MessageRequester("警告","连接到Ftp服务器出错！") ProcedureReturn EndIf DisableGadget(#Button_0,0) DisableGadget(#Button_1,0) DisableGadget(#Button_2,0) EndProcedure Procedure UpLoadFtpFileThread(*i) DisableGadget(#Button_0,1) DisableGadget(#Button_1,1) DisableGadget(#Button_2,1) If OpenFTP(0,Ftpinfo/ServerName,Ftpinfo/User,Ftpinfo/Password,0,Ftpinfo/port) SetFTPDirectory(0,"MempadData") re = SendFTPFile(0,"MyDoc.lst","MyDoc.lst") If re = 0 MessageRequester("警告","同步文件出错！") CloseFTP(0) ProcedureReturn Else KillThread(ThreadID1) SetGadgetState(#ProgressBar_0,10) SetWindowTitle(0,"数据同步完成！") EndIf CloseFTP(0) Else KillThread(ThreadID1) SetGadgetState(#ProgressBar_0,0) MessageRequester("警告","连接到Ftp服务器出错！") ProcedureReturn EndIf DisableGadget(#Button_0,0) DisableGadget(#Button_1,0) DisableGadget(#Button_2,0) EndProcedure Procedure CheckUserFtpInfo() s.s = GetGadgetText(#String_3) If s <> "" Ftpinfo/ServerName = s Else MessageRequester("警告","请输入FTP地址！") ProcedureReturn EndIf s = GetGadgetText(#String_0) If s <> "" Ftpinfo/port = Val(s) Else MessageRequester("警告","请输入FTP服务器端口!") ProcedureReturn EndIf s = GetGadgetText(#String_1) If s <> "" Ftpinfo/User = s Else MessageRequester("警告","请输入FTP用户名！") ProcedureReturn EndIf s = GetGadgetText(#String_2) If s <> "" Ftpinfo/Password = s Else MessageRequester("警告","请输入FTP密码！") ProcedureReturn EndIf EndProcedure Procedure DownFtpFile() CheckUserFtpInfo() If Ftpinfo ThreadID1 = CreateThread(@timers(),0) ThreadID2 = CreateThread(@DownFtpFileThread(),0) EndIf EndProcedure Procedure UpLoadFtpFile() re = FileSize("MyDoc.lst") If re = -1 MessageRequester("警告","本地MyDoc.lst文档不存在！") ProcedureReturn EndIf CheckUserFtpInfo() If Ftpinfo ThreadID1 = CreateThread(@timers(),0) ThreadID2 = CreateThread(@UpLoadFtpFileThread(),0) EndIf EndProcedure ;程序开始 If InitNetwork() Open_Window_0() MainLoop() Else MessageRequester("警告","网络连接错误！") EndIf

 

这段代码很简单，我懒得对文件和FTP服务器上的情况作更多检测判断，就这么简单的弄吧，think.zzl.org上的空间有5G，够我用的了！

 

写这个工具，顺便学习Purebasic下怎么写多线程程序，不得不说，Purebasic的基础工具真的很方便，现在缺的是一个高级的库类。

 

但是这样一个库类可能要等一辈子了，Pascal比Purebasic流行得多，高级库类不也就VCL和KCL，当然可能还有其他……大部分人的工作都用在C/C++上了！