• R/O
  • SSH
  • HTTPS

akdf: Commit


Commit MetaInfo

Revision563 (tree)
Time2022-01-10 07:36:27
Authorderekwildstar

Log Message

Pacotes para todos os Delphis
Corrigido bug em Packages Creator
Arquivos do WinSock adicionados, bem como uma função para executar um envio de mensagem síncrona

Change Summary

Incremental Difference

--- trunk/dtp/Experts/prj/Delphi 26 (Delphi Rio)/KRKExperts.dproj (revision 562)
+++ trunk/dtp/Experts/prj/Delphi 26 (Delphi Rio)/KRKExperts.dproj (revision 563)
@@ -5,7 +5,7 @@
55 <FrameworkType>VCL</FrameworkType>
66 <MainSource>KRKExperts.dpr</MainSource>
77 <Base>True</Base>
8- <Config Condition="'$(Config)'==''">Debug</Config>
8+ <Config Condition="'$(Config)'==''">Release</Config>
99 <Platform Condition="'$(Platform)'==''">Win32</Platform>
1010 <TargetedPlatforms>1</TargetedPlatforms>
1111 <AppType>Library</AppType>
--- trunk/dtp/Experts/src/PackagesCreator/KX.PackagesCreator.Utilities.pas (revision 562)
+++ trunk/dtp/Experts/src/PackagesCreator/KX.PackagesCreator.Utilities.pas (revision 563)
@@ -92,7 +92,7 @@
9292 EffectiveOptions: TEffectiveOptions;
9393 end;
9494
95-function SequentialVersion: ShortInt;
95+function SequentialVersion: SmallInt;
9696 function DelphiName(ASequentialVersion: ShortInt): String;
9797 procedure CreateDPK(const ADPKTemplate: String; ACreateFileArguments: TCreateFileArguments);
9898 procedure CreateDPROJ(const ABDSPROJTemplate: String; ACreateFileArguments: TCreateFileArguments);
@@ -574,7 +574,7 @@
574574 end;
575575
576576 {$HINTS OFF}
577-function SequentialVersion: ShortInt;
577+function SequentialVersion: SmallInt;
578578 begin
579579 Result := -1;
580580
--- trunk/dtp/Experts/src/PackagesCreator/KX.PackagesCreator.pas (revision 562)
+++ trunk/dtp/Experts/src/PackagesCreator/KX.PackagesCreator.pas (revision 563)
@@ -488,8 +488,8 @@
488488
489489 procedure TFormPackagesCreator.FormShow(Sender: TObject);
490490 var
491- i: ShortInt;
492- SV: ShortInt;
491+ i: SmallInt;
492+ SV: SmallInt;
493493 XMLProject: IXMLDocument;
494494 XMLNode: IXMLNode;
495495 begin
@@ -514,6 +514,7 @@
514514 CBBXPlatform.Clear;
515515 for i := 0 to Pred(XMLNode.ChildNodes.Count) do
516516 CBBXPlatform.Items.Add(XMLNode.ChildNodes.Get(i).Attributes['value']);
517+
517518 XMLNode := SelectXMLNode(XMLProject.DocumentElement,'//*[name()="ItemGroup"]');
518519
519520 CBBXConfiguration.Clear;
@@ -521,7 +522,6 @@
521522 if XMLNode.ChildNodes.Get(i).NodeName = 'BuildConfiguration' then
522523 CBBXConfiguration.AddItem(XMLNode.ChildNodes.Get(i).Attributes['Include'],TBuildConfiguration.Create(XMLNode.ChildNodes.Get(i).ChildNodes['Key'].Text));
523524
524-
525525 GetDefaultDprojConfiguration(XMLProject,FCurrentPlatform,FCurrentBuildConfiguration);
526526 CBBXPlatform.ItemIndex := CBBXPlatform.Items.IndexOf(FCurrentPlatform);
527527 CBBXConfiguration.ItemIndex := CBBXConfiguration.Items.IndexOf(FCurrentBuildConfiguration);
--- trunk/rtp/prj/Delphi 10 (Delphi 2006)/KRKLib.bdsproj (revision 562)
+++ trunk/rtp/prj/Delphi 10 (Delphi 2006)/KRKLib.bdsproj (revision 563)
@@ -1,173 +1,30 @@
1-<?xml version="1.0" encoding="utf-8"?>
1+<?xml version="1.0" encoding="utf-8"?>
22 <BorlandProject>
3- <PersonalityInfo>
4- <Option>
5- <Option Name="Personality">Delphi.Personality</Option>
6- <Option Name="GUID">{F2D7E3C5-72E4-43CC-86BA-C8FADE4F2642}</Option>
7- </Option>
8- </PersonalityInfo>
9- <Delphi.Personality>
10- <Source>
11- <Source Name="MainSource">KRKLib.dpk</Source>
12- </Source>
13- <Compiler>
14- <Compiler Name="UnitAliases"></Compiler>
15- <Compiler Name="NamespacePrefix"></Compiler>
16- <Compiler Name="DefaultNamespace"></Compiler>
17- <Compiler Name="A">8</Compiler>
18- <Compiler Name="B">0</Compiler>
19- <Compiler Name="C">1</Compiler>
20- <Compiler Name="D">1</Compiler>
21- <Compiler Name="E">0</Compiler>
22- <Compiler Name="F">0</Compiler>
23- <Compiler Name="G">1</Compiler>
24- <Compiler Name="H">1</Compiler>
25- <Compiler Name="I">1</Compiler>
26- <Compiler Name="J">0</Compiler>
27- <Compiler Name="K">0</Compiler>
28- <Compiler Name="L">1</Compiler>
29- <Compiler Name="M">0</Compiler>
30- <Compiler Name="N">1</Compiler>
31- <Compiler Name="O">1</Compiler>
32- <Compiler Name="P">1</Compiler>
33- <Compiler Name="Q">0</Compiler>
34- <Compiler Name="R">0</Compiler>
35- <Compiler Name="S">0</Compiler>
36- <Compiler Name="T">0</Compiler>
37- <Compiler Name="U">0</Compiler>
38- <Compiler Name="V">1</Compiler>
39- <Compiler Name="W">0</Compiler>
40- <Compiler Name="X">1</Compiler>
41- <Compiler Name="Y">1</Compiler>
42- <Compiler Name="Z">1</Compiler>
43- <Compiler Name="ShowHints">True</Compiler>
44- <Compiler Name="ShowWarnings">True</Compiler>
45- <Compiler Name="GenerateDocumentation">False</Compiler>
46- <Compiler Name="SymbolDeprecated">True</Compiler>
47- <Compiler Name="SymbolLibrary">True</Compiler>
48- <Compiler Name="SymbolPlatform">True</Compiler>
49- <Compiler Name="SymbolExperimental">True</Compiler>
50- <Compiler Name="UnitLibrary">True</Compiler>
51- <Compiler Name="UnitPlatform">True</Compiler>
52- <Compiler Name="UnitDeprecated">True</Compiler>
53- <Compiler Name="UnitExperimental">True</Compiler>
54- <Compiler Name="HResultCompat">True</Compiler>
55- <Compiler Name="HidingMember">True</Compiler>
56- <Compiler Name="HiddenVirtual">True</Compiler>
57- <Compiler Name="Garbage">True</Compiler>
58- <Compiler Name="BoundsError">True</Compiler>
59- <Compiler Name="ZeroNilCompat">True</Compiler>
60- <Compiler Name="StringConstTruncated">True</Compiler>
61- <Compiler Name="ForLoopVarVarPar">True</Compiler>
62- <Compiler Name="TypedConstVarPar">True</Compiler>
63- <Compiler Name="AsgToTypedConst">True</Compiler>
64- <Compiler Name="CaseLabelRange">True</Compiler>
65- <Compiler Name="ForVariable">True</Compiler>
66- <Compiler Name="ConstructingAbstract">True</Compiler>
67- <Compiler Name="ComparisonFalse">True</Compiler>
68- <Compiler Name="ComparisonTrue">True</Compiler>
69- <Compiler Name="ComparingSignedUnsigned">True</Compiler>
70- <Compiler Name="CombiningSignedUnsigned">True</Compiler>
71- <Compiler Name="UnsupportedConstruct">True</Compiler>
72- <Compiler Name="FileOpen">True</Compiler>
73- <Compiler Name="FileOpenUnitSrc">True</Compiler>
74- <Compiler Name="BadGlobalSymbol">True</Compiler>
75- <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
76- <Compiler Name="InvalidDirective">True</Compiler>
77- <Compiler Name="PackageNoLink">True</Compiler>
78- <Compiler Name="PackageThreadVar">True</Compiler>
79- <Compiler Name="ImplicitImport">True</Compiler>
80- <Compiler Name="HPPEMITIgnored">True</Compiler>
81- <Compiler Name="NoRetVal">True</Compiler>
82- <Compiler Name="UseBeforeDef">True</Compiler>
83- <Compiler Name="ForLoopVarUndef">True</Compiler>
84- <Compiler Name="UnitNameMismatch">True</Compiler>
85- <Compiler Name="NoCFGFileFound">True</Compiler>
86- <Compiler Name="ImplicitVariants">True</Compiler>
87- <Compiler Name="UnicodeToLocale">True</Compiler>
88- <Compiler Name="LocaleToUnicode">True</Compiler>
89- <Compiler Name="ImagebaseMultiple">True</Compiler>
90- <Compiler Name="SuspiciousTypecast">True</Compiler>
91- <Compiler Name="PrivatePropAccessor">True</Compiler>
92- <Compiler Name="UnsafeType">False</Compiler>
93- <Compiler Name="UnsafeCode">False</Compiler>
94- <Compiler Name="UnsafeCast">False</Compiler>
95- <Compiler Name="OptionTruncated">True</Compiler>
96- <Compiler Name="WideCharReduced">True</Compiler>
97- <Compiler Name="DuplicatesIgnored">True</Compiler>
98- <Compiler Name="UnitInitSeq">True</Compiler>
99- <Compiler Name="LocalPInvoke">True</Compiler>
100- <Compiler Name="MessageDirective">True</Compiler>
101- <Compiler Name="CodePage"></Compiler>
102- </Compiler>
103- <Linker>
104- <Linker Name="ExeDescription">Anak Krakatoa Library</Linker>
105- <Linker Name="MapFile">0</Linker>
106- <Linker Name="OutputObjs">0</Linker>
107- <Linker Name="GenerateHpps">False</Linker>
108- <Linker Name="ConsoleApp">1</Linker>
109- <Linker Name="DebugInfo">False</Linker>
110- <Linker Name="RemoteSymbols">False</Linker>
111- <Linker Name="GenerateDRC">False</Linker>
112- <Linker Name="MinStackSize">16384</Linker>
113- <Linker Name="MaxStackSize">1048576</Linker>
114- <Linker Name="ImageBase">4194304</Linker>
115- </Linker>
116- <Directories>
117- <Directories Name="UnitOutputDir">..\..\dcu\d10</Directories>
118- <Directories Name="PackageDLLOutputDir"></Directories>
119- <Directories Name="PackageDCPOutputDir"></Directories>
120- <Directories Name="SearchPath">..\..\res;..\..\res\dfm</Directories>
121- <Directories Name="Conditionals"></Directories>
122- <Directories Name="DebugSourceDirs"></Directories>
123- <Directories Name="OutputDir"></Directories>
124- <Directories Name="Packages"></Directories>
125- <Directories Name="UsePackages">False</Directories>
126- </Directories>
127- <FileVersion>
128- <FileVersion Name="Version">7.0</FileVersion>
129- </FileVersion>
130- <Parameters>
131- <Parameters Name="RunParams"></Parameters>
132- <Parameters Name="HostApplication"></Parameters>
133- <Parameters Name="Launcher"></Parameters>
134- <Parameters Name="UseLauncher">False</Parameters>
135- <Parameters Name="DebugCWD"></Parameters>
136- <Parameters Name="Debug Symbols Search Path"></Parameters>
137- <Parameters Name="LoadAllSymbols">True</Parameters>
138- <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
139- </Parameters>
140- <Language>
141- <Language Name="ActiveLang"></Language>
142- <Language Name="ProjectLang">$00000000</Language>
143- <Language Name="RootDir"></Language>
144- </Language>
145- <VersionInfo>
146- <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
147- <VersionInfo Name="AutoIncBuild">False</VersionInfo>
148- <VersionInfo Name="MajorVer">1</VersionInfo>
149- <VersionInfo Name="MinorVer">0</VersionInfo>
150- <VersionInfo Name="Release">0</VersionInfo>
151- <VersionInfo Name="Build">0</VersionInfo>
152- <VersionInfo Name="Debug">False</VersionInfo>
153- <VersionInfo Name="PreRelease">False</VersionInfo>
154- <VersionInfo Name="Special">False</VersionInfo>
155- <VersionInfo Name="Private">False</VersionInfo>
156- <VersionInfo Name="DLL">False</VersionInfo>
157- <VersionInfo Name="Locale">1046</VersionInfo>
158- <VersionInfo Name="CodePage">1252</VersionInfo>
159- </VersionInfo>
160- <VersionInfoKeys>
161- <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
162- <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
163- <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
164- <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
165- <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
166- <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
167- <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
168- <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
169- <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
170- <VersionInfoKeys Name="Comments"></VersionInfoKeys>
171- </VersionInfoKeys>
172- </Delphi.Personality>
3+ <PersonalityInfo>
4+ <Option>
5+ <Option Name="Personality">Delphi.Personality</Option>
6+ <Option Name="GUID">{66252C08-5167-4EBD-ADA9-C3052917213B}</Option>
7+ </Option>
8+ </PersonalityInfo>
9+ <Delphi.Personality>
10+ <Source>
11+ <Source Name="MainSource">KRKLib.dpk</Source>
12+ </Source>
13+ <Compiler>
14+ <Compiler Name="UnitAliases"></Compiler>
15+ <Compiler Name="NamespacePrefix"></Compiler>
16+ <Compiler Name="DefaultNamespace"></Compiler>
17+ </Compiler>
18+ <Linker>
19+ <Linker Name="ExeDescription">Anak Krakatoa Library</Linker>
20+ </Linker>
21+ <Directories>
22+ <Directories Name="UnitOutputDir">..\..\dcu\d10</Directories>
23+ <Directories Name="PackageDLLOutputDir"></Directories>
24+ <Directories Name="PackageDCPOutputDir"></Directories>
25+ <Directories Name="SearchPath">..\..\res;..\..\res\dfm;C:\Program Files (x86)\Embarcadero\Studio\20.0\source\vcl;C:\Program Files (x86)\Embarcadero\Studio\20.0\source\rtl\win;C:\Program Files (x86)\Embarcadero\Studio\20.0\source\rtl\sys</Directories>
26+ <Directories Name="Conditionals"></Directories>
27+ <Directories Name="DebugSourceDirs"></Directories>
28+ </Directories>
29+ </Delphi.Personality>
17330 </BorlandProject>
--- trunk/rtp/prj/Delphi 10 (Delphi 2006)/KRKLib.dpk (revision 562)
+++ trunk/rtp/prj/Delphi 10 (Delphi 2006)/KRKLib.dpk (revision 563)
@@ -155,6 +155,9 @@
155155 KRK.Internet.FTP in '..\..\src\Internet\KRK.Internet.FTP.pas',
156156 KRK.Internet.Edge in '..\..\src\Internet\KRK.Internet.Edge.pas',
157157 KRK.Internet.EdgeConst in '..\..\src\Internet\KRK.Internet.EdgeConst.pas',
158- KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas';
158+ KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas',
159+ KRK.Network.WS2Def in '..\..\src\Network\KRK.Network.WS2Def.pas',
160+ KRK.Network.WinSock2 in '..\..\src\Network\KRK.Network.WinSock2.pas',
161+ KRK.Network.WS2TcpIp in '..\..\src\Network\KRK.Network.WS2TcpIp.pas';
159162
160163 end.
--- trunk/rtp/prj/Delphi 11 (Delphi 2007)/KRKLib.dpk (revision 562)
+++ trunk/rtp/prj/Delphi 11 (Delphi 2007)/KRKLib.dpk (revision 563)
@@ -138,6 +138,9 @@
138138 KRK.Internet.FTP in '..\..\src\Internet\KRK.Internet.FTP.pas',
139139 KRK.Internet.Edge in '..\..\src\Internet\KRK.Internet.Edge.pas',
140140 KRK.Internet.EdgeConst in '..\..\src\Internet\KRK.Internet.EdgeConst.pas',
141- KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas';
141+ KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas',
142+ KRK.Network.WS2Def in '..\..\src\Network\KRK.Network.WS2Def.pas',
143+ KRK.Network.WinSock2 in '..\..\src\Network\KRK.Network.WinSock2.pas',
144+ KRK.Network.WS2TcpIp in '..\..\src\Network\KRK.Network.WS2TcpIp.pas';
142145
143146 end.
--- trunk/rtp/prj/Delphi 11 (Delphi 2007)/KRKLib.dproj (revision 562)
+++ trunk/rtp/prj/Delphi 11 (Delphi 2007)/KRKLib.dproj (revision 563)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{DF585BC4-AB54-4EE7-9273-03C2C7B76D54}</ProjectGuid>
3+ <ProjectGuid>{EDACE720-CE4D-4FE4-99B1-C0F35883F0F0}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/rtp/prj/Delphi 12 (Delphi 2009)/KRKLib.dpk (revision 562)
+++ trunk/rtp/prj/Delphi 12 (Delphi 2009)/KRKLib.dpk (revision 563)
@@ -138,6 +138,9 @@
138138 KRK.Internet.FTP in '..\..\src\Internet\KRK.Internet.FTP.pas',
139139 KRK.Internet.Edge in '..\..\src\Internet\KRK.Internet.Edge.pas',
140140 KRK.Internet.EdgeConst in '..\..\src\Internet\KRK.Internet.EdgeConst.pas',
141- KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas';
141+ KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas',
142+ KRK.Network.WS2Def in '..\..\src\Network\KRK.Network.WS2Def.pas',
143+ KRK.Network.WinSock2 in '..\..\src\Network\KRK.Network.WinSock2.pas',
144+ KRK.Network.WS2TcpIp in '..\..\src\Network\KRK.Network.WS2TcpIp.pas';
142145
143146 end.
--- trunk/rtp/prj/Delphi 12 (Delphi 2009)/KRKLib.dproj (revision 562)
+++ trunk/rtp/prj/Delphi 12 (Delphi 2009)/KRKLib.dproj (revision 563)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{7044185F-D128-43FC-BEF0-3576F2233B65}</ProjectGuid>
3+ <ProjectGuid>{83929DA3-CB42-4CD5-95A8-AB3BDAAE5508}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/rtp/prj/Delphi 14 (Delphi 2010)/KRKLib.dpk (revision 562)
+++ trunk/rtp/prj/Delphi 14 (Delphi 2010)/KRKLib.dpk (revision 563)
@@ -138,6 +138,9 @@
138138 KRK.Internet.FTP in '..\..\src\Internet\KRK.Internet.FTP.pas',
139139 KRK.Internet.Edge in '..\..\src\Internet\KRK.Internet.Edge.pas',
140140 KRK.Internet.EdgeConst in '..\..\src\Internet\KRK.Internet.EdgeConst.pas',
141- KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas';
141+ KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas',
142+ KRK.Network.WS2Def in '..\..\src\Network\KRK.Network.WS2Def.pas',
143+ KRK.Network.WinSock2 in '..\..\src\Network\KRK.Network.WinSock2.pas',
144+ KRK.Network.WS2TcpIp in '..\..\src\Network\KRK.Network.WS2TcpIp.pas';
142145
143146 end.
--- trunk/rtp/prj/Delphi 14 (Delphi 2010)/KRKLib.dproj (revision 562)
+++ trunk/rtp/prj/Delphi 14 (Delphi 2010)/KRKLib.dproj (revision 563)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{90EC0A8B-71C4-466E-B4DD-F3061E31914B}</ProjectGuid>
3+ <ProjectGuid>{41603BA8-2BCE-4929-AA5A-66C16C1C3F96}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/rtp/prj/Delphi 15 (Delphi XE)/KRKLib.dpk (revision 562)
+++ trunk/rtp/prj/Delphi 15 (Delphi XE)/KRKLib.dpk (revision 563)
@@ -138,6 +138,9 @@
138138 KRK.Internet.FTP in '..\..\src\Internet\KRK.Internet.FTP.pas',
139139 KRK.Internet.Edge in '..\..\src\Internet\KRK.Internet.Edge.pas',
140140 KRK.Internet.EdgeConst in '..\..\src\Internet\KRK.Internet.EdgeConst.pas',
141- KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas';
141+ KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas',
142+ KRK.Network.WS2Def in '..\..\src\Network\KRK.Network.WS2Def.pas',
143+ KRK.Network.WinSock2 in '..\..\src\Network\KRK.Network.WinSock2.pas',
144+ KRK.Network.WS2TcpIp in '..\..\src\Network\KRK.Network.WS2TcpIp.pas';
142145
143146 end.
--- trunk/rtp/prj/Delphi 15 (Delphi XE)/KRKLib.dproj (revision 562)
+++ trunk/rtp/prj/Delphi 15 (Delphi XE)/KRKLib.dproj (revision 563)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{EAD778C5-447B-454F-9EDC-4A3BECE89A25}</ProjectGuid>
3+ <ProjectGuid>{F8913DDF-4307-4FBE-8988-511EEB0B617D}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/rtp/prj/Delphi 16 (Delphi XE2)/KRKLib.dpk (revision 562)
+++ trunk/rtp/prj/Delphi 16 (Delphi XE2)/KRKLib.dpk (revision 563)
@@ -138,6 +138,9 @@
138138 KRK.Internet.FTP in '..\..\src\Internet\KRK.Internet.FTP.pas',
139139 KRK.Internet.Edge in '..\..\src\Internet\KRK.Internet.Edge.pas',
140140 KRK.Internet.EdgeConst in '..\..\src\Internet\KRK.Internet.EdgeConst.pas',
141- KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas';
141+ KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas',
142+ KRK.Network.WS2Def in '..\..\src\Network\KRK.Network.WS2Def.pas',
143+ KRK.Network.WinSock2 in '..\..\src\Network\KRK.Network.WinSock2.pas',
144+ KRK.Network.WS2TcpIp in '..\..\src\Network\KRK.Network.WS2TcpIp.pas';
142145
143146 end.
--- trunk/rtp/prj/Delphi 16 (Delphi XE2)/KRKLib.dproj (revision 562)
+++ trunk/rtp/prj/Delphi 16 (Delphi XE2)/KRKLib.dproj (revision 563)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{E261B4DA-DD5D-4232-B586-55892C77D5B4}</ProjectGuid>
3+ <ProjectGuid>{7F842868-2CB2-44F9-86E9-2AFFE0D69441}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/rtp/prj/Delphi 17 (Delphi XE3)/KRKLib.dpk (revision 562)
+++ trunk/rtp/prj/Delphi 17 (Delphi XE3)/KRKLib.dpk (revision 563)
@@ -138,6 +138,9 @@
138138 KRK.Internet.FTP in '..\..\src\Internet\KRK.Internet.FTP.pas',
139139 KRK.Internet.Edge in '..\..\src\Internet\KRK.Internet.Edge.pas',
140140 KRK.Internet.EdgeConst in '..\..\src\Internet\KRK.Internet.EdgeConst.pas',
141- KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas';
141+ KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas',
142+ KRK.Network.WS2Def in '..\..\src\Network\KRK.Network.WS2Def.pas',
143+ KRK.Network.WinSock2 in '..\..\src\Network\KRK.Network.WinSock2.pas',
144+ KRK.Network.WS2TcpIp in '..\..\src\Network\KRK.Network.WS2TcpIp.pas';
142145
143146 end.
--- trunk/rtp/prj/Delphi 17 (Delphi XE3)/KRKLib.dproj (revision 562)
+++ trunk/rtp/prj/Delphi 17 (Delphi XE3)/KRKLib.dproj (revision 563)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{A6385D62-02AA-4EB9-8121-13BB84B2380E}</ProjectGuid>
3+ <ProjectGuid>{03F54892-0BB5-445E-B508-0CEEEDDF8801}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/rtp/prj/Delphi 18 (Delphi XE4)/KRKLib.dpk (revision 562)
+++ trunk/rtp/prj/Delphi 18 (Delphi XE4)/KRKLib.dpk (revision 563)
@@ -138,6 +138,9 @@
138138 KRK.Internet.FTP in '..\..\src\Internet\KRK.Internet.FTP.pas',
139139 KRK.Internet.Edge in '..\..\src\Internet\KRK.Internet.Edge.pas',
140140 KRK.Internet.EdgeConst in '..\..\src\Internet\KRK.Internet.EdgeConst.pas',
141- KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas';
141+ KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas',
142+ KRK.Network.WS2Def in '..\..\src\Network\KRK.Network.WS2Def.pas',
143+ KRK.Network.WinSock2 in '..\..\src\Network\KRK.Network.WinSock2.pas',
144+ KRK.Network.WS2TcpIp in '..\..\src\Network\KRK.Network.WS2TcpIp.pas';
142145
143146 end.
--- trunk/rtp/prj/Delphi 18 (Delphi XE4)/KRKLib.dproj (revision 562)
+++ trunk/rtp/prj/Delphi 18 (Delphi XE4)/KRKLib.dproj (revision 563)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{27792D8F-2641-48C6-95C6-60BAA9D22E39}</ProjectGuid>
3+ <ProjectGuid>{BB967D70-6FCC-4F35-8B0B-502E57150A9A}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/rtp/prj/Delphi 19 (Delphi XE5)/KRKLib.dpk (revision 562)
+++ trunk/rtp/prj/Delphi 19 (Delphi XE5)/KRKLib.dpk (revision 563)
@@ -138,6 +138,9 @@
138138 KRK.Internet.FTP in '..\..\src\Internet\KRK.Internet.FTP.pas',
139139 KRK.Internet.Edge in '..\..\src\Internet\KRK.Internet.Edge.pas',
140140 KRK.Internet.EdgeConst in '..\..\src\Internet\KRK.Internet.EdgeConst.pas',
141- KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas';
141+ KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas',
142+ KRK.Network.WS2Def in '..\..\src\Network\KRK.Network.WS2Def.pas',
143+ KRK.Network.WinSock2 in '..\..\src\Network\KRK.Network.WinSock2.pas',
144+ KRK.Network.WS2TcpIp in '..\..\src\Network\KRK.Network.WS2TcpIp.pas';
142145
143146 end.
--- trunk/rtp/prj/Delphi 19 (Delphi XE5)/KRKLib.dproj (revision 562)
+++ trunk/rtp/prj/Delphi 19 (Delphi XE5)/KRKLib.dproj (revision 563)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{2E2C8F38-2812-4C4A-BCBA-10F1C8550A9A}</ProjectGuid>
3+ <ProjectGuid>{9B048DD8-F740-4A93-A523-7CD7C95FB3BD}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/rtp/prj/Delphi 20 (Delphi XE6)/KRKLib.dpk (revision 562)
+++ trunk/rtp/prj/Delphi 20 (Delphi XE6)/KRKLib.dpk (revision 563)
@@ -138,6 +138,9 @@
138138 KRK.Internet.FTP in '..\..\src\Internet\KRK.Internet.FTP.pas',
139139 KRK.Internet.Edge in '..\..\src\Internet\KRK.Internet.Edge.pas',
140140 KRK.Internet.EdgeConst in '..\..\src\Internet\KRK.Internet.EdgeConst.pas',
141- KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas';
141+ KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas',
142+ KRK.Network.WS2Def in '..\..\src\Network\KRK.Network.WS2Def.pas',
143+ KRK.Network.WinSock2 in '..\..\src\Network\KRK.Network.WinSock2.pas',
144+ KRK.Network.WS2TcpIp in '..\..\src\Network\KRK.Network.WS2TcpIp.pas';
142145
143146 end.
--- trunk/rtp/prj/Delphi 20 (Delphi XE6)/KRKLib.dproj (revision 562)
+++ trunk/rtp/prj/Delphi 20 (Delphi XE6)/KRKLib.dproj (revision 563)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{B3F1F2D1-AAD9-459B-96FD-4CF0A0956B86}</ProjectGuid>
3+ <ProjectGuid>{998E2ED5-09FA-4DE0-818B-C8DA10D69D7C}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/rtp/prj/Delphi 21 (Delphi XE7)/KRKLib.dpk (revision 562)
+++ trunk/rtp/prj/Delphi 21 (Delphi XE7)/KRKLib.dpk (revision 563)
@@ -138,6 +138,9 @@
138138 KRK.Internet.FTP in '..\..\src\Internet\KRK.Internet.FTP.pas',
139139 KRK.Internet.Edge in '..\..\src\Internet\KRK.Internet.Edge.pas',
140140 KRK.Internet.EdgeConst in '..\..\src\Internet\KRK.Internet.EdgeConst.pas',
141- KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas';
141+ KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas',
142+ KRK.Network.WS2Def in '..\..\src\Network\KRK.Network.WS2Def.pas',
143+ KRK.Network.WinSock2 in '..\..\src\Network\KRK.Network.WinSock2.pas',
144+ KRK.Network.WS2TcpIp in '..\..\src\Network\KRK.Network.WS2TcpIp.pas';
142145
143146 end.
--- trunk/rtp/prj/Delphi 21 (Delphi XE7)/KRKLib.dproj (revision 562)
+++ trunk/rtp/prj/Delphi 21 (Delphi XE7)/KRKLib.dproj (revision 563)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{B236A721-11C5-4511-BF35-B9E983B23C5E}</ProjectGuid>
3+ <ProjectGuid>{631F420A-D6C7-433E-AB93-DA38D6ABAE1B}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/rtp/prj/Delphi 22 (Delphi XE8)/KRKLib.dpk (revision 562)
+++ trunk/rtp/prj/Delphi 22 (Delphi XE8)/KRKLib.dpk (revision 563)
@@ -138,6 +138,9 @@
138138 KRK.Internet.FTP in '..\..\src\Internet\KRK.Internet.FTP.pas',
139139 KRK.Internet.Edge in '..\..\src\Internet\KRK.Internet.Edge.pas',
140140 KRK.Internet.EdgeConst in '..\..\src\Internet\KRK.Internet.EdgeConst.pas',
141- KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas';
141+ KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas',
142+ KRK.Network.WS2Def in '..\..\src\Network\KRK.Network.WS2Def.pas',
143+ KRK.Network.WinSock2 in '..\..\src\Network\KRK.Network.WinSock2.pas',
144+ KRK.Network.WS2TcpIp in '..\..\src\Network\KRK.Network.WS2TcpIp.pas';
142145
143146 end.
--- trunk/rtp/prj/Delphi 22 (Delphi XE8)/KRKLib.dproj (revision 562)
+++ trunk/rtp/prj/Delphi 22 (Delphi XE8)/KRKLib.dproj (revision 563)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{B0BC7C07-6C31-465F-947F-0A84A2F6B01C}</ProjectGuid>
3+ <ProjectGuid>{9A99974F-AC96-43FD-88D8-9D23026B1FA4}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/rtp/prj/Delphi 23 (Delphi Seattle)/KRKLib.dpk (revision 562)
+++ trunk/rtp/prj/Delphi 23 (Delphi Seattle)/KRKLib.dpk (revision 563)
@@ -138,6 +138,9 @@
138138 KRK.Internet.FTP in '..\..\src\Internet\KRK.Internet.FTP.pas',
139139 KRK.Internet.Edge in '..\..\src\Internet\KRK.Internet.Edge.pas',
140140 KRK.Internet.EdgeConst in '..\..\src\Internet\KRK.Internet.EdgeConst.pas',
141- KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas';
141+ KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas',
142+ KRK.Network.WS2Def in '..\..\src\Network\KRK.Network.WS2Def.pas',
143+ KRK.Network.WinSock2 in '..\..\src\Network\KRK.Network.WinSock2.pas',
144+ KRK.Network.WS2TcpIp in '..\..\src\Network\KRK.Network.WS2TcpIp.pas';
142145
143146 end.
--- trunk/rtp/prj/Delphi 23 (Delphi Seattle)/KRKLib.dproj (revision 562)
+++ trunk/rtp/prj/Delphi 23 (Delphi Seattle)/KRKLib.dproj (revision 563)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{FC451730-5216-4A8E-934F-F13EF8896072}</ProjectGuid>
3+ <ProjectGuid>{9BA65C04-60D7-439C-B003-0B30B51AD111}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/rtp/prj/Delphi 24 (Delphi Berlin)/KRKLib.dpk (revision 562)
+++ trunk/rtp/prj/Delphi 24 (Delphi Berlin)/KRKLib.dpk (revision 563)
@@ -138,6 +138,9 @@
138138 KRK.Internet.FTP in '..\..\src\Internet\KRK.Internet.FTP.pas',
139139 KRK.Internet.Edge in '..\..\src\Internet\KRK.Internet.Edge.pas',
140140 KRK.Internet.EdgeConst in '..\..\src\Internet\KRK.Internet.EdgeConst.pas',
141- KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas';
141+ KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas',
142+ KRK.Network.WS2Def in '..\..\src\Network\KRK.Network.WS2Def.pas',
143+ KRK.Network.WinSock2 in '..\..\src\Network\KRK.Network.WinSock2.pas',
144+ KRK.Network.WS2TcpIp in '..\..\src\Network\KRK.Network.WS2TcpIp.pas';
142145
143146 end.
--- trunk/rtp/prj/Delphi 24 (Delphi Berlin)/KRKLib.dproj (revision 562)
+++ trunk/rtp/prj/Delphi 24 (Delphi Berlin)/KRKLib.dproj (revision 563)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{EEA05140-127F-473C-8E19-FDCC9AD19F9B}</ProjectGuid>
3+ <ProjectGuid>{EC6A7349-6E2F-4698-82DC-2BCB97A777A6}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/rtp/prj/Delphi 25 (Delphi Tokyo)/KRKLib.dpk (revision 562)
+++ trunk/rtp/prj/Delphi 25 (Delphi Tokyo)/KRKLib.dpk (revision 563)
@@ -138,6 +138,9 @@
138138 KRK.Internet.FTP in '..\..\src\Internet\KRK.Internet.FTP.pas',
139139 KRK.Internet.Edge in '..\..\src\Internet\KRK.Internet.Edge.pas',
140140 KRK.Internet.EdgeConst in '..\..\src\Internet\KRK.Internet.EdgeConst.pas',
141- KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas';
141+ KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas',
142+ KRK.Network.WS2Def in '..\..\src\Network\KRK.Network.WS2Def.pas',
143+ KRK.Network.WinSock2 in '..\..\src\Network\KRK.Network.WinSock2.pas',
144+ KRK.Network.WS2TcpIp in '..\..\src\Network\KRK.Network.WS2TcpIp.pas';
142145
143146 end.
--- trunk/rtp/prj/Delphi 25 (Delphi Tokyo)/KRKLib.dproj (revision 562)
+++ trunk/rtp/prj/Delphi 25 (Delphi Tokyo)/KRKLib.dproj (revision 563)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{639AA630-F7F7-4667-8260-8DD3E5351938}</ProjectGuid>
3+ <ProjectGuid>{3BF772B6-54A9-4C23-A2FB-33DCD844F18B}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/rtp/prj/Delphi 26 (Delphi Rio)/KRKLib.dpk (revision 562)
+++ trunk/rtp/prj/Delphi 26 (Delphi Rio)/KRKLib.dpk (revision 563)
@@ -157,7 +157,10 @@
157157 KRK.Internet.FTP in '..\..\src\Internet\KRK.Internet.FTP.pas',
158158 KRK.Internet.Edge in '..\..\src\Internet\KRK.Internet.Edge.pas',
159159 KRK.Internet.EdgeConst in '..\..\src\Internet\KRK.Internet.EdgeConst.pas',
160- KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas';
160+ KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas',
161+ KRK.Network.WS2Def in '..\..\src\Network\KRK.Network.WS2Def.pas',
162+ KRK.Network.WinSock2 in '..\..\src\Network\KRK.Network.WinSock2.pas',
163+ KRK.Network.WS2TcpIp in '..\..\src\Network\KRK.Network.WS2TcpIp.pas';
161164
162165 end.
163166
--- trunk/rtp/prj/Delphi 26 (Delphi Rio)/KRKLib.dproj (revision 562)
+++ trunk/rtp/prj/Delphi 26 (Delphi Rio)/KRKLib.dproj (revision 563)
@@ -180,6 +180,9 @@
180180 <DCCReference Include="..\..\src\Internet\KRK.Internet.Edge.pas"/>
181181 <DCCReference Include="..\..\src\Internet\KRK.Internet.EdgeConst.pas"/>
182182 <DCCReference Include="..\..\src\Internet\KRK.Internet.WebView2.pas"/>
183+ <DCCReference Include="..\..\src\Network\KRK.Network.WS2Def.pas"/>
184+ <DCCReference Include="..\..\src\Network\KRK.Network.WinSock2.pas"/>
185+ <DCCReference Include="..\..\src\Network\KRK.Network.WS2TcpIp.pas"/>
183186 <BuildConfiguration Include="Base">
184187 <Key>Base</Key>
185188 </BuildConfiguration>
--- trunk/rtp/prj/Delphi 27 (Delphi Sydney)/KRKLib.dpk (revision 562)
+++ trunk/rtp/prj/Delphi 27 (Delphi Sydney)/KRKLib.dpk (revision 563)
@@ -138,6 +138,9 @@
138138 KRK.Internet.FTP in '..\..\src\Internet\KRK.Internet.FTP.pas',
139139 KRK.Internet.Edge in '..\..\src\Internet\KRK.Internet.Edge.pas',
140140 KRK.Internet.EdgeConst in '..\..\src\Internet\KRK.Internet.EdgeConst.pas',
141- KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas';
141+ KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas',
142+ KRK.Network.WS2Def in '..\..\src\Network\KRK.Network.WS2Def.pas',
143+ KRK.Network.WinSock2 in '..\..\src\Network\KRK.Network.WinSock2.pas',
144+ KRK.Network.WS2TcpIp in '..\..\src\Network\KRK.Network.WS2TcpIp.pas';
142145
143146 end.
--- trunk/rtp/prj/Delphi 27 (Delphi Sydney)/KRKLib.dproj (revision 562)
+++ trunk/rtp/prj/Delphi 27 (Delphi Sydney)/KRKLib.dproj (revision 563)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{CE39566A-0237-49B2-B306-AF7A9F5AD6E3}</ProjectGuid>
3+ <ProjectGuid>{D124ABD4-D435-4DBB-81BE-AB1AC090B9A5}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/rtp/prj/Delphi 28 (Delphi Alexandria)/KRKLib.dpk (revision 562)
+++ trunk/rtp/prj/Delphi 28 (Delphi Alexandria)/KRKLib.dpk (revision 563)
@@ -138,6 +138,9 @@
138138 KRK.Internet.FTP in '..\..\src\Internet\KRK.Internet.FTP.pas',
139139 KRK.Internet.Edge in '..\..\src\Internet\KRK.Internet.Edge.pas',
140140 KRK.Internet.EdgeConst in '..\..\src\Internet\KRK.Internet.EdgeConst.pas',
141- KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas';
141+ KRK.Internet.WebView2 in '..\..\src\Internet\KRK.Internet.WebView2.pas',
142+ KRK.Network.WS2Def in '..\..\src\Network\KRK.Network.WS2Def.pas',
143+ KRK.Network.WinSock2 in '..\..\src\Network\KRK.Network.WinSock2.pas',
144+ KRK.Network.WS2TcpIp in '..\..\src\Network\KRK.Network.WS2TcpIp.pas';
142145
143146 end.
--- trunk/rtp/prj/Delphi 28 (Delphi Alexandria)/KRKLib.dproj (revision 562)
+++ trunk/rtp/prj/Delphi 28 (Delphi Alexandria)/KRKLib.dproj (revision 563)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{5DFAB359-3CCC-40C6-8E2E-E5D1E5F3C34E}</ProjectGuid>
3+ <ProjectGuid>{0D5B533C-4470-4080-AD55-8003AAA315C1}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/rtp/src/Network/KRK.Network.WS2Def.pas (nonexistent)
+++ trunk/rtp/src/Network/KRK.Network.WS2Def.pas (revision 563)
@@ -0,0 +1,26 @@
1+unit KRK.Network.WS2Def;
2+
3+interface
4+
5+uses
6+ Windows, WinSock2;
7+
8+type
9+ PADDRINFO = ^ADDRINFO;
10+ ADDRINFO = record
11+ ai_flags: Integer;
12+ ai_family: Integer;
13+ ai_socktype: Integer;
14+ ai_protocol: Integer;
15+ ai_addrlen: size_t;
16+ ai_canonname: PAnsiChar;
17+ ai_addr: PSOCKADDR;
18+ ai_next: PADDRINFO;
19+ end;
20+ ADDRINFOA = ADDRINFO;
21+ PADDRINFOA = PADDRINFO;
22+ PPADDRINFOA = ^PADDRINFOA;
23+
24+implementation
25+
26+end.
--- trunk/rtp/src/Network/KRK.Network.WS2TcpIp.pas (nonexistent)
+++ trunk/rtp/src/Network/KRK.Network.WS2TcpIp.pas (revision 563)
@@ -0,0 +1,13 @@
1+unit KRK.Network.WS2TcpIp;
2+
3+interface
4+
5+uses
6+ KRK.Rtl.Win.Windows, KRK.Network.WS2Def;
7+
8+function GetAddrInfo(ANodeName: PCSTR; AServiceName: PCSTR; APHints: PADDRINFOA; APPResult: PPADDRINFOA): Integer; WINAPI; external 'Ws2_32.dll' name 'getaddrinfo';
9+procedure FreeAddrInfo(AAddrInfo: PADDRINFOA); WINAPI; external 'Ws2_32.dll' name 'freeaddrinfo';
10+
11+implementation
12+
13+end.
--- trunk/rtp/src/Network/KRK.Network.WinSock2.pas (nonexistent)
+++ trunk/rtp/src/Network/KRK.Network.WinSock2.pas (revision 563)
@@ -0,0 +1,152 @@
1+unit KRK.Network.WinSock2;
2+
3+interface
4+
5+uses
6+ SysUtils;
7+
8+type
9+ EWinSock = class(Exception)
10+ public
11+ constructor Create(const AFunctionName: String);
12+ end;
13+
14+function SendSynchronousSocketMessage(ADestination: String; APort: Word; AMessage: String): String;
15+
16+implementation
17+
18+uses
19+ Windows, Winsock2, KRK.Network.WS2Def, KRK.Network.WS2TcpIp;
20+
21+function SendSynchronousSocketMessage(ADestination: String; APort: Word; AMessage: String): String;
22+var
23+ NodeName: AnsiString;
24+ ServiceName: AnsiString;
25+ Hints: ADDRINFO;
26+ PResult: PADDRINFO;
27+ WSAData: TWsaData;
28+begin
29+ // ATENÇÃO!: Depurar esta função é problemático por causa da forma como os
30+ // sockets funcionam. Dependendo de onde breakpoints são colocados,
31+ // a mensagem de resposta pode não vir e a conexão ser fechada o que
32+ // pode levar a pensar que há algum problema, quando não há.
33+ // Acredito que aqui a depuração precise ser feita com
34+ // OutputDebugString
35+ Result := '';
36+
37+ NodeName := AnsiString(ADestination);
38+ ServiceName := AnsiString(IntToStr(APort));
39+
40+ ZeroMemory(@Hints,SizeOf(ADDRINFO));
41+ PResult := nil;
42+
43+ Hints.ai_family := AF_INET;
44+ Hints.ai_socktype := SOCK_STREAM;
45+ Hints.ai_protocol := IPPROTO_TCP;
46+
47+ // Obtém uma estrutura onde um dos seus membros é um PSOCKADDR (TSockAddrIn),
48+ // uma estrutura que especifica a família de endereço, o IP e a porta do
49+ // servidor no qual se pretende conectar. Este membro é usado em connect, mais
50+ // adiante, para realizar a conexão com a outra parte
51+
52+ if GetAddrInfo(@NodeName[1],@ServiceName[1],@Hints,@PResult) <> 0 then
53+ raise EWinSock.Create('GetAddrInfo')
54+ else
55+ // Abaixo, todos os raises levantam exceções, mas mesmo assim os blocos
56+ // finally serão executado. Tenha isso em mente e saiba que todos os códigos
57+ // de limpeza serão executados em caso de erro
58+ try
59+ // Inicializa o WinSock
60+ if WSAStartup(MakeWord(2,2),WSAData) <> NO_ERROR then
61+ raise EWinSock.Create('WSAStartup')
62+ else
63+ try
64+ // Verifica a versão do WinSock antes de continuar...
65+ if (Lo(WSAData.wVersion) <> 2) or (Lo(WSAData.wVersion) <> 2) then
66+ raise Exception.Create('Não foi possível encontrar uma versão utilizável de WinSock.dll')
67+ else
68+ begin
69+ // Cria um soquete para conectar-se ao servidor. Pense num soquete
70+ // como canal de comunicação. Para haver a conexão é necessário
71+ // haver um canal de comunicação, um soquete
72+ var ConnectionSocket: TSocket := socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
73+
74+ if ConnectionSocket = INVALID_SOCKET then
75+ raise EWinSock.Create('socket')
76+ else
77+ try
78+ var RBS: RawByteString := RawByteString(AMessage);
79+
80+ // O modo I/O padrão de funcionamento de um soquete é o síncrono
81+ // (bloqueante), mas é possível mudar a forma de funcionamento
82+ // usando ioctlsocket(ConnectionSocket, FIONBIO, Mode), onde Mode é
83+ // uma variável Integer que, na entrada recebe zero para configurar
84+ // o modo bloqueante (desnecessário, devido ao modo padrão já ser
85+ // este), ou qualquer outro valor diferente de zero para configurar
86+ // o modo "não bloqueante" (assíncrono)
87+
88+ // Conecta ao servidor
89+ if connect(ConnectionSocket,PResult.ai_addr^,SizeOf(TSockAddrIn)) = SOCKET_ERROR then
90+ raise EWinSock.Create('connect')
91+ // Envia a mensagem.
92+ else if send(ConnectionSocket,Pointer(RBS)^,Length(RBS),0) = SOCKET_ERROR then
93+ raise EWinSock.Create('send');
94+
95+ // Neste ponto seria possível usar o comando shutdown para desligar
96+ // o fluxo de dados na direção de envio. Como o bloco de código
97+ // anterior já enviou o que precisava, não precisamos mais enviar
98+ // nada, neste caso poderíamos executar
99+ // shutdown(ConnectionSocket,SD_SEND), que faz justamente isso. Como
100+ // estamos numa conexão full-duplex, o soquete tem dois canais, um
101+ // para envio e outro para recebimento. Podemos informar ao servidor
102+ // que não pretendemos enviar mais nada, e isso não encerra a
103+ // conexão, pois ainda estamos livres para receber dados. Não
104+ // utilizei isso aqui pois aparentemente isso não funciona bem com
105+ // soquetes bloqueantes. Ao menos no OnStep, ao incluir isso aqui,
106+ // ele se perde completamente de forma que precisamos reiniciá-lo
107+
108+ // Neste ponto em alguns exemplos poderíamos usar
109+ // ioctlsocket(ConnectionSocket, FIONREAD, ResponseSize) para obter
110+ // o tamanho da resposta e assim realizar uma operação de
111+ // recebimento, mas isso só funciona no modo assíncrono. No modo
112+ // síncrono, essa execução sempre retorna zero em ResponseSize,
113+ // porque quem vai ativar o recebimento de dados do servidor é
114+ // justamente a função recv.
115+
116+ // Define o tamanho da variável RBS como 50 caracteres (100 Bytes
117+ // Unicode). Este tamanho foi obtido do fonte do OnStep
118+ // (Command.ino), linha 38. Foi necessário usar uma variável
119+ // RawByteString porque ao usar Result (String) diretamente
120+ SetLength(RBS,50);
121+
122+ // Obtém a resposta
123+ if recv(ConnectionSocket,Pointer(RBS)^,Length(RBS),0) = SOCKET_ERROR then
124+ raise EWinSock.Create('recv');
125+
126+ Result := String(RBS);
127+ finally
128+ closesocket(ConnectionSocket);
129+ end;
130+ end;
131+ finally
132+ WSACleanup;
133+ end;
134+ finally
135+ FreeAddrInfo(PResult);
136+ end;
137+end;
138+
139+{ EWinSock }
140+
141+constructor EWinSock.Create(const AFunctionName: String);
142+const
143+ WSE = 'A função "%s" falhou com a seguinte mensagem de erro:'#13#10#13#10'%s (%d)';
144+var
145+ ErrorCode: Integer;
146+begin
147+ ErrorCode := WSAGetLastError;
148+
149+ inherited CreateFmt(WSE,[AFunctionName,SysErrorMessage(ErrorCode),ErrorCode]);
150+end;
151+
152+end.
--- trunk/rtp/src/Rtl/Win/KRK.Rtl.Win.WinCrypt.pas (revision 562)
+++ trunk/rtp/src/Rtl/Win/KRK.Rtl.Win.WinCrypt.pas (revision 563)
@@ -1,14 +1,15 @@
11 // A tabela abaixo mostra o significado dos aliases de strings no C++ e sua
22 // correspondência no Delphi
33 //
4-// ALIAS NO C++ | SIGNIFICADO NO C++ | DELPHI | OBS
4+// TYPEDEF NO C++ | SIGNIFICADO NO C++ | DELPHI | OBS
55 // -----------------------------------------------------------------------------
6-// LPSTR | char * | PChar | ANSICHAR
7-// LPCSTR | const char * | PChar | NÃO EXISTEM PONTEIROS CONSTANTES NO DELPHI
8-// LPWSTR | wchar_t * | PWideChar | WIDECHAR
9-// LPCWSTR | const wchar_t * | PWideChar | NÃO EXISTEM PONTEIROS CONSTANTES NO DELPHI
10-// LPTSTR | LPSTR ou LPWSTR | PChar ou PWideChar | ANSICHAR OU WIDECHAR
11-// LPCTSTR | LPCSTR or LPCWSTR | PChar ou PWideChar | NÃO EXISTEM PONTEIROS CONSTANTES NO DELPHI
6+// CHAR | char | Byte | 1 CHAR É EQUIVALENTE A 1 BYTE QUANDO NÃO ESTAMOS FALANDO EM PONTEIROS
7+// LPSTR ou PSTR | char * | PAnsiChar |
8+// LPCSTR ou PCSTR | const char * | PAnsiChar | NÃO EXISTEM PONTEIROS CONSTANTES NO DELPHI
9+// LPWSTR ou PWSTR | wchar_t * | PWideChar |
10+// LPCWSTR ou PCWSTR | const wchar_t * | PWideChar | NÃO EXISTEM PONTEIROS CONSTANTES NO DELPHI
11+// LPTSTR | LPSTR ou LPWSTR | PAnsiChar ou PWideChar |
12+// LPCTSTR | LPCSTR or LPCWSTR | PAnsiChar ou PWideChar | NÃO EXISTEM PONTEIROS CONSTANTES NO DELPHI
1213
1314 {*****************************************************************}
1415 { }
--- trunk/rtp/src/Rtl/Win/KRK.Rtl.Win.Windows.pas (revision 562)
+++ trunk/rtp/src/Rtl/Win/KRK.Rtl.Win.Windows.pas (revision 563)
@@ -16,6 +16,11 @@
1616 UINT_PTR = ULONG_PTR;
1717 {$IFEND}
1818
19+{$IF CompilerVersion <= 33} { Delphi RIO }
20+type
21+ PCSTR = LPCSTR;
22+{$IFEND}
23+
1924 const
2025 LOAD_LIBRARY_AS_IMAGE_RESOURCE = $20;
2126 INVALID_SET_FILE_POINTER: DWORD = 4294967295;
Show on old repository browser