diff --git a/EasyBBS/WebRoot/header.jsp b/EasyBBS/WebRoot/header.jsp index 6c2e73c..06e0275 100644 --- a/EasyBBS/WebRoot/header.jsp +++ b/EasyBBS/WebRoot/header.jsp @@ -1,47 +1,263 @@ + <%@ page contentType="text/html;charset=utf-8"%> -<%@ page import="cn.easy.js.fan.web.*"%> - + + + + EasyPlate CMS + + + + + + + + + + - - - - - - - - - - - - - -
-
 
+ + + + +
+
+ +
+
+
+
+ + + diff --git a/EasyBBS/WebRoot/index.jsp b/EasyBBS/WebRoot/index.jsp index 0dba1e4..4d603cf 100644 --- a/EasyBBS/WebRoot/index.jsp +++ b/EasyBBS/WebRoot/index.jsp @@ -1,699 +1,18 @@ <%@ page contentType="text/html;charset=utf-8"%> -<%@ page import="com.redmoon.forum.person.*"%> -<%@ page import="com.redmoon.forum.plugin.auction.AuctionShopDb"%> -<%@ page import="com.redmoon.forum.*"%> -<%@ page import="com.redmoon.forum.miniplugin.home.*"%> -<%@ page import="cn.js.fan.util.*"%> -<%@ page import="cn.js.fan.module.cms.Document"%> -<%@ page import="cn.js.fan.module.nav.LinkDb"%> -<%@ page import="java.util.*"%> -<%@ page import="cn.js.fan.web.*"%> +<%@ include file="header.jsp" %> - -<%=Global.AppName%> - <%=Global.server%> - - - - - -<%@ include file="header.jsp"%> - -<% -HomeDb hd = new HomeDb(); -MsgDb md = new MsgDb(); -Document doc = new Document(); -%> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - -
- <% - if (doc==null) - doc = new Document(); - doc = doc.getDocumentByDirCode("photo"); - if (doc!=null) - out.print(doc.getContent(1)); - %>		  - - - -
- - - - -
- <% - int[] v = hd.getHotIds(); - int hotlen = v.length; - int i = 0; - if (hotlen==0) - out.print("无热点话题！"); - else { - String bgcolor=""; - for (int k=0; k - - - - <%}else{%> - <%=md.getTitle()%>
- <%}%> - -
 · - <%if (color.equals("")) {%> - <%=md.getTitle()%>
- <%} - else - out.print("编号：" + v[k] + "的贴子不存在
"); - } - }%> - - - -
- - - - -
- <% Leaf lf = new Leaf(); %> - - <% - String[] vr = hd.getRecommandBoards(); - int rblen = vr.length; - for (int k=0; k - - - - - <%}%> -
<%=lf.getName()%> | - <% - md = hd.getMsgDbTopOne(lf.getCode()); - %> - <%=StrUtil.getLeft(md.getTitle(), 18)%> <% - k++; - if (k - <%=lf.getName()%> | - <% - md = hd.getMsgDbTopOne(lf.getCode()); - %> - <%=StrUtil.getLeft(md.getTitle(), 18)%> - <%}%>
- 		- - - -
- - - - -
- - - - -
- - - - - - - - - - - - -
<%@ include file="forum/miniplugin/weather/58248.htm"%>
- - - - -
- - - - -
- - - - -
- - - - - - - - - - - - -
<% - Iterator bir = hd.getBoardsByTodayPost(12).iterator(); - Leaf plf; - while (bir.hasNext()) { - plf = (Leaf)bir.next();%> - - - - -
  <%=plf.getName()%> (发贴<%=plf.getTodayCount()%>)
- <%}%>
- - - - -

<% - int[] mv = hd.getRecommandMsgs(); - int mlen = mv.length; - if (mlen==0) - out.print("无推荐话题！"); - else { - for (int k=0; k  -   ·<%=StrUtil.getLeft(md.getTitle(), 24)%>
- <%}else{%> -  ·<%=StrUtil.getLeft(md.getTitle(), 24)%>
-<%} } - }%>

- - - - -
<% -OnlineInfo oli = new OnlineInfo(); -int allcount = oli.getAllCount(); -int allusercount = oli.getAllUserCount(); -ForumDb forum = new ForumDb(); -forum = forum.getForumDb(); -%> -   在线 <%=allcount%>人  注册用户 <%=allusercount%>人
-  今日发帖：<%=forum.getTodayCount()%> 篇
- - - - - - - - - - - -
搜索： -
  -
- - - - - - - - - - - - - - - - - - - -
- 社区帮助 - 邮编电话
- 礼物道具 - 社区服务
- IP查看器 - 航班查询
 万年历 手机位置
- - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
<% - if (doc==null) - doc = new Document(); - doc = doc.getDocumentByDirCode("recommandAuction1"); - if (doc!=null) - out.print(doc.getContent(1)); - %><% - if (doc==null) - doc = new Document(); - doc = doc.getDocumentByDirCode("recommandAuction2"); - if (doc!=null) - out.print(doc.getContent(1)); - %><% - if (doc==null) - doc = new Document(); - doc = doc.getDocumentByDirCode("recommandAuction3"); - if (doc!=null) - out.print(doc.getContent(1)); - %>
<% - if (doc==null) - doc = new Document(); - doc = doc.getDocumentByDirCode("starShop"); - if (doc!=null) - out.print(doc.getContent(1)); - %><% - if (doc==null) - doc = new Document(); - doc = doc.getDocumentByDirCode("recommandShop"); - if (doc!=null) - out.print(doc.getContent(1)); - %><% - AuctionShopDb as; - Iterator shopir = hd.getNewShop(2).iterator(); - while (shopir.hasNext()) { - as = (AuctionShopDb)shopir.next();%> - - - - -
 <%=StrUtil.getLeft(as.getShopName(), 14)%>
- <%} - %>
- - - - - - - - - - - -
- - - - - - - - - - - - - -
- <% - lf = dir.getLeaf("trade"); - %> -     <%=lf.getName()%> -  <% - lf = dir.getLeaf("qrl"); - %> -    <%=lf.getName()%>
- <% - ThreadBlockIterator irmsg = md.getThreads(SQLBuilder.getListtopicSql("trade", "", "all"), "trade", 0, 10); - String bgcolor = ""; - i = 0; - while (irmsg.hasNext()) { - md = (MsgDb)irmsg.next(); - i++; - bgcolor = ""; - if (i==2) { - i = 0; - bgcolor = "#F7F7EC"; - } - String color = StrUtil.getNullString(md.getColor()); - %> - - - - <%}else{%> - <%=StrUtil.getLeft(md.getTitle(), 40)%>
- <%}%> - -
 · - <%if (color.equals("")) {%> - <%=StrUtil.getLeft(md.getTitle(), 40)%>
- <%}%> - 		 <% - irmsg = md.getThreads(SQLBuilder.getListtopicSql("qrl", "", "all"), "qrl", 0, 10); - i = 0; - while (irmsg.hasNext()) { - md = (MsgDb)irmsg.next(); - i++; - bgcolor = ""; - if (i==2) { - i = 0; - bgcolor = "#F7F7EC"; - } - String color = StrUtil.getNullString(md.getColor()); - %> - - - - <%}else{%> - <%=StrUtil.getLeft(md.getTitle(), 42)%>
- <%}%> - -
 · - <%if (color.equals("")) {%> - <%=StrUtil.getLeft(md.getTitle(), 42)%>
- <%}%>
-
  - - - - - - - - - - - -
<% -LeafChildrenCacheMgr dlcm = new LeafChildrenCacheMgr("root"); -java.util.Vector vt = dlcm.getChildren(); -Iterator ir = vt.iterator(); -while (ir.hasNext()) { - Leaf leaf = (Leaf) ir.next(); - String parentCode = leaf.getCode(); -%> - - - - - - -
 <%=leaf.getName()%>

- <% - LeafChildrenCacheMgr dl = new LeafChildrenCacheMgr(parentCode); - java.util.Vector fv = dl.getChildren(); - Iterator ir1 = fv.iterator(); - while (ir1.hasNext()) { - lf = (Leaf) ir1.next();%> - - <%if (lf.getColor().equals("")) {%> - <%=lf.getName()%> - <%}else{%> - <%=lf.getName()%> - <%}%> - - <%}%> -

- <%}%> 		 
 - - - -
- - - - -
- - - - - - - - - - - - -
<% - if (doc==null) - doc = new Document(); - doc = doc.getDocumentByDirCode("star"); - if (doc!=null) - out.print(doc.getContent(1)); - %>
- - - - -
- - - - -
- - - - -
- - - - - - - - - - - - -
- <% - AuctionShopDb asd = new AuctionShopDb(); - Iterator irshop = asd.list("select userName from " + asd.getTableName() + " order by IS_RECOMMANDED desc, openDate desc", 0, 10).iterator(); - while (irshop.hasNext()) { - asd = (AuctionShopDb)irshop.next(); - %> -   <%=asd.getShopName()%>
- <%}%> -
- - - - -
- - - - -
- - - - -
- - - - - - - - - - - - -
<% - if (doc==null) - doc = new Document(); - doc = doc.getDocumentByDirCode("bmfu"); - if (doc!=null) - out.print(doc.getContent(1)); - %>
- - - - -
- - <% - LinkDb ld = new LinkDb(); - String listsql = "select id from " + ld.getTableName() + " where userName=" + StrUtil.sqlstr(ld.USER_SYSTEM) + " and kind=" + StrUtil.sqlstr(ld.KIND_DEFAULT) + " order by sort"; - Iterator irlink = ld.list(listsql).iterator(); - int m = 0; - while (irlink.hasNext()) - { - ld = (LinkDb) irlink.next(); - if (m==0) - out.print(""); - %> - - <% - m ++; - if (m==8) { - out.print(""); - m = 0; - } - } - if (m!=8) - out.print(""); - %> -
- <%if (ld.getImage()!=null && !ld.getImage().equals("")) {%> - - <%}else{%> - <%=ld.getTitle()%> - <%}%> -
-
- -
- -
- + + EasyPlate CMS主页 + + + +
+
明细导航1
+
明细导航2
+
+ +
+
+
+ diff --git a/Src/Client/EasyPlateMain/EasyPlateMain.cfg b/Src/Client/EasyPlateMain/EasyPlateMain.cfg index 6e28a51..e622a90 100644 --- a/Src/Client/EasyPlateMain/EasyPlateMain.cfg +++ b/Src/Client/EasyPlateMain/EasyPlateMain.cfg @@ -39,7 +39,7 @@ -O"d:\program files\borland\delphi7\Lib\Debug" -I"d:\program files\borland\delphi7\Lib\Debug" -R"d:\program files\borland\delphi7\Lib\Debug" --LUvcl;rtl;pkEasyAdditional;pkEasyPlateBaseForm +-LUvcl;rtl;pkEasyDBConnection;pkEasyAdditional;pkEasyPlateBaseForm -w-UNSAFE_TYPE -w-UNSAFE_CODE -w-UNSAFE_CAST diff --git a/Src/Client/EasyPlateMain/EasyPlateMain.dof b/Src/Client/EasyPlateMain/EasyPlateMain.dof index 6924291..de72793 100644 --- a/Src/Client/EasyPlateMain/EasyPlateMain.dof +++ b/Src/Client/EasyPlateMain/EasyPlateMain.dof @@ -95,7 +95,7 @@ UnitOutputDir=$(EPP)\Src\dcu PackageDLLOutputDir= PackageDCPOutputDir=$(EPP)\Src\dcu SearchPath=$(DELPHI)\Lib\Debug -Packages=vcl;rtl;pkEasyAdditional;pkEasyPlateBaseForm +Packages=vcl;rtl;pkEasyDBConnection;pkEasyAdditional;pkEasyPlateBaseForm Conditionals= DebugSourceDirs= UsePackages=1 @@ -134,18 +134,3 @@ OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[HistoryLists\hlSearchPath] -Count=1 -Item0=$(DELPHI)\Lib\Debug -[HistoryLists\hlUnitOutputDirectory] -Count=1 -Item0=$(EPP)\Src\dcu -[HistoryLists\hlOutputDirectorry] -Count=1 -Item0=$(EPP)\bin -[HistoryLists\hlDCPOutput] -Count=1 -Item0=$(EPP)\Src\dcu diff --git a/Src/Client/EasyPlateMain/untEasyLoginMain.dfm b/Src/Client/EasyPlateMain/untEasyLoginMain.dfm index 2d7cf18..af99743 100644 --- a/Src/Client/EasyPlateMain/untEasyLoginMain.dfm +++ b/Src/Client/EasyPlateMain/untEasyLoginMain.dfm @@ -19,8 +19,8 @@ object frmEasyLoginMain: TfrmEasyLoginMain object imgLoginBC: TImage Left = 0 Top = 0 - Width = 671 - Height = 423 + Width = 663 + Height = 412 Align = alClient Picture.Data = { 0A544A504547496D616765AF560100FFD8FFE000104A46494600010201004800 @@ -2853,7 +2853,7 @@ object frmEasyLoginMain: TfrmEasyLoginMain end object bbtnCancel: TEasyBitButton Left = 432 - Top = 248 + Top = 241 Width = 65 Height = 25 Cursor = crHandPoint @@ -2869,7 +2869,7 @@ object frmEasyLoginMain: TfrmEasyLoginMain end object bbtnLogin: TEasyBitButton Left = 352 - Top = 248 + Top = 241 Width = 65 Height = 25 Cursor = crHandPoint diff --git a/Src/Client/EasyPlateMain/untEasyLoginMain.pas b/Src/Client/EasyPlateMain/untEasyLoginMain.pas index 5bfe977..887035c 100644 --- a/Src/Client/EasyPlateMain/untEasyLoginMain.pas +++ b/Src/Client/EasyPlateMain/untEasyLoginMain.pas @@ -99,7 +99,7 @@ procedure TfrmEasyLoginMain.bbtnLoginClick(Sender: TObject); begin if UpperCase(DMEasyDBConnection.EasyAppType) = 'CAS' then begin - cdsLogin.Data := EasyRDMDisp.EasyGetRDMData('SELECT sSQL FROM sysSQL WHERE iFlag = 1 AND sSQLEName = ''UserLoginCheck'''); + cdsLogin.Data := EasyRDMDisp.EasyGetRDMData('SELECT SQLContext FROM sysSQL WHERE IsEnable = 1 AND SQLName = ''UserLoginCheck'''); // cdsLogin.RemoteServer := DMEasyDBConnection.EasyScktConn; // cdsLogin.ProviderName := 'EasyRDMDsp'; end @@ -107,12 +107,12 @@ procedure TfrmEasyLoginMain.bbtnLoginClick(Sender: TObject); begin cdsLogin.ProviderName := 'DspLogin'; if Active then Close; - CommandText := 'SELECT sSQL FROM sysSQL WHERE iFlag = 1 AND sSQLEName = ''UserLoginCheck'''; + CommandText := 'SELECT SQLContext FROM sysSQL WHERE IsEnable = 1 AND SQLName = ''UserLoginCheck'''; Open; end; if cdsLogin.RecordCount > 0 then - TmpSQL := cdsLogin.fieldbyname('sSQL').AsString; + TmpSQL := cdsLogin.fieldbyname('SQLContext').AsString; close; end; if Trim(TmpSQL) <> '' then diff --git a/Src/Client/EasyPlateMain/untEasyPlateMain.dfm b/Src/Client/EasyPlateMain/untEasyPlateMain.dfm index c6733da..3e7bc5a 100644 --- a/Src/Client/EasyPlateMain/untEasyPlateMain.dfm +++ b/Src/Client/EasyPlateMain/untEasyPlateMain.dfm @@ -1,6 +1,6 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain - Left = 229 - Top = 133 + Left = 207 + Top = 147 Caption = 'frmEasyPlateMain' FormStyle = fsMDIForm Menu = mmMain @@ -12,15 +12,15 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain object Splitter1: TSplitter Left = 257 Top = 65 - Height = 370 + Height = 358 Color = 14986888 ParentColor = False end object EasyWaterImage1: TEasyWaterImage Left = 260 Top = 65 - Width = 602 - Height = 370 + Width = 594 + Height = 358 Align = alClient Radius = 0 Interval = 5000 @@ -902,8 +902,8 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain end object stbMain: TEasyStatusBar Left = 0 - Top = 435 - Width = 862 + Top = 423 + Width = 854 Height = 19 AnchorHint = False Images = imgtv @@ -1037,6 +1037,7 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain Progress.ShowBorder = False Progress.Stacked = False Style = psNumLock + Text = 'NUM' TimeFormat = 'h:mm:ss' Width = 35 end @@ -1154,7 +1155,7 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain object EasyDockPanel1: TEasyDockPanel Left = 0 Top = 0 - Width = 862 + Width = 854 Height = 38 MinimumSize = 3 LockHeight = False @@ -1235,7 +1236,7 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain object EasyMDITabSet1: TEasyMDITabSet Left = 0 Top = 38 - Width = 862 + Width = 854 Height = 27 EasyOfficeTabSetStyler = tbsStyleMain Align = alTop @@ -1416,7 +1417,7 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain Left = 0 Top = 65 Width = 257 - Height = 370 + Height = 358 ActivePage = tsbSysNav Align = alLeft UseColoredTabs = True @@ -1449,7 +1450,7 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain Left = 0 Top = 0 Width = 255 - Height = 345 + Height = 333 SelectionPen.Color = clActiveCaption Align = alClient BorderStyle = bsNone @@ -1491,8 +1492,8 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain Images = img16 DisabledImages = img16_d MenuStyler = mmstyleMain - Left = 192 - Top = 80 + Left = 477 + Top = 143 object File1: TMenuItem Caption = #25991#20214'(&F)' object New1: TMenuItem @@ -1574,8 +1575,8 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain object pmMain: TEasyPopupMenu AutoHotkeys = maManual MenuStyler = mmstyleMain - Left = 232 - Top = 80 + Left = 349 + Top = 207 end object mmstyleMain: TEasyMenuOfficeStyler AntiAlias = aaNone @@ -1645,8 +1646,8 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain NotesFont.Name = #23435#20307 NotesFont.Style = [] MenuBorderColor = 9841920 - Left = 272 - Top = 80 + Left = 349 + Top = 175 end object stbStyleMain: TEasyStatusBarOfficeStyler BorderColor = 14986888 @@ -1688,8 +1689,8 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain PanelAppearanceDark.TextColorHot = clWhite PanelAppearanceDark.TextColorDown = clWhite PanelAppearanceDark.TextStyle = [] - Left = 784 - Top = 400 + Left = 381 + Top = 207 end object tlbStyleMain: TEasyToolBarOfficeStyler BorderColorHot = 14731181 @@ -1943,8 +1944,8 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain TabAppearance.BackGround.Color = 14986888 TabAppearance.BackGround.ColorTo = 16440004 TabAppearance.BackGround.Direction = gdHorizontal - Left = 344 - Top = 80 + Left = 445 + Top = 207 end object tbsStyleMain: TEasyTabSetOfficeStyler ButtonBorderColor = clNone @@ -2021,8 +2022,8 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain TabAppearance.BackGround.Color = 14986888 TabAppearance.BackGround.ColorTo = 16440004 TabAppearance.BackGround.Direction = gdHorizontal - Left = 304 - Top = 80 + Left = 413 + Top = 207 end object EasyTrayIcon1: TEasyTrayIcon CycleInterval = 0 @@ -2331,12 +2332,12 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain 000000000000F000000000000000F800000000000000FC00000000000000FC00 000000000000FE00000000000000FF00000000000000FF80000000000000} PopupMenu = ppMenuTrayIcon - Left = 752 - Top = 400 + Left = 477 + Top = 207 end object imgNav: TImageList - Left = 304 - Top = 137 + Left = 413 + Top = 239 Bitmap = { 494C010106000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 0000000000003600000028000000400000003000000001002000000000000030 @@ -2743,8 +2744,8 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain end object actEasyMain: TActionList Images = img24 - Left = 376 - Top = 184 + Left = 349 + Top = 143 object actExit: TAction Caption = #36864#20986#31995#32479 Hint = #36864#20986#31995#32479 @@ -2769,8 +2770,8 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain object img24: TImageList Height = 24 Width = 24 - Left = 376 - Top = 216 + Left = 381 + Top = 239 Bitmap = { 494C010126002700040018001800FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 000000000000360000002800000060000000F000000001002000000000000068 @@ -5752,8 +5753,8 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain object img24_d: TImageList Height = 24 Width = 24 - Left = 416 - Top = 216 + Left = 445 + Top = 239 Bitmap = { 494C010122002700040018001800FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 000000000000360000002800000060000000F000000001002000000000000068 @@ -8733,8 +8734,8 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain 000000000000} end object img16: TImageList - Left = 376 - Top = 256 + Left = 349 + Top = 271 Bitmap = { 494C010123002800040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 000000000000360000002800000040000000A0000000010020000000000000A0 @@ -10064,8 +10065,8 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain 000000000000} end object img16_d: TImageList - Left = 416 - Top = 256 + Left = 477 + Top = 239 Bitmap = { 494C01011F002300040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 0000000000003600000028000000400000009000000001002000000000000090 @@ -11266,14 +11267,14 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain Aggregates = <> Params = <> ProviderName = 'DataSetProvider1' - Left = 576 - Top = 144 + Left = 445 + Top = 143 end object ppMenuTrayIcon: TEasyPopupMenu AutoHotkeys = maManual MenuStyler = mmstyleMain - Left = 720 - Top = 400 + Left = 477 + Top = 175 object N5: TMenuItem Caption = '-' end @@ -11282,15 +11283,15 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain end end object imgtv: TImageList - Left = 376 - Top = 296 + Left = 349 + Top = 239 end object tvNavPP: TEasyPopupMenu AutoHotkeys = maManual Images = imgtv MenuStyler = mmstyleMain - Left = 192 - Top = 112 + Left = 445 + Top = 175 object N6: TMenuItem Caption = #20840#37096#23637#24320 ImageIndex = 3 @@ -11322,14 +11323,14 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain object ppTabList: TEasyPopupMenu AutoHotkeys = maManual MenuStyler = mmstyleMain - Left = 232 - Top = 112 + Left = 381 + Top = 175 end object ppMDITab: TEasyPopupMenu AutoHotkeys = maManual MenuStyler = mmstyleMain - Left = 272 - Top = 112 + Left = 413 + Top = 175 object N11: TMenuItem Caption = #20840#37096#20851#38381 OnClick = N11Click @@ -11338,7 +11339,12 @@ inherited frmEasyPlateMain: TfrmEasyPlateMain object cdsMainTV: TClientDataSet Aggregates = <> Params = <> - Left = 193 - Top = 154 + Left = 413 + Top = 143 + end + object ApplicationEvents1: TApplicationEvents + OnException = ApplicationEvents1Exception + Left = 381 + Top = 143 end end diff --git a/Src/Client/EasyPlateMain/untEasyPlateMain.pas b/Src/Client/EasyPlateMain/untEasyPlateMain.pas index 356ff4b..0f5dd45 100644 --- a/Src/Client/EasyPlateMain/untEasyPlateMain.pas +++ b/Src/Client/EasyPlateMain/untEasyPlateMain.pas @@ -31,7 +31,8 @@ interface untEasyToolBarStylers, untEasyTabSet, untEasyOfficeTabSetStylers, untEasyPageControl, ExtCtrls, untEasyTrayIcon, ImgList, ComCtrls, untEasyTreeView, untEasyWaterImage, jpeg, StdCtrls, ActnList, Provider, - DB, DBClient, xmldom, XMLIntf, msxmldom, XMLDoc, untEasyPlateDBBaseForm; + DB, DBClient, xmldom, XMLIntf, msxmldom, XMLDoc, untEasyPlateDBBaseForm, + AppEvnts; type @@ -122,6 +123,7 @@ TfrmEasyPlateMain = class(TfrmEasyPlateDBBaseForm) N11: TMenuItem; cdsMainTV: TClientDataSet; actConnectDB: TAction; + ApplicationEvents1: TApplicationEvents; procedure FormDestroy(Sender: TObject); procedure actExitExecute(Sender: TObject); procedure actVisibleNavExecute(Sender: TObject); @@ -138,6 +140,7 @@ TfrmEasyPlateMain = class(TfrmEasyPlateDBBaseForm) procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure EpResourceManageClick(Sender: TObject); procedure actConnectDBExecute(Sender: TObject); + procedure ApplicationEvents1Exception(Sender: TObject; E: Exception); private { Private declarations } //رյTabб CaptionΪ׼ @@ -630,4 +633,15 @@ procedure TfrmEasyPlateMain.actConnectDBExecute(Sender: TObject); LoadPkg_Normal('pkEasyconnDB.bpl', FPluginParams); end; +procedure TfrmEasyPlateMain.ApplicationEvents1Exception(Sender: TObject; + E: Exception); +begin + inherited; + if E.ClassType.ClassName = 'ESocketConnectionError' then + Application.MessageBox('ʧȥ,µ¼ͻ!', 'ʾ', MB_OK + + MB_ICONINFORMATION) + else + raise E; +end; + end. diff --git "a/Src/Client/\345\271\263\345\217\260\346\217\222\344\273\266/\345\212\237\350\203\275\346\217\222\344\273\266/1\343\200\201\345\215\225\344\275\215\344\277\241\346\201\257/pkEasyUnit.dof" "b/Src/Client/\345\271\263\345\217\260\346\217\222\344\273\266/\345\212\237\350\203\275\346\217\222\344\273\266/1\343\200\201\345\215\225\344\275\215\344\277\241\346\201\257/pkEasyUnit.dof" index fedd9df..0a287bb 100644 --- "a/Src/Client/\345\271\263\345\217\260\346\217\222\344\273\266/\345\212\237\350\203\275\346\217\222\344\273\266/1\343\200\201\345\215\225\344\275\215\344\277\241\346\201\257/pkEasyUnit.dof" +++ "b/Src/Client/\345\271\263\345\217\260\346\217\222\344\273\266/\345\212\237\350\203\275\346\217\222\344\273\266/1\343\200\201\345\215\225\344\275\215\344\277\241\346\201\257/pkEasyUnit.dof" @@ -145,6 +145,3 @@ D:\Program Files\Raize\RC5\Bin\RaizeComponentsVclDB_Design70.bpl=Raize Component d:\Program Files\APP2001\Developer Express Inc\ExpressWeb.Framework.v1.7.10\ExpressWeb Framework\D7\dclcxWebTeeChartD7.bpl=WebTeeChart for EWF by Developer Express Inc. C:\Program Files\Borland\Delphi7\BIN\dxPSTeeChartD7.bpl=ExpressPrinting System ReportLink for TeeChart by Developer Express Inc. C:\Program Files\Borland\Delphi7\BIN\dxPSDBTeeChartD7.bpl=ExpressPrinting System ReportLink for DBTeeChart by Developer Express Inc. -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; diff --git "a/Src/Client/\345\271\263\345\217\260\346\217\222\344\273\266/\347\263\273\347\273\237\346\217\222\344\273\266/\347\263\273\347\273\237\345\271\263\345\217\260\347\256\241\347\220\206/pkgEasyPlateManager.dof" "b/Src/Client/\345\271\263\345\217\260\346\217\222\344\273\266/\347\263\273\347\273\237\346\217\222\344\273\266/\347\263\273\347\273\237\345\271\263\345\217\260\347\256\241\347\220\206/pkgEasyPlateManager.dof" index 0beee18..7caa543 100644 --- "a/Src/Client/\345\271\263\345\217\260\346\217\222\344\273\266/\347\263\273\347\273\237\346\217\222\344\273\266/\347\263\273\347\273\237\345\271\263\345\217\260\347\256\241\347\220\206/pkgEasyPlateManager.dof" +++ "b/Src/Client/\345\271\263\345\217\260\346\217\222\344\273\266/\347\263\273\347\273\237\346\217\222\344\273\266/\347\263\273\347\273\237\345\271\263\345\217\260\347\256\241\347\220\206/pkgEasyPlateManager.dof" @@ -145,6 +145,3 @@ D:\Program Files\Raize\RC5\Bin\RaizeComponentsVclDB_Design70.bpl=Raize Component d:\Program Files\APP2001\Developer Express Inc\ExpressWeb.Framework.v1.7.10\ExpressWeb Framework\D7\dclcxWebTeeChartD7.bpl=WebTeeChart for EWF by Developer Express Inc. C:\Program Files\Borland\Delphi7\BIN\dxPSTeeChartD7.bpl=ExpressPrinting System ReportLink for TeeChart by Developer Express Inc. C:\Program Files\Borland\Delphi7\BIN\dxPSDBTeeChartD7.bpl=ExpressPrinting System ReportLink for DBTeeChart by Developer Express Inc. -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; diff --git a/Src/EasyPlateBaseForm/pkEasyPlateBaseForm.dof b/Src/EasyPlateBaseForm/pkEasyPlateBaseForm.dof index fb040ee..56920b5 100644 --- a/Src/EasyPlateBaseForm/pkEasyPlateBaseForm.dof +++ b/Src/EasyPlateBaseForm/pkEasyPlateBaseForm.dof @@ -135,15 +135,3 @@ ProductName= ProductVersion=1.0.0.0 Comments= LastCompiledTime=2011-04-03 8:51:30 -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[HistoryLists\hlUnitOutputDirectory] -Count=1 -Item0=$(EPP)\Src\dcu -[HistoryLists\hlBPLOutput] -Count=1 -Item0=$(EPP)\bin -[HistoryLists\hlDCPOutput] -Count=1 -Item0=$(EPP)\Src\dcp diff --git a/Src/EaysUtilPlugins/pkEasyDBConnection/pkEasyDBConnection.dof b/Src/EaysUtilPlugins/pkEasyDBConnection/pkEasyDBConnection.dof index 7ce1437..d19c824 100644 --- a/Src/EaysUtilPlugins/pkEasyDBConnection/pkEasyDBConnection.dof +++ b/Src/EaysUtilPlugins/pkEasyDBConnection/pkEasyDBConnection.dof @@ -134,15 +134,4 @@ OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[HistoryLists\hlUnitOutputDirectory] -Count=1 -Item0=$(EPP)\Src\dcu -[HistoryLists\hlBPLOutput] -Count=1 -Item0=$(EPP)\bin -[HistoryLists\hlDCPOutput] -Count=1 -Item0=$(EPP)\Src\dcp +LastCompiledTime=2011-03-27 11:02:13 diff --git a/Src/EaysUtilPlugins/pkEasyFormDesigner/pkEasyFormDesigner.dof b/Src/EaysUtilPlugins/pkEasyFormDesigner/pkEasyFormDesigner.dof index c7a2c19..53b1899 100644 --- a/Src/EaysUtilPlugins/pkEasyFormDesigner/pkEasyFormDesigner.dof +++ b/Src/EaysUtilPlugins/pkEasyFormDesigner/pkEasyFormDesigner.dof @@ -151,6 +151,3 @@ D:\Program Files\Raize\RC5\Bin\RaizeComponentsVclDB_Design70.bpl=Raize Component d:\Program Files\APP2001\Developer Express Inc\ExpressWeb.Framework.v1.7.10\ExpressWeb Framework\D7\dclcxWebTeeChartD7.bpl=WebTeeChart for EWF by Developer Express Inc. C:\Program Files\Borland\Delphi7\BIN\dxPSTeeChartD7.bpl=ExpressPrinting System ReportLink for TeeChart by Developer Express Inc. C:\Program Files\Borland\Delphi7\BIN\dxPSDBTeeChartD7.bpl=ExpressPrinting System ReportLink for DBTeeChart by Developer Express Inc. -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; diff --git a/Src/EaysUtilPlugins/pkEasyUtilClass/pkEasyUtilClasses.dof b/Src/EaysUtilPlugins/pkEasyUtilClass/pkEasyUtilClasses.dof index a5f9b87..5025728 100644 --- a/Src/EaysUtilPlugins/pkEasyUtilClass/pkEasyUtilClasses.dof +++ b/Src/EaysUtilPlugins/pkEasyUtilClass/pkEasyUtilClasses.dof @@ -144,15 +144,3 @@ D:\Program Files\Raize\RC5\Bin\RaizeComponentsVclDB_Design70.bpl=Raize Component d:\Program Files\APP2001\Developer Express Inc\ExpressWeb.Framework.v1.7.10\ExpressWeb Framework\D7\dclcxWebTeeChartD7.bpl=WebTeeChart for EWF by Developer Express Inc. C:\Program Files\Borland\Delphi7\BIN\dxPSTeeChartD7.bpl=ExpressPrinting System ReportLink for TeeChart by Developer Express Inc. C:\Program Files\Borland\Delphi7\BIN\dxPSDBTeeChartD7.bpl=ExpressPrinting System ReportLink for DBTeeChart by Developer Express Inc. -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[HistoryLists\hlUnitOutputDirectory] -Count=1 -Item0=$(EPP)\Src\dcu -[HistoryLists\hlBPLOutput] -Count=1 -Item0=$(EPP)\bin -[HistoryLists\hlDCPOutput] -Count=1 -Item0=$(EPP)\Src\dcp diff --git a/Src/EaysUtilPlugins/pkEasyUtilFunction/pkEasyUtilFunction.dof b/Src/EaysUtilPlugins/pkEasyUtilFunction/pkEasyUtilFunction.dof index d0d191a..d303793 100644 --- a/Src/EaysUtilPlugins/pkEasyUtilFunction/pkEasyUtilFunction.dof +++ b/Src/EaysUtilPlugins/pkEasyUtilFunction/pkEasyUtilFunction.dof @@ -144,15 +144,3 @@ D:\Program Files\Raize\RC5\Bin\RaizeComponentsVclDB_Design70.bpl=Raize Component d:\Program Files\APP2001\Developer Express Inc\ExpressWeb.Framework.v1.7.10\ExpressWeb Framework\D7\dclcxWebTeeChartD7.bpl=WebTeeChart for EWF by Developer Express Inc. C:\Program Files\Borland\Delphi7\BIN\dxPSTeeChartD7.bpl=ExpressPrinting System ReportLink for TeeChart by Developer Express Inc. C:\Program Files\Borland\Delphi7\BIN\dxPSDBTeeChartD7.bpl=ExpressPrinting System ReportLink for DBTeeChart by Developer Express Inc. -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[HistoryLists\hlUnitOutputDirectory] -Count=1 -Item0=$(EPP)\Src\dcu -[HistoryLists\hlBPLOutput] -Count=1 -Item0=$(EPP)\bin -[HistoryLists\hlDCPOutput] -Count=1 -Item0=$(EPP)\Src\dcp diff --git a/Src/Server/EasyPlateServer.dof b/Src/Server/EasyPlateServer.dof index 17a47e9..fa84644 100644 --- a/Src/Server/EasyPlateServer.dof +++ b/Src/Server/EasyPlateServer.dof @@ -134,4 +134,3 @@ OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= -LastCompiledTime=2011-03-27 12:18:15 diff --git a/Src/Server/EasyPlateServer.dpr b/Src/Server/EasyPlateServer.dpr index ca6002d..9424ab3 100644 --- a/Src/Server/EasyPlateServer.dpr +++ b/Src/Server/EasyPlateServer.dpr @@ -83,6 +83,7 @@ begin else } begin Forms.Application.Initialize; + Forms.Application.Title := 'EasyPlate'; Forms.Application.CreateForm(TfrmEasyPlateServerMain, frmEasyPlateServerMain); Application.CreateForm(TDMLocal, DMLocal); // Forms.Application.CreateForm(TDMLocal, DMLocal); diff --git a/Src/Server/EasyPlateServer_TLB.pas b/Src/Server/EasyPlateServer_TLB.pas index 62b0362..9f7faf4 100644 --- a/Src/Server/EasyPlateServer_TLB.pas +++ b/Src/Server/EasyPlateServer_TLB.pas @@ -12,7 +12,7 @@ // ************************************************************************ // // PASTLWTR : 1.2 -// File generated on 2011/7/9 11:34:45 from Type Library described below. +// File generated on 2011/7/9 23:36:19 from Type Library described below. // ************************************************************************ // // Type Lib: E:\MyProject\E1Dev\Src\Server\EasyPlateServer.tlb (1) diff --git a/Src/Server/untEasyPlateServerMain.dfm b/Src/Server/untEasyPlateServerMain.dfm index eaeee82..225a5c6 100644 --- a/Src/Server/untEasyPlateServerMain.dfm +++ b/Src/Server/untEasyPlateServerMain.dfm @@ -3,7 +3,7 @@ object frmEasyPlateServerMain: TfrmEasyPlateServerMain Top = 147 Width = 812 Height = 436 - Caption = 'frmEasyPlateServerMain' + Caption = 'EasyPlate'#26381#21153#31243#24207 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -2069,6 +2069,9 @@ object frmEasyPlateServerMain: TfrmEasyPlateServerMain end object N2: TMenuItem Caption = #35774#32622 + object N11: TMenuItem + Caption = #24320#26426#33258#21160#36816#34892 + end end object N3: TMenuItem Caption = #36830#25509#31649#29702 @@ -2090,6 +2093,18 @@ object frmEasyPlateServerMain: TfrmEasyPlateServerMain end object N4: TMenuItem Caption = #24110#21161 + object H1: TMenuItem + Caption = #24110#21161'(&H)' + end + object R1: TMenuItem + Caption = #27880#20876'(&R)' + end + object N10: TMenuItem + Caption = #23448#26041#32593#31449 + end + object N6: TMenuItem + Caption = #20851#20110'...' + end end end object EasyMenuOfficeStyler1: TEasyMenuOfficeStyler @@ -2164,6 +2179,7 @@ object frmEasyPlateServerMain: TfrmEasyPlateServerMain Top = 66 end object pmMain: TEasyPopupMenu + AutoHotkeys = maManual MenuStyler = EasyMenuOfficeStyler1 Left = 244 Top = 106 @@ -2171,6 +2187,14 @@ object frmEasyPlateServerMain: TfrmEasyPlateServerMain Caption = #26368#22823#21270 OnClick = N5Click end + object N12: TMenuItem + Caption = #26368#23567#21270 + OnClick = N12Click + end + object N13: TMenuItem + Caption = #36864#20986#31243#24207 + OnClick = N13Click + end end object ServerTrayIcon: TEasyTrayIcon IconList = imgServer @@ -2206,93 +2230,93 @@ object frmEasyPlateServerMain: TfrmEasyPlateServerMain 7777777777777777777777777777888888887777000000000000000000000000 0000000000000000222233337777888888888888777733332222000000000000 7777777777777777777777777777888888887777000000000000000000000000 - 0000000000002222777788888888FFFFFFFFFFFFFFFF88887777333300007777 + 00000000000022227777888888888888FFFF8888888888887777333300007777 7777777777777777777777777777777777777777888800000000000000000000 - 0000000000002222777788888888FFFFFFFFFFFFFFFF88887777333300007777 + 00000000000022227777888888888888FFFF8888888888887777333300007777 7777777777777777777777777777777777777777888800000000000000000000 - 0000000000002222777788888888FFFFFFFFFFFFFFFF88887777333300007777 + 00000000000022227777888888888888FFFF8888888888887777333300007777 7777777777777777777777777777777777777777888800000000000000000000 - 0000000000002222777788888888FFFFFFFFFFFFFFFF88887777333300007777 + 00000000000022227777888888888888FFFF8888888888887777333300007777 7777777777777777777777777777777777777777888800000000000000000000 - 0000000022227777888888888888FFFFFFFFFFFFFFFF88888888777733337777 + 0000000022227777888888888888FFFFFFFFFFFF888888888888777733337777 7777777777777777777777777777777777777777777788880000000000000000 - 0000000022227777888888888888FFFFFFFFFFFFFFFF88888888777733337777 + 0000000022227777888888888888FFFFFFFFFFFF888888888888777733337777 7777777777777777777777777777777777777777777788880000000000000000 - 0000000022227777888888888888FFFFFFFFFFFFFFFF88888888777733337777 + 0000000022227777888888888888FFFFFFFFFFFF888888888888777733337777 7777777777777777777777777777777777777777777788880000000000000000 - 0000000022227777888888888888FFFFFFFFFFFFFFFF88888888777733337777 + 0000000022227777888888888888FFFFFFFFFFFF888888888888777733337777 7777777777777777777777777777777777777777777788880000000000000000 - 0000222277777777777777778888FFFFFFFFFFFFFFFF77777777777777772222 + 000022227777777777778888FFFFFFFFFFFFFFFFFFFF88887777777777772222 7777777777770000000000000000000000007777777777770000000000000000 - 0000222277777777777777778888FFFFFFFFFFFFFFFF77777777777777772222 + 000022227777777777778888FFFFFFFFFFFFFFFFFFFF88887777777777772222 7777777777770000000000000000000000007777777777770000000000000000 - 0000222277777777777777778888FFFFFFFFFFFFFFFF77777777777777772222 + 000022227777777777778888FFFFFFFFFFFFFFFFFFFF88887777777777772222 7777777777770000000000000000000000007777777777770000000000000000 - 0000222277777777777777778888FFFFFFFFFFFFFFFF77777777777777772222 + 000022227777777777778888FFFFFFFFFFFFFFFFFFFF88887777777777772222 7777777777770000000000000000000000007777777777770000000000000000 - 2222333333337777777777778888FFFFFFFFFFFFFFFF7777777777773333AAAA + 22223333333377777777FFFFFFFFFFFFFFFFFFFFFFFFFFFF777777773333AAAA 2222777777770000777700000000000000000000777777770000000000000000 - 2222333333337777777777778888FFFFFFFFFFFFFFFF7777777777773333AAAA + 22223333333377777777FFFFFFFFFFFFFFFFFFFFFFFFFFFF777777773333AAAA 2222777777770000777700000000000000000000777777770000000000000000 - 2222333333337777777777778888FFFFFFFFFFFFFFFF7777777777773333AAAA + 22223333333377777777FFFFFFFFFFFFFFFFFFFFFFFFFFFF777777773333AAAA 2222777777770000777700000000000000000000777777770000000000000000 - 2222333333337777777777778888FFFFFFFFFFFFFFFF7777777777773333AAAA + 22223333333377777777FFFFFFFFFFFFFFFFFFFFFFFFFFFF777777773333AAAA 2222777777770000777700000000000000000000777777770000000000000000 - 2222AAAA33337777777777778888FFFFFFFFFFFFFFFF7777777777773333AAAA + 2222AAAA33337777FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF77773333AAAA 2222777777770000888888888888777700000000000077774444000000000000 - 2222AAAA33337777777777778888FFFFFFFFFFFFFFFF7777777777773333AAAA + 2222AAAA33337777FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF77773333AAAA 2222777777770000888888888888777700000000000077774444000000000000 - 2222AAAA33337777777777778888FFFFFFFFFFFFFFFF7777777777773333AAAA + 2222AAAA33337777FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF77773333AAAA 2222777777770000888888888888777700000000000077774444000000000000 - 2222AAAA33337777777777778888FFFFFFFFFFFFFFFF7777777777773333AAAA + 2222AAAA33337777FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF77773333AAAA 2222777777770000888888888888777700000000000077774444000000000000 - 2222AAAA33337777777777778888FFFFFFFFFFFFFFFF7777777777777777AAAA + 2222AAAA7777FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7777AAAA 2222777777770000888888888888FFFFFFFF7777000000007777000000000000 - 2222AAAA33337777777777778888FFFFFFFFFFFFFFFF7777777777777777AAAA + 2222AAAA7777FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7777AAAA 2222777777770000888888888888FFFFFFFF7777000000007777000000000000 - 2222AAAA33337777777777778888FFFFFFFFFFFFFFFF7777777777777777AAAA + 2222AAAA7777FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7777AAAA 2222777777770000888888888888FFFFFFFF7777000000007777000000000000 - 2222AAAA33337777777777778888FFFFFFFFFFFFFFFF7777777777777777AAAA + 2222AAAA7777FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7777AAAA 2222777777770000888888888888FFFFFFFF7777000000007777000000000000 - 2222AAAA8888888888888888FFFFFFFFFFFFFFFFFFFF88888888888888883333 + 2222AAAA8888FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF3333 2222777777770000888888888888FFFFFFFFFFFFFFFF00007777000000000000 - 2222AAAA8888888888888888FFFFFFFFFFFFFFFFFFFF88888888888888883333 + 2222AAAA8888FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF3333 2222777777770000888888888888FFFFFFFFFFFFFFFF00007777000000000000 - 2222AAAA8888888888888888FFFFFFFFFFFFFFFFFFFF88888888888888883333 + 2222AAAA8888FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF3333 2222777777770000888888888888FFFFFFFFFFFFFFFF00007777000000000000 - 2222AAAA8888888888888888FFFFFFFFFFFFFFFFFFFF88888888888888883333 + 2222AAAA8888FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF3333 2222777777770000888888888888FFFFFFFFFFFFFFFF00007777000000000000 - 222233338888FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF88887777 + 2222333377777777777788888888FFFFFFFFFFFFFFFF77777777777777777777 2222777777770000888888888888888888888888FFFF77777777000000000000 - 222233338888FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF88887777 + 2222333377777777777788888888FFFFFFFFFFFFFFFF77777777777777777777 2222777777770000888888888888888888888888FFFF77777777000000000000 - 222233338888FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF88887777 + 2222333377777777777788888888FFFFFFFFFFFFFFFF77777777777777777777 2222777777770000888888888888888888888888FFFF77777777000000000000 - 222233338888FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF88887777 + 2222333377777777777788888888FFFFFFFFFFFFFFFF77777777777777777777 2222777777770000888888888888888888888888FFFF77777777000000000000 - 2222777777778888FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF888877777777 + 2222777777778888888888888888FFFFFFFFFFFFFFFF88888888777777777777 22227777777700008888FFFF8888888888888888888877777777000000000000 - 2222777777778888FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF888877777777 + 2222777777778888888888888888FFFFFFFFFFFFFFFF88888888777777777777 22227777777700008888FFFF8888888888888888888877777777000000000000 - 2222777777778888FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF888877777777 + 2222777777778888888888888888FFFFFFFFFFFFFFFF88888888777777777777 22227777777700008888FFFF8888888888888888888877777777000000000000 - 2222777777778888FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF888877777777 + 2222777777778888888888888888FFFFFFFFFFFFFFFF88888888777777777777 22227777777700008888FFFF8888888888888888888877777777000000000000 - 22227777888888888888FFFFFFFFFFFFFFFFFFFFFFFFFFFF8888888888887777 + 2222777788888888888888888888FFFFFFFFFFFFFFFF88888888888888887777 222277777777000088888888888888888888FFFFFFFF77774444000000000000 - 22227777888888888888FFFFFFFFFFFFFFFFFFFFFFFFFFFF8888888888887777 + 2222777788888888888888888888FFFFFFFFFFFFFFFF88888888888888887777 222277777777000088888888888888888888FFFFFFFF77774444000000000000 - 22227777888888888888FFFFFFFFFFFFFFFFFFFFFFFFFFFF8888888888887777 + 2222777788888888888888888888FFFFFFFFFFFFFFFF88888888888888887777 222277777777000088888888888888888888FFFFFFFF77774444000000000000 - 22227777888888888888FFFFFFFFFFFFFFFFFFFFFFFFFFFF8888888888887777 + 2222777788888888888888888888FFFFFFFFFFFFFFFF88888888888888887777 222277777777000088888888888888888888FFFFFFFF77774444000000000000 - 222222228888888888888888FFFFFFFFFFFFFFFFFFFFFFFF8888888888887777 + 2222222288888888888888888888FFFFFFFFFFFFFFFF88888888888888887777 22228888777700008888FFFFFFFFFFFF88888888888877774444000000000000 - 222222228888888888888888FFFFFFFFFFFFFFFFFFFFFFFF8888888888887777 + 2222222288888888888888888888FFFFFFFFFFFFFFFF88888888888888887777 22228888777700008888FFFFFFFFFFFF88888888888877774444000000000000 - 222222228888888888888888FFFFFFFFFFFFFFFFFFFFFFFF8888888888887777 + 2222222288888888888888888888FFFFFFFFFFFFFFFF88888888888888887777 22228888777700008888FFFFFFFFFFFF88888888888877774444000000000000 - 222222228888888888888888FFFFFFFFFFFFFFFFFFFFFFFF8888888888887777 + 2222222288888888888888888888FFFFFFFFFFFFFFFF88888888888888887777 22228888777700008888FFFFFFFFFFFF88888888888877774444000000000000 0000222277778888888888888888FFFFFFFFFFFFFFFF88888888888888882222 77778888777700008888FFFFFFFFFFFF88888888888877774444000000000000 @@ -2302,21 +2326,21 @@ object frmEasyPlateServerMain: TfrmEasyPlateServerMain 77778888777700008888FFFFFFFFFFFF88888888888877774444000000000000 0000222277778888888888888888FFFFFFFFFFFFFFFF88888888888888882222 77778888777700008888FFFFFFFFFFFF88888888888877774444000000000000 - 0000222222228888888888888888FFFFFFFFFFFF888888888888888822222222 + 000022222222888888888888FFFFFFFFFFFFFFFFFFFF88888888888822222222 77778888777700008888FFFFFFFFFFFFFFFF8888888888884444000000000000 - 0000222222228888888888888888FFFFFFFFFFFF888888888888888822222222 + 000022222222888888888888FFFFFFFFFFFFFFFFFFFF88888888888822222222 77778888777700008888FFFFFFFFFFFFFFFF8888888888884444000000000000 - 0000222222228888888888888888FFFFFFFFFFFF888888888888888822222222 + 000022222222888888888888FFFFFFFFFFFFFFFFFFFF88888888888822222222 77778888777700008888FFFFFFFFFFFFFFFF8888888888884444000000000000 - 0000222222228888888888888888FFFFFFFFFFFF888888888888888822222222 + 000022222222888888888888FFFFFFFFFFFFFFFFFFFF88888888888822222222 77778888777700008888FFFFFFFFFFFFFFFF8888888888884444000000000000 - 00000000222222228888888888888888FFFF8888888888888888222222227777 + 0000000022222222888888888888888888888888888888888888222222227777 7777888877770000FFFFFFFFFFFFFFFF88888888888888884444444400000000 - 00000000222222228888888888888888FFFF8888888888888888222222227777 + 0000000022222222888888888888888888888888888888888888222222227777 7777888877770000FFFFFFFFFFFFFFFF88888888888888884444444400000000 - 00000000222222228888888888888888FFFF8888888888888888222222227777 + 0000000022222222888888888888888888888888888888888888222222227777 7777888877770000FFFFFFFFFFFFFFFF88888888888888884444444400000000 - 00000000222222228888888888888888FFFF8888888888888888222222227777 + 0000000022222222888888888888888888888888888888888888222222227777 7777888877770000FFFFFFFFFFFFFFFF88888888888888884444444400000000 0000000000000000222222227777888888888888777777772222777777777777 7777888877770000FFFFFFFFFFFFFFFFFFFFFFFFFFFF88884444777700000000 diff --git a/Src/Server/untEasyPlateServerMain.pas b/Src/Server/untEasyPlateServerMain.pas index fcf06b0..074e0e3 100644 --- a/Src/Server/untEasyPlateServerMain.pas +++ b/Src/Server/untEasyPlateServerMain.pas @@ -37,6 +37,7 @@ interface EApplicationName = 'EasyPlate'; EAlreadyRunning = 'ϵͳѴеķʵ,벻Ҫظ!'; ESQueryDisconnect = 'Ͽͻ,¿ͻ쳣˳,ǷڶϿ?'; + ESErrClose = 'пͻ, Ƿ˳?'; type TfrmEasyPlateServerMain = class(TForm) dkpMain: TEasyDockPanel; @@ -92,6 +93,13 @@ TfrmEasyPlateServerMain = class(TForm) EasyToolBarSeparator1: TEasyToolBarSeparator; EasyToolBarSeparator2: TEasyToolBarSeparator; EasyToolBarButton4: TEasyToolBarButton; + N6: TMenuItem; + H1: TMenuItem; + R1: TMenuItem; + N10: TMenuItem; + N11: TMenuItem; + N12: TMenuItem; + N13: TMenuItem; procedure FormCreate(Sender: TObject); procedure N5Click(Sender: TObject); procedure ApplyActionExecute(Sender: TObject); @@ -111,6 +119,8 @@ TfrmEasyPlateServerMain = class(TForm) procedure mmExecLogChange(Sender: TObject); procedure EasyToolBarButton3Click(Sender: TObject); procedure EasyToolBarButton4Click(Sender: TObject); + procedure N12Click(Sender: TObject); + procedure N13Click(Sender: TObject); private { Private declarations } FMaxClientCount: Integer; @@ -555,6 +565,7 @@ procedure TSocketDispatcherThread.ClientExecute; while PeekMessage(msg, 0, 0, 0, PM_REMOVE) do DispatchMessage(msg); WAIT_TIMEOUT: + //Զ˳ if (FTimeout > 0) and ((Now - FLastActivity) > FTimeout) then FTransport.Connected := False; end; @@ -666,7 +677,7 @@ procedure TfrmEasyPlateServerMain.SetItemIndex(Value: Integer); procedure TfrmEasyPlateServerMain.N5Click(Sender: TObject); begin - frmEasyPlateServerMain.WindowState := wsMaximized; + ServerTrayIcon.ShowMainForm; end; procedure TfrmEasyPlateServerMain.Initialize(FromService: Boolean); @@ -707,7 +718,9 @@ procedure TfrmEasyPlateServerMain.ApplyActionExecute(Sender: TObject); with TSocketDispatcher(SelectedSocket) do begin if Socket.ActiveConnections > 0 then - if MessageDlg(SErrChangeSettings, mtConfirmation, [mbYes, mbNo], 0) = idNo then + if Forms.Application.MessageBox(PChar(SErrChangeSettings), PChar('ʾ'), MB_OKCANCEL + + MB_ICONQUESTION) = IDCANCEL then +// if MessageDlg(SErrChangeSettings, mtConfirmation, [mbYes, mbNo], 0) = idNo then Exit; Close; Port := StrToInt(PortNo.Text); @@ -737,7 +750,9 @@ procedure TfrmEasyPlateServerMain.DisconnectActionExecute(Sender: TObject); var i: Integer; begin - if MessageDlg(ESQueryDisconnect, mtConfirmation, [mbYes, mbNo], 0) = mrNo then + if Forms.Application.MessageBox(PChar(ESQueryDisconnect), PChar('ʾ'), MB_OKCANCEL + + MB_ICONQUESTION) = IDCANCEL then +// if MessageDlg(ESQueryDisconnect, mtConfirmation, [mbYes, mbNo], 0) = mrNo then Exit; with SelectedSocket.Socket do begin @@ -838,18 +853,29 @@ procedure TfrmEasyPlateServerMain.FormDestroy(Sender: TObject); procedure TfrmEasyPlateServerMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean); +var + Factory: IClassFactory; begin try CanClose := False; - if ApplyAction.Enabled then ApplyAction.Execute; - if FClosing and (not FFromService) and (ConnectionList.Items.Count > 0) then + //EXEӦó˳ + if ConnectionList.Items.Count > 0 then begin - FClosing := False; - if MessageDlg(SErrClose, mtConfirmation, [mbYes, mbNo], 0) <> idYes then - Exit; + if Forms.Application.MessageBox(PChar(ESErrClose), PChar('ʾ'), MB_OKCANCEL + + MB_ICONQUESTION) = IDCANCEL then + begin + end else + begin + //رշʱʾCOMϢ + CoGetClassObject(StringToGUID('{4F1AC7AF-01E3-46AC-BB37-7C11C2D3B5E3}'), + CLSCTX_SERVER, nil, IClassFactory, Factory); + Factory.LockServer(False); + if ApplyAction.Enabled then + ApplyAction.Execute; + WriteSettings; + CanClose := True; + end; end; - WriteSettings; - CanClose := True; finally end; end; @@ -993,7 +1019,7 @@ procedure TfrmEasyPlateServerMain.RefreshTableCache; end; ACds.Next; end; - MessageDlg('³ɹ!', mtInformation, [mbOK], 0); + Forms.Application.MessageBox('³ɹ!', '', MB_OK + MB_ICONINFORMATION); finally ACds.Free; Screen.Cursor := crDefault; @@ -1022,4 +1048,14 @@ procedure TfrmEasyPlateServerMain.RDMServerPoolerCreate(var msg: TMessage); mmExecLog.Lines.Add('IRDM New!'); end; +procedure TfrmEasyPlateServerMain.N12Click(Sender: TObject); +begin + ServerTrayIcon.HideMainForm; +end; + +procedure TfrmEasyPlateServerMain.N13Click(Sender: TObject); +begin + Close; +end; + end. diff --git a/bin/ConnectString.dll b/bin/ConnectString.dll index f4d05dc..06dc56e 100644 Binary files a/bin/ConnectString.dll and b/bin/ConnectString.dll differ diff --git a/bin/EasyPlateMain.exe b/bin/EasyPlateMain.exe index e3a1d7f..55d57a6 100644 Binary files a/bin/EasyPlateMain.exe and b/bin/EasyPlateMain.exe differ diff --git a/bin/pkEasyDBConnection.bpl b/bin/pkEasyDBConnection.bpl index bab23a3..0e5bc7e 100644 Binary files a/bin/pkEasyDBConnection.bpl and b/bin/pkEasyDBConnection.bpl differ diff --git a/bin/pkEasyPlateBaseForm.bpl b/bin/pkEasyPlateBaseForm.bpl index b853152..8d7ae47 100644 Binary files a/bin/pkEasyPlateBaseForm.bpl and b/bin/pkEasyPlateBaseForm.bpl differ diff --git a/bin/pkEasyUtilClasses.bpl b/bin/pkEasyUtilClasses.bpl index 75935df..2421248 100644 Binary files a/bin/pkEasyUtilClasses.bpl and b/bin/pkEasyUtilClasses.bpl differ diff --git a/bin/pkEasyUtilFunction.bpl b/bin/pkEasyUtilFunction.bpl index d256a96..0fad00e 100644 Binary files a/bin/pkEasyUtilFunction.bpl and b/bin/pkEasyUtilFunction.bpl differ diff --git a/bin/pkEasyUtilRWConfig.bpl b/bin/pkEasyUtilRWConfig.bpl index 65d489a..b157fa3 100644 Binary files a/bin/pkEasyUtilRWConfig.bpl and b/bin/pkEasyUtilRWConfig.bpl differ diff --git a/bin/plugins/dfm/puUnit.dfm b/bin/plugins/dfm/puUnit.dfm index f91dd6f..d49963e 100644 --- a/bin/plugins/dfm/puUnit.dfm +++ b/bin/plugins/dfm/puUnit.dfm @@ -1,8 +1,9 @@ object Form1_1_1_1: TForm - Left = 267 - Top = 184 + Left = 268 + Top = 185 Width = 870 - Height = 188 + Height = 555 + ActiveControl = EasyDevDBTextEdit2 Caption = #35745#37327#21333#20301#22522#26412#20449#24687 Color = clBtnFace Font.Charset = DEFAULT_CHARSET @@ -121,4 +122,224 @@ object Form1_1_1_1: TForm LabelSpacing = 3 Width = 121 end + object EasyStringGrid1: TEasyStringGrid + Left = 35 + Top = 160 + Width = 488 + Height = 90 + Cursor = crDefault + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected] + ParentFont = False + ScrollBars = ssBoth + TabOrder = 9 + DragDropSettings.ShowCells = False + ActiveCellFont.Charset = DEFAULT_CHARSET + ActiveCellFont.Color = clWindowText + ActiveCellFont.Height = -11 + ActiveCellFont.Name = 'Tahoma' + ActiveCellFont.Style = [fsBold] + Filter = <> + FixedRowHeight = 22 + FixedFont.Charset = DEFAULT_CHARSET + FixedFont.Color = clWindowText + FixedFont.Height = -11 + FixedFont.Name = 'Tahoma' + FixedFont.Style = [fsBold] + FloatFormat = '%.2f' + PrintSettings.DateFormat = 'dd/mm/yyyy' + PrintSettings.Font.Charset = DEFAULT_CHARSET + PrintSettings.Font.Color = clWindowText + PrintSettings.Font.Height = -11 + PrintSettings.Font.Name = 'MS Sans Serif' + PrintSettings.Font.Style = [] + PrintSettings.FixedFont.Charset = DEFAULT_CHARSET + PrintSettings.FixedFont.Color = clWindowText + PrintSettings.FixedFont.Height = -11 + PrintSettings.FixedFont.Name = 'MS Sans Serif' + PrintSettings.FixedFont.Style = [] + PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET + PrintSettings.HeaderFont.Color = clWindowText + PrintSettings.HeaderFont.Height = -11 + PrintSettings.HeaderFont.Name = 'MS Sans Serif' + PrintSettings.HeaderFont.Style = [] + PrintSettings.FooterFont.Charset = DEFAULT_CHARSET + PrintSettings.FooterFont.Color = clWindowText + PrintSettings.FooterFont.Height = -11 + PrintSettings.FooterFont.Name = 'MS Sans Serif' + PrintSettings.FooterFont.Style = [] + PrintSettings.PageNumSep = '/' + ScrollWidth = 16 + SearchFooter.FindNextCaption = 'Find &next' + SearchFooter.FindPrevCaption = 'Find &previous' + SearchFooter.Font.Charset = DEFAULT_CHARSET + SearchFooter.Font.Color = clWindowText + SearchFooter.Font.Height = -11 + SearchFooter.Font.Name = 'MS Sans Serif' + SearchFooter.Font.Style = [] + SearchFooter.HighLightCaption = 'Highlight' + SearchFooter.HintClose = 'Close' + SearchFooter.HintFindNext = 'Find next occurence' + SearchFooter.HintFindPrev = 'Find previous occurence' + SearchFooter.HintHighlight = 'Highlight occurences' + SearchFooter.MatchCaseCaption = 'Match case' + end + object EasyDBGrid1: TEasyDBGrid + Left = 35 + Top = 265 + Width = 700 + Height = 194 + Cursor = crDefault + ColCount = 2 + RowCount = 2 + FixedRows = 1 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected] + ParentFont = False + ScrollBars = ssBoth + TabOrder = 10 + DragDropSettings.ShowCells = False + ActiveCellFont.Charset = DEFAULT_CHARSET + ActiveCellFont.Color = clWindowText + ActiveCellFont.Height = -11 + ActiveCellFont.Name = 'Tahoma' + ActiveCellFont.Style = [fsBold] + ControlLook.FixedGradientFrom = clWhite + ControlLook.FixedGradientTo = clBtnFace + Filter = <> + FixedColWidth = 20 + FixedRowHeight = 22 + FixedFont.Charset = DEFAULT_CHARSET + FixedFont.Color = clWindowText + FixedFont.Height = -11 + FixedFont.Name = 'Tahoma' + FixedFont.Style = [fsBold] + FloatFormat = '%.2f' + Look = glXP + PrintSettings.DateFormat = 'dd/mm/yyyy' + PrintSettings.Font.Charset = DEFAULT_CHARSET + PrintSettings.Font.Color = clWindowText + PrintSettings.Font.Height = -11 + PrintSettings.Font.Name = 'MS Sans Serif' + PrintSettings.Font.Style = [] + PrintSettings.FixedFont.Charset = DEFAULT_CHARSET + PrintSettings.FixedFont.Color = clWindowText + PrintSettings.FixedFont.Height = -11 + PrintSettings.FixedFont.Name = 'MS Sans Serif' + PrintSettings.FixedFont.Style = [] + PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET + PrintSettings.HeaderFont.Color = clWindowText + PrintSettings.HeaderFont.Height = -11 + PrintSettings.HeaderFont.Name = 'MS Sans Serif' + PrintSettings.HeaderFont.Style = [] + PrintSettings.FooterFont.Charset = DEFAULT_CHARSET + PrintSettings.FooterFont.Color = clWindowText + PrintSettings.FooterFont.Height = -11 + PrintSettings.FooterFont.Name = 'MS Sans Serif' + PrintSettings.FooterFont.Style = [] + PrintSettings.PageNumSep = '/' + ScrollWidth = 16 + SearchFooter.FindNextCaption = 'Find &next' + SearchFooter.FindPrevCaption = 'Find &previous' + SearchFooter.Font.Charset = DEFAULT_CHARSET + SearchFooter.Font.Color = clWindowText + SearchFooter.Font.Height = -11 + SearchFooter.Font.Name = 'MS Sans Serif' + SearchFooter.Font.Style = [] + SearchFooter.HighLightCaption = 'Highlight' + SearchFooter.HintClose = 'Close' + SearchFooter.HintFindNext = 'Find next occurence' + SearchFooter.HintFindPrev = 'Find previous occurence' + SearchFooter.HintHighlight = 'Highlight occurences' + SearchFooter.MatchCaseCaption = 'Match case' + AutoCreateColumns = True + AutoRemoveColumns = True + Columns = < + item + Borders = [] + BorderPen.Color = clSilver + CheckFalse = 'N' + CheckTrue = 'Y' + Color = clWindow + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + HeaderFont.Charset = DEFAULT_CHARSET + HeaderFont.Color = clWindowText + HeaderFont.Height = -11 + HeaderFont.Name = 'MS Sans Serif' + HeaderFont.Style = [] + PrintBorders = [cbTop, cbLeft, cbRight, cbBottom] + PrintFont.Charset = DEFAULT_CHARSET + PrintFont.Color = clWindowText + PrintFont.Height = -11 + PrintFont.Name = 'MS Sans Serif' + PrintFont.Style = [] + Width = 20 + end + item + Borders = [] + BorderPen.Color = clSilver + CheckFalse = 'N' + CheckTrue = 'Y' + Color = clWindow + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + HeaderFont.Charset = DEFAULT_CHARSET + HeaderFont.Color = clWindowText + HeaderFont.Height = -11 + HeaderFont.Name = 'MS Sans Serif' + HeaderFont.Style = [] + PrintBorders = [cbTop, cbLeft, cbRight, cbBottom] + PrintFont.Charset = DEFAULT_CHARSET + PrintFont.Color = clWindowText + PrintFont.Height = -11 + PrintFont.Name = 'MS Sans Serif' + PrintFont.Style = [] + Width = 64 + end> + InvalidPicture.Data = { + 055449636F6E0000010001002020040000000000E80200001600000028000000 + 2000000040000000010004000000000000020000000000000000000000000000 + 0000000000000000000080000080000000808000800000008000800080800000 + 80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000 + FFFFFF0000000000000000000000000000000000000000000001111111100000 + 0000000000000000011111111111100000000000000000011111111111111110 + 0000000000000111111111111111111110000000000011111111111111111111 + 1100000000011111111111111111111111100000001111117711111111117111 + 1110000000111111FF7111111117FF111111000001111118FFF91111117FFFF1 + 1111100001111178FFFF711117FFFFF711111000911111178FFFF9117FFFF871 + 111110001111199178FFFF97FFFF87111111110011119999178FFFFFFFFF7191 + 11111100111999999178FFFFFFF7199911111100119999999997FFFFFF899999 + 91111100199999999997FFFFFF9999999911110099999999999FFFFFFFF99999 + 999111009999999999FFFFFFFFFF999999911100999999999FFFFF778FFFF999 + 99911100999999998FFF879978FFFF999999910099999978FFF87999978FFFF7 + 9999910009999978FF8799999978FF8799999000099999978879999999978879 + 9999100000999999779999999999779999990000009999977799999999999999 + 9991000000099997888879999999999999100000000099978888888888779999 + 9900000000000999788888888887999990000000000000999788888888799991 + 0000000000000000999788888799991000000000000000000099999999999000 + 00000000FF8000FFFF00007FFE00001FF800000FF0000007F0000007E0000003 + C0000001C0000001800000018000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000180000001 + 80000003C0000003C0000007E000000FF000001FF800003FFC0000FFFF0001FF + FFC007FF} + ShowUnicode = False + ColWidths = ( + 20 + 64) + end end diff --git a/binServer/ConnectString.dll b/binServer/ConnectString.dll new file mode 100644 index 0000000..6e0b7e6 Binary files /dev/null and b/binServer/ConnectString.dll differ diff --git a/binServer/EasyPlateServer.exe b/binServer/EasyPlateServer.exe index a1d27e4..5b79509 100644 Binary files a/binServer/EasyPlateServer.exe and b/binServer/EasyPlateServer.exe differ diff --git "a/doc/\346\212\200\346\234\257\346\226\207\346\241\243/TSocketConnection\346\211\200\345\234\250\347\252\227\344\275\223\345\275\223\344\270\255\346\213\246\346\210\252THREAD_EXCEPTION.txt" "b/doc/\346\212\200\346\234\257\346\226\207\346\241\243/TSocketConnection\346\211\200\345\234\250\347\252\227\344\275\223\345\275\223\344\270\255\346\213\246\346\210\252THREAD_EXCEPTION.txt" new file mode 100644 index 0000000..48cd3fc --- /dev/null +++ "b/doc/\346\212\200\346\234\257\346\226\207\346\241\243/TSocketConnection\346\211\200\345\234\250\347\252\227\344\275\223\345\275\223\344\270\255\346\213\246\346\210\252THREAD_EXCEPTION.txt" @@ -0,0 +1,18 @@ +Windows socket error: Զǿȹرһе. 10054 On API 'recv' 쳣ʲô? + +(E is ESocketConnectionError) or (E is ESocketError) + +˭ܸʲô? + +쳣ESocketError,TSocketConnectionڴ嵱THREAD_EXCEPTION.ҲͨApplication.OnMessageй. + +OK + +procedure TfmLogin.ApplicationEvents1Exception(Sender: TObject; +E: Exception); +begin +if E.ClassType.ClassName = 'ESocketConnectionError' then +showmessage(E.ClassType.ClassName) +else +raise E; +end; diff --git "a/doc/\346\212\200\346\234\257\346\226\207\346\241\243/\344\270\200\347\247\215\345\244\204\347\220\206\357\274\232COM Server Warning \347\232\204\346\226\271\346\263\225.txt" "b/doc/\346\212\200\346\234\257\346\226\207\346\241\243/\344\270\200\347\247\215\345\244\204\347\220\206\357\274\232COM Server Warning \347\232\204\346\226\271\346\263\225.txt" new file mode 100644 index 0000000..51daac8 --- /dev/null +++ "b/doc/\346\212\200\346\234\257\346\226\207\346\241\243/\344\270\200\347\247\215\345\244\204\347\220\206\357\274\232COM Server Warning \347\232\204\346\226\271\346\263\225.txt" @@ -0,0 +1,29 @@ +ʱӦComʱ˳ǰһ¾Ϣ + + + +--------------------------- +COM Server Warning +--------------------------- +There are still active COM objects in this application. One or more clients may have references to these objects, so manually closing this application may cause those client application(s) to fail. + + + +Are you sure you want to close this application? +--------------------------- +(Y) (N) +--------------------------- + + + +˳֮ǰͿˣ + +var Factory: IClassFactory; + +begin + + CoGetClassObject(<ʹõcomGUID>, CLSCTX_SERVER, nil, IClassFactory, Factory); + + Factory.LockServer(False); + +end