Skip to content

Commit

Permalink
yangyxd
Browse files Browse the repository at this point in the history
  • Loading branch information
@yangyxd
yangyxd committed Sep 6, 2015
0 parents commit 4774213
Show file tree
Hide file tree
Showing 119 changed files with 50,190 additions and 0 deletions.
26 changes: 26 additions & 0 deletions ReadMe.txt
Original file line number Diff line number Diff line change
@@ -0,0 +1,26 @@
DIOCP �޸İ棨YangYxd)

Demo Դ����Ҫ��������������·����ָ�� Source\IOCP �ļ��м��ɡ�

�����
��лDIOCPԭ��������ң��Լ�DIOCP�ٷ�Ⱥ��QDAC�ٷ�Ⱥ���в��뱾��Ŀ���ԡ��޸ĵ����ѡ�

��ע�����
����ʹ���з����κ�BUG������������뼰ʱ��ϵ���ǣ���ʤ�м���
ʹ�ñ�Դ��ʱ����Ҫ���ге�һ�к�������ߺ���Ŀ�鲻Ϊ�˳е��κη������Ρ�
���������⸴�ơ����±�Դ�룬����ע����Դ���������������ض�λ�ñ�ע˵����

����ϵ���ǡ�
yangyxd QQ: 2514718952
�����QQ�� 185511468 (DIOCPԭ����)
DIOCP �ٷ�Ⱥ: 320641073
QDAC �ٷ�Ⱥ: 250530692

����վ��
yangyxd blog: http://www.cnblogs.com/yangyxd
DIOCP �ٷ���վ: http://www.diocp.org
QDAC �ٷ���վ: http://www.qdac.cc

��������
��л��ҵ�ʹ�úͲ��ԣ��������Ҫ�����ң�������ϵQQ 2514718952��

18 changes: 18 additions & 0 deletions demo/Iocp/CoderSvr/IocpCoderSvr.dpr
Original file line number Diff line number Diff line change
@@ -0,0 +1,18 @@
program IocpCoderSvr;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
uFrmSelRanage in 'uFrmSelRanage.pas' {FrmSelRanage},
uFMMonitor in 'uFMMonitor.pas' {FMMonitor: TFrame},
utils.buffer in '..\..\..\diocp\diocp-v5-master\source\utils.buffer.pas';

{$R *.res}

begin
ReportMemoryLeaksOnShutdown := True;
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
71 changes: 71 additions & 0 deletions demo/Iocp/CoderSvr/IocpCoderSvr.dproj
Original file line number Diff line number Diff line change
@@ -0,0 +1,71 @@
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{7c363023-ff73-41bb-9785-4b17fda36a5f}</ProjectGuid>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\..\bin\IocpCoderSvr.exe</DCC_DependencyCheckOutputName>
<MainSource>IocpCoderSvr.dpr</MainSource>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_Define>RELEASE</DCC_Define>
<DCC_UnitSearchPath>..\..\..\..\source;..\..\..\..\source\iocp;</DCC_UnitSearchPath>
<DCC_ResourcePath>..\..\..\..\source;..\..\..\..\source\iocp;</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\..\source;..\..\..\..\source\iocp;</DCC_ObjPath>
<DCC_IncludePath>..\..\..\..\source;..\..\..\..\source\iocp;</DCC_IncludePath>
<DCC_ExeOutput>..\..\..\..\bin</DCC_ExeOutput>
<DCC_DcuOutput>..\..\..\..\dcu</DCC_DcuOutput>
<DCC_ObjOutput>..\..\..\..\dcu</DCC_ObjOutput>
<DCC_HppOutput>..\..\..\..\dcu</DCC_HppOutput>
<DCC_BplOutput>..\..\..\..\bin</DCC_BplOutput>
<DCC_DcpOutput>..\..\..\..\dcu</DCC_DcpOutput>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_Define>DEBUG</DCC_Define>
<DCC_ExeOutput>..\..\..\bin</DCC_ExeOutput>
<DCC_DcuOutput>..\..\..\dcu</DCC_DcuOutput>
<DCC_ObjOutput>..\..\..\dcu</DCC_ObjOutput>
<DCC_HppOutput>..\..\..\dcu</DCC_HppOutput>
<DCC_BplOutput>..\..\..\bin</DCC_BplOutput>
<DCC_DcpOutput>..\..\..\dcu</DCC_DcpOutput>
<DCC_UnitSearchPath>..\..\..\source;..\..\..\source\iocp;E:\Users Folder\Documents\My Project\Delphi Project\YxdVCL;..\..\..\source\pngimage;..\..\..\source\zlibEx</DCC_UnitSearchPath>
<DCC_ResourcePath>..\..\..\source;..\..\..\source\iocp;E:\Users Folder\Documents\My Project\Delphi Project\YxdVCL;..\..\..\source\pngimage;..\..\..\source\zlibEx</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\source;..\..\..\source\iocp;E:\Users Folder\Documents\My Project\Delphi Project\YxdVCL;..\..\..\source\pngimage;..\..\..\source\zlibEx</DCC_ObjPath>
<DCC_IncludePath>..\..\..\source;..\..\..\source\iocp;E:\Users Folder\Documents\My Project\Delphi Project\YxdVCL;..\..\..\source\pngimage;..\..\..\source\zlibEx</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<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>
<Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">IocpCoderSvr.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="IocpCoderSvr.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\..\diocp\diocp-v5-master\source\utils.buffer.pas" />
<DCCReference Include="uFMMonitor.pas">
<Form>FMMonitor</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uFrmSelRanage.pas">
<Form>FrmSelRanage</Form>
</DCCReference>
<DCCReference Include="Unit1.pas">
<Form>Form1</Form>
</DCCReference>
<None Include="..\..\..\source\iocp\iocp.inc" />
</ItemGroup>
</Project>
Binary file added demo/Iocp/CoderSvr/IocpCoderSvr.res
Binary file not shown.
257 changes: 257 additions & 0 deletions demo/Iocp/CoderSvr/Unit1.dfm
Original file line number Diff line number Diff line change
@@ -0,0 +1,257 @@
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 443
ClientWidth = 811
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnDestroy = FormDestroy
DesignSize = (
811
443)
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 32
Width = 6
Height = 13
Caption = '0'
end
object edtPort: TEdit
Left = 9
Top = 7
Width = 121
Height = 21
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#20116#31508#36755#20837#27861
TabOrder = 0
Text = '9983'
end
object btnOpen: TButton
Left = 142
Top = 5
Width = 75
Height = 25
Caption = #24320#21551
TabOrder = 1
OnClick = btnOpenClick
end
object btnDisconectAll: TButton
Left = 223
Top = 5
Width = 113
Height = 25
Caption = #26029#24320#25152#26377
TabOrder = 2
OnClick = btnDisconectAllClick
end
object btnGetWorkerState: TButton
Left = 351
Top = 5
Width = 121
Height = 25
Caption = #33719#21462#32447#31243#24037#20316#29366#24577
TabOrder = 3
OnClick = btnGetWorkerStateClick
end
object btnFindContext: TButton
Left = 476
Top = 5
Width = 100
Height = 25
Caption = #27979#35797#26597#25214'Context'
TabOrder = 4
OnClick = btnFindContextClick
end
object btnPostWSAClose: TButton
Left = 578
Top = 5
Width = 103
Height = 25
Caption = #24322#27493#26029#24320
TabOrder = 5
OnClick = btnPostWSACloseClick
end
object btnReOpenTest: TButton
Left = 687
Top = 5
Width = 106
Height = 25
Caption = #24320#20851#27979#35797
TabOrder = 6
OnClick = btnReOpenTestClick
end
object pgcMain: TPageControl
Left = 0
Top = 48
Width = 811
Height = 395
ActivePage = TabSheet1
Align = alCustom
Anchors = [akLeft, akTop, akRight, akBottom]
TabOrder = 7
object TabSheet1: TTabSheet
Caption = #30417#25511#38754#26495
object pnlMonitor: TPanel
Left = 0
Top = 0
Width = 803
Height = 367
Align = alClient
BevelOuter = bvNone
TabOrder = 0
end
end
object TabSheet2: TTabSheet
Caption = #21457#36865#25968#25454
ImageIndex = 2
DesignSize = (
803
367)
object Memo1: TMemo
Left = 16
Top = 48
Width = 593
Height = 303
Anchors = [akLeft, akTop, akRight, akBottom]
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#20116#31508#36755#20837#27861
Lines.Strings = (
'0123456789')
ScrollBars = ssBoth
TabOrder = 0
end
object Button6: TButton
Left = 16
Top = 17
Width = 161
Height = 25
Caption = #26356#26032#35201#21457#36865#30340#25968#25454
TabOrder = 1
OnClick = Button6Click
end
object Button7: TButton
Left = 183
Top = 17
Width = 113
Height = 25
Caption = #21457#36865#19968#27425
TabOrder = 2
OnClick = Button7Click
end
object Button8: TButton
Left = 644
Top = 297
Width = 145
Height = 25
Anchors = [akRight, akBottom]
Caption = #36830#25509#21518#31561#24453#36386#38500
TabOrder = 3
OnClick = Button8Click
end
end
object tsLog: TTabSheet
Caption = #26085#24535
ImageIndex = 1
object mmoLog: TMemo
Left = 0
Top = 0
Width = 803
Height = 367
Align = alClient
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#20116#31508#36755#20837#27861
Lines.Strings = (
'mmoLog')
TabOrder = 0
end
end
end
object chkLogDetails: TCheckBox
Left = 142
Top = 36
Width = 97
Height = 17
Caption = #35760#24405#35814#32454#26085#24535
Checked = True
State = cbChecked
TabOrder = 8
end
object Button3: TButton
Left = 587
Top = 36
Width = 106
Height = 25
Caption = #21024#38500#31532#19968#20010
TabOrder = 9
OnClick = Button3Click
end
object Button2: TButton
Left = 376
Top = 36
Width = 100
Height = 25
Caption = #23458#25143#36830#25509
TabOrder = 10
OnClick = Button2Click
end
object Button1: TButton
Left = 478
Top = 36
Width = 103
Height = 25
Caption = '+1000'#36830#25509
TabOrder = 11
OnClick = Button1Click
end
object Edit1: TEdit
Left = 245
Top = 36
Width = 121
Height = 21
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#20116#31508#36755#20837#27861
TabOrder = 12
Text = '127.0.0.1'
end
object Button4: TButton
Left = 648
Top = 400
Width = 145
Height = 25
Anchors = [akRight, akBottom]
Caption = 'IOCP Stream '#27979#35797
TabOrder = 13
OnClick = Button4Click
end
object Button5: TButton
Left = 697
Top = 36
Width = 96
Height = 25
Caption = #21024#38500#20840#37096
TabOrder = 14
OnClick = Button5Click
end
object tmrReader: TTimer
OnTimer = tmrReaderTimer
Left = 440
Top = 48
end
object tmrTest: TTimer
Enabled = False
OnTimer = tmrTestTimer
Left = 672
Top = 128
end
object Timer1: TTimer
Interval = 100
OnTimer = Timer1Timer
Left = 672
Top = 168
end
end
Loading

0 comments on commit 4774213

Please sign in to comment.