Skip to content

Commit 4774213

Browse files
yangyxdyangyxd
committed
yangyxd
0 parents  commit 4774213

File tree

119 files changed

+50190
-0
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

119 files changed

+50190
-0
lines changed

‎ReadMe.txt‎

Lines changed: 26 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,26 @@
1+
DIOCP �޸İ棨YangYxd)
2+
3+
Demo Դ����Ҫ��������������·����ָ�� Source\IOCP �ļ��м��ɡ�
4+
5+
�����
6+
��лDIOCPԭ��������ң��Լ�DIOCP�ٷ�Ⱥ��QDAC�ٷ�Ⱥ���в��뱾��Ŀ���ԡ��޸ĵ����ѡ�
7+
8+
��ע�����
9+
����ʹ���з����κ�BUG������������뼰ʱ��ϵ���ǣ���ʤ�м���
10+
ʹ�ñ�Դ��ʱ����Ҫ���ге�һ�к�������ߺ���Ŀ�鲻Ϊ�˳е��κη������Ρ�
11+
���������⸴�ơ����±�Դ�룬����ע����Դ���������������ض�λ�ñ�ע˵����
12+
13+
����ϵ���ǡ�
14+
yangyxd QQ: 2514718952
15+
�����QQ�� 185511468 (DIOCPԭ����)
16+
DIOCP �ٷ�Ⱥ: 320641073
17+
QDAC �ٷ�Ⱥ: 250530692
18+
19+
����վ��
20+
yangyxd blog: http://www.cnblogs.com/yangyxd
21+
DIOCP �ٷ���վ: http://www.diocp.org
22+
QDAC �ٷ���վ: http://www.qdac.cc
23+
24+
��������
25+
��л��ҵ�ʹ�úͲ��ԣ��������Ҫ�����ң�������ϵQQ 2514718952��
26+

‎demo/Iocp/CoderSvr/IocpCoderSvr.dpr‎

Lines changed: 18 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,18 @@
1+
program IocpCoderSvr;
2+
3+
uses
4+
Forms,
5+
Unit1 in 'Unit1.pas' {Form1},
6+
uFrmSelRanage in 'uFrmSelRanage.pas' {FrmSelRanage},
7+
uFMMonitor in 'uFMMonitor.pas' {FMMonitor: TFrame},
8+
utils.buffer in '..\..\..\diocp\diocp-v5-master\source\utils.buffer.pas';
9+
10+
{$R *.res}
11+
12+
begin
13+
ReportMemoryLeaksOnShutdown := True;
14+
Application.Initialize;
15+
Application.MainFormOnTaskbar := True;
16+
Application.CreateForm(TForm1, Form1);
17+
Application.Run;
18+
end.

‎demo/Iocp/CoderSvr/IocpCoderSvr.dproj‎

Lines changed: 71 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,71 @@
1+
<?xml version="1.0" encoding="utf-8"?>
2+
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
3+
<PropertyGroup>
4+
<ProjectGuid>{7c363023-ff73-41bb-9785-4b17fda36a5f}</ProjectGuid>
5+
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
6+
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
7+
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
8+
<DCC_DependencyCheckOutputName>..\..\..\bin\IocpCoderSvr.exe</DCC_DependencyCheckOutputName>
9+
<MainSource>IocpCoderSvr.dpr</MainSource>
10+
</PropertyGroup>
11+
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
12+
<Version>7.0</Version>
13+
<DCC_DebugInformation>False</DCC_DebugInformation>
14+
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
15+
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
16+
<DCC_Define>RELEASE</DCC_Define>
17+
<DCC_UnitSearchPath>..\..\..\..\source;..\..\..\..\source\iocp;</DCC_UnitSearchPath>
18+
<DCC_ResourcePath>..\..\..\..\source;..\..\..\..\source\iocp;</DCC_ResourcePath>
19+
<DCC_ObjPath>..\..\..\..\source;..\..\..\..\source\iocp;</DCC_ObjPath>
20+
<DCC_IncludePath>..\..\..\..\source;..\..\..\..\source\iocp;</DCC_IncludePath>
21+
<DCC_ExeOutput>..\..\..\..\bin</DCC_ExeOutput>
22+
<DCC_DcuOutput>..\..\..\..\dcu</DCC_DcuOutput>
23+
<DCC_ObjOutput>..\..\..\..\dcu</DCC_ObjOutput>
24+
<DCC_HppOutput>..\..\..\..\dcu</DCC_HppOutput>
25+
<DCC_BplOutput>..\..\..\..\bin</DCC_BplOutput>
26+
<DCC_DcpOutput>..\..\..\..\dcu</DCC_DcpOutput>
27+
</PropertyGroup>
28+
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
29+
<Version>7.0</Version>
30+
<DCC_Define>DEBUG</DCC_Define>
31+
<DCC_ExeOutput>..\..\..\bin</DCC_ExeOutput>
32+
<DCC_DcuOutput>..\..\..\dcu</DCC_DcuOutput>
33+
<DCC_ObjOutput>..\..\..\dcu</DCC_ObjOutput>
34+
<DCC_HppOutput>..\..\..\dcu</DCC_HppOutput>
35+
<DCC_BplOutput>..\..\..\bin</DCC_BplOutput>
36+
<DCC_DcpOutput>..\..\..\dcu</DCC_DcpOutput>
37+
<DCC_UnitSearchPath>..\..\..\source;..\..\..\source\iocp;E:\Users Folder\Documents\My Project\Delphi Project\YxdVCL;..\..\..\source\pngimage;..\..\..\source\zlibEx</DCC_UnitSearchPath>
38+
<DCC_ResourcePath>..\..\..\source;..\..\..\source\iocp;E:\Users Folder\Documents\My Project\Delphi Project\YxdVCL;..\..\..\source\pngimage;..\..\..\source\zlibEx</DCC_ResourcePath>
39+
<DCC_ObjPath>..\..\..\source;..\..\..\source\iocp;E:\Users Folder\Documents\My Project\Delphi Project\YxdVCL;..\..\..\source\pngimage;..\..\..\source\zlibEx</DCC_ObjPath>
40+
<DCC_IncludePath>..\..\..\source;..\..\..\source\iocp;E:\Users Folder\Documents\My Project\Delphi Project\YxdVCL;..\..\..\source\pngimage;..\..\..\source\zlibEx</DCC_IncludePath>
41+
</PropertyGroup>
42+
<ProjectExtensions>
43+
<Borland.Personality>Delphi.Personality</Borland.Personality>
44+
<Borland.ProjectType />
45+
<BorlandProject>
46+
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">False</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">2052</VersionInfo><VersionInfo Name="CodePage">936</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
47+
<Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
48+
<Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
49+
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
50+
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
51+
</Excluded_Packages><Source><Source Name="MainSource">IocpCoderSvr.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
52+
</ProjectExtensions>
53+
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
54+
<ItemGroup>
55+
<DelphiCompile Include="IocpCoderSvr.dpr">
56+
<MainSource>MainSource</MainSource>
57+
</DelphiCompile>
58+
<DCCReference Include="..\..\..\diocp\diocp-v5-master\source\utils.buffer.pas" />
59+
<DCCReference Include="uFMMonitor.pas">
60+
<Form>FMMonitor</Form>
61+
<DesignClass>TFrame</DesignClass>
62+
</DCCReference>
63+
<DCCReference Include="uFrmSelRanage.pas">
64+
<Form>FrmSelRanage</Form>
65+
</DCCReference>
66+
<DCCReference Include="Unit1.pas">
67+
<Form>Form1</Form>
68+
</DCCReference>
69+
<None Include="..\..\..\source\iocp\iocp.inc" />
70+
</ItemGroup>
71+
</Project>

‎demo/Iocp/CoderSvr/IocpCoderSvr.res‎

5.16 KB
Binary file not shown.

‎demo/Iocp/CoderSvr/Unit1.dfm‎

Lines changed: 257 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,257 @@
1+
object Form1: TForm1
2+
Left = 0
3+
Top = 0
4+
Caption = 'Form1'
5+
ClientHeight = 443
6+
ClientWidth = 811
7+
Color = clBtnFace
8+
Font.Charset = DEFAULT_CHARSET
9+
Font.Color = clWindowText
10+
Font.Height = -11
11+
Font.Name = 'Tahoma'
12+
Font.Style = []
13+
OldCreateOrder = False
14+
OnCreate = FormCreate
15+
OnDestroy = FormDestroy
16+
DesignSize = (
17+
811
18+
443)
19+
PixelsPerInch = 96
20+
TextHeight = 13
21+
object Label1: TLabel
22+
Left = 8
23+
Top = 32
24+
Width = 6
25+
Height = 13
26+
Caption = '0'
27+
end
28+
object edtPort: TEdit
29+
Left = 9
30+
Top = 7
31+
Width = 121
32+
Height = 21
33+
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#20116#31508#36755#20837#27861
34+
TabOrder = 0
35+
Text = '9983'
36+
end
37+
object btnOpen: TButton
38+
Left = 142
39+
Top = 5
40+
Width = 75
41+
Height = 25
42+
Caption = #24320#21551
43+
TabOrder = 1
44+
OnClick = btnOpenClick
45+
end
46+
object btnDisconectAll: TButton
47+
Left = 223
48+
Top = 5
49+
Width = 113
50+
Height = 25
51+
Caption = #26029#24320#25152#26377
52+
TabOrder = 2
53+
OnClick = btnDisconectAllClick
54+
end
55+
object btnGetWorkerState: TButton
56+
Left = 351
57+
Top = 5
58+
Width = 121
59+
Height = 25
60+
Caption = #33719#21462#32447#31243#24037#20316#29366#24577
61+
TabOrder = 3
62+
OnClick = btnGetWorkerStateClick
63+
end
64+
object btnFindContext: TButton
65+
Left = 476
66+
Top = 5
67+
Width = 100
68+
Height = 25
69+
Caption = #27979#35797#26597#25214'Context'
70+
TabOrder = 4
71+
OnClick = btnFindContextClick
72+
end
73+
object btnPostWSAClose: TButton
74+
Left = 578
75+
Top = 5
76+
Width = 103
77+
Height = 25
78+
Caption = #24322#27493#26029#24320
79+
TabOrder = 5
80+
OnClick = btnPostWSACloseClick
81+
end
82+
object btnReOpenTest: TButton
83+
Left = 687
84+
Top = 5
85+
Width = 106
86+
Height = 25
87+
Caption = #24320#20851#27979#35797
88+
TabOrder = 6
89+
OnClick = btnReOpenTestClick
90+
end
91+
object pgcMain: TPageControl
92+
Left = 0
93+
Top = 48
94+
Width = 811
95+
Height = 395
96+
ActivePage = TabSheet1
97+
Align = alCustom
98+
Anchors = [akLeft, akTop, akRight, akBottom]
99+
TabOrder = 7
100+
object TabSheet1: TTabSheet
101+
Caption = #30417#25511#38754#26495
102+
object pnlMonitor: TPanel
103+
Left = 0
104+
Top = 0
105+
Width = 803
106+
Height = 367
107+
Align = alClient
108+
BevelOuter = bvNone
109+
TabOrder = 0
110+
end
111+
end
112+
object TabSheet2: TTabSheet
113+
Caption = #21457#36865#25968#25454
114+
ImageIndex = 2
115+
DesignSize = (
116+
803
117+
367)
118+
object Memo1: TMemo
119+
Left = 16
120+
Top = 48
121+
Width = 593
122+
Height = 303
123+
Anchors = [akLeft, akTop, akRight, akBottom]
124+
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#20116#31508#36755#20837#27861
125+
Lines.Strings = (
126+
'0123456789')
127+
ScrollBars = ssBoth
128+
TabOrder = 0
129+
end
130+
object Button6: TButton
131+
Left = 16
132+
Top = 17
133+
Width = 161
134+
Height = 25
135+
Caption = #26356#26032#35201#21457#36865#30340#25968#25454
136+
TabOrder = 1
137+
OnClick = Button6Click
138+
end
139+
object Button7: TButton
140+
Left = 183
141+
Top = 17
142+
Width = 113
143+
Height = 25
144+
Caption = #21457#36865#19968#27425
145+
TabOrder = 2
146+
OnClick = Button7Click
147+
end
148+
object Button8: TButton
149+
Left = 644
150+
Top = 297
151+
Width = 145
152+
Height = 25
153+
Anchors = [akRight, akBottom]
154+
Caption = #36830#25509#21518#31561#24453#36386#38500
155+
TabOrder = 3
156+
OnClick = Button8Click
157+
end
158+
end
159+
object tsLog: TTabSheet
160+
Caption = #26085#24535
161+
ImageIndex = 1
162+
object mmoLog: TMemo
163+
Left = 0
164+
Top = 0
165+
Width = 803
166+
Height = 367
167+
Align = alClient
168+
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#20116#31508#36755#20837#27861
169+
Lines.Strings = (
170+
'mmoLog')
171+
TabOrder = 0
172+
end
173+
end
174+
end
175+
object chkLogDetails: TCheckBox
176+
Left = 142
177+
Top = 36
178+
Width = 97
179+
Height = 17
180+
Caption = #35760#24405#35814#32454#26085#24535
181+
Checked = True
182+
State = cbChecked
183+
TabOrder = 8
184+
end
185+
object Button3: TButton
186+
Left = 587
187+
Top = 36
188+
Width = 106
189+
Height = 25
190+
Caption = #21024#38500#31532#19968#20010
191+
TabOrder = 9
192+
OnClick = Button3Click
193+
end
194+
object Button2: TButton
195+
Left = 376
196+
Top = 36
197+
Width = 100
198+
Height = 25
199+
Caption = #23458#25143#36830#25509
200+
TabOrder = 10
201+
OnClick = Button2Click
202+
end
203+
object Button1: TButton
204+
Left = 478
205+
Top = 36
206+
Width = 103
207+
Height = 25
208+
Caption = '+1000'#36830#25509
209+
TabOrder = 11
210+
OnClick = Button1Click
211+
end
212+
object Edit1: TEdit
213+
Left = 245
214+
Top = 36
215+
Width = 121
216+
Height = 21
217+
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#20116#31508#36755#20837#27861
218+
TabOrder = 12
219+
Text = '127.0.0.1'
220+
end
221+
object Button4: TButton
222+
Left = 648
223+
Top = 400
224+
Width = 145
225+
Height = 25
226+
Anchors = [akRight, akBottom]
227+
Caption = 'IOCP Stream '#27979#35797
228+
TabOrder = 13
229+
OnClick = Button4Click
230+
end
231+
object Button5: TButton
232+
Left = 697
233+
Top = 36
234+
Width = 96
235+
Height = 25
236+
Caption = #21024#38500#20840#37096
237+
TabOrder = 14
238+
OnClick = Button5Click
239+
end
240+
object tmrReader: TTimer
241+
OnTimer = tmrReaderTimer
242+
Left = 440
243+
Top = 48
244+
end
245+
object tmrTest: TTimer
246+
Enabled = False
247+
OnTimer = tmrTestTimer
248+
Left = 672
249+
Top = 128
250+
end
251+
object Timer1: TTimer
252+
Interval = 100
253+
OnTimer = Timer1Timer
254+
Left = 672
255+
Top = 168
256+
end
257+
end

0 commit comments

Comments
 (0)