PageRenderTime 68ms CodeModel.GetById 19ms RepoModel.GetById 0ms app.codeStats 2ms

/trunk/Common/Overbyte ICS 7/OverbyteIcsWSocket.pas

http://castlesand.googlecode.com/
Pascal | 13101 lines | 8520 code | 1213 blank | 3368 comment | 953 complexity | 18a1064fb08682cabeaaa7b92ee1e260 MD5 | raw file
Possible License(s): MIT, LGPL-2.0, LGPL-3.0

Large files files are truncated, but you can click here to view the full file

    

  1. {*_* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

    2. 

  2. 

    3. 

  3. Author:       François PIETTE

    4. 

  4. Description:  TWSocket class encapsulate the Windows Socket paradigm

    5. 

  5. Creation:     April 1996

    6. 

  6. Version:      7.47

    7. 

  7. EMail:        francois.piette@overbyte.be  http://www.overbyte.be

    8. 

  8. Support:      Use the mailing list twsocket@elists.org

    9. 

  9.               Follow "support" link at http://www.overbyte.be for subscription.

    10. 

  10. Legal issues: Copyright (C) 1996-2010 by François PIETTE

    11. 

  11.               Rue de Grady 24, 4053 Embourg, Belgium. Fax: +32-4-365.74.56

    12. 

  12.               <francois.piette@overbyte.be>

    13. 

  13.               SSL implementation includes code written by Arno Garrels,

    14. 

  14.               Berlin, Germany, contact: <arno.garrels@gmx.de>

    15. 

  15. 

    16. 

  16.               This software is provided 'as-is', without any express or

    17. 

  17.               implied warranty.  In no event will the author be held liable

    18. 

  18.               for any  damages arising from the use of this software.

    19. 

  19. 

    20. 

  20.               Permission is granted to anyone to use this software for any

    21. 

  21.               purpose, including commercial applications, and to alter it

    22. 

  22.               and redistribute it freely, subject to the following

    23. 

  23.               restrictions:

    24. 

  24. 

    25. 

  25.               1. The origin of this software must not be misrepresented,

    26. 

  26.                  you must not claim that you wrote the original software.

    27. 

  27.                  If you use this software in a product, an acknowledgment

    28. 

  28.                  in the product documentation would be appreciated but is

    29. 

  29.                  not required.

    30. 

  30. 

    31. 

  31.               2. Altered source versions must be plainly marked as such, and

    32. 

  32.                  must not be misrepresented as being the original software.

    33. 

  33. 

    34. 

  34.               3. This notice may not be removed or altered from any source

    35. 

  35.                  distribution.

    36. 

  36. 

    37. 

  37.               4. You must register this software by sending a picture postcard

    38. 

  38.                  to the author. Use a nice stamp and mention your name, street

    39. 

  39.                  address, EMail address and any comment you like to say.

    40. 

  40. 

    41. 

  41. History:

    42. 

  42. If not otherwise noted, changes are by Francois Piette

    43. 

  43. Jul 18, 1996  Move all low level socket to winsock to be Delphi 2.x compatible

    44. 

  44. Sep 18, 1996  Use structured exception for handling errors

    45. 

  45. Sep 19, 1996  Check csDestroying before invoking event handler

    46. 

  46. Nov 04, 1996  Better error handling

    47. 

  47. Jan 31, 1997  Changed property assignation for Addr, Port and Proto

    48. 

  48.               Added notification handler

    49. 

  49. Feb 14, 1997  Corrected bug in property assignation for Addr, Port and Proto

    50. 

  50. Mar 26, 1997  Make UDP protocol work correctly

    51. 

  51.               Enable UDP broadcasting by using addr 255.255.255.255

    52. 

  52. Apr 1, 1997   Added class function when independent of any open socket

    53. 

  53.               Moved InitData as global

    54. 

  54.               Added ReceivedFrom function

    55. 

  55.               Added ResolveHost function

    56. 

  56. Jul 22, 1997  Adapted to Delphi 3 which has a modified winsock.accept

    57. 

  57. Aug 13, 1997  'sin' member made public

    58. 

  58. Aug 24, 1997  Create the only help

    59. 

  59.               Makes writing HSocket the same as calling Dup.

    60. 

  60. Sep 5, 1997   Version 2.01, added WinsockInfo function

    61. 

  61. Sep 21, 1997  Version 2.02, make it really thread safe

    62. 

  62.                             created global WSocketVersion

    63. 

  63. Sep 25, 1997  Version 2.04, port to C++Builder

    64. 

  64. Sep 27, 1997  Version 2.05. All class methods converted to global

    65. 

  65.               procedure or function because C++Builder do not like

    66. 

  66.               class method very much.

    67. 

  67.               Old class method              New global function

    68. 

  68.               ----------------              -------------------

    69. 

  69.               WinsockInfo                   WinsockInfo

    70. 

  70.               SocketErrorDesc               WSocketErrorDesc

    71. 

  71.               GetHostByAddr                 WSocketGetHostByAddr

    72. 

  72.               GetHostByName                 WSocketGetHostByName

    73. 

  73.               ResolveHost                   WSocketResolveHost

    74. 

  74.               HostName                      LocalHostName

    75. 

  75. Oct 02, 1997  V2.06 Added a check in destructor to avoid calling WSACleanup at

    76. 

  76.               design time which crashes the excellent Eagle Software CDK.

    77. 

  77. Oct 16, 1997  V2.07 Added PortNum property with numeric value for Port.

    78. 

  78.               Added RcvdCount property to return the number of

    79. 

  79.               characters received in the buffer but not read yet. Do not

    80. 

  80.               confuse with ReadCount which returns the number of chars

    81. 

  81.               already received.

    82. 

  82.               Added a check for FWait assignation in front of ReadLine

    83. 

  83.               Prefixed each TSocketState value by 'ws' to avoid name conflict.

    84. 

  84.               Moved FHSocket member to private section because the property

    85. 

  85.               HSocket does the right job.

    86. 

  86.               Added a check for state closed when changing Port, Proto and Addr.

    87. 

  87. Oct 22, 1997  V2.08 Added Flush method (asked by john@nexnix.co.uk) and

    88. 

  88.               FlushTimeout property (default to 60 seconds).

    89. 

  89. Oct 22, 1997  V2.09 Added SendFlags property to enable sending in or out of

    90. 

  90.               band data (normal or urgent, see RFC-1122)

    91. 

  91. Oct 28, 1997  V2.10 Added an OnLineTooLong event and code to handle the case

    92. 

  92.               where ReadLine has been called and the buffer overflowed (line

    93. 

  93.               long)

    94. 

  94. Oct 29, 1997  V2.11 Added DnsLookup functionnality (DnsLookup method, DnsResult

    95. 

  95.               property and DnsLookupDone event).

    96. 

  96.               Calling the connect method with a hostname work well except that

    97. 

  97.               it could block for a long period (ie: 2 minutes) if DNS do not

    98. 

  98.               respond. Calling the connect method with a numeric IP address will

    99. 

  99.               never block. So you can call DnsLookup to start hostname

    100. 

  100.               resolution in the background, after some time you evenutually

    101. 

  101.               receive the OnDnsLookupDone event. The copy the DnsResult property

    102. 

  102.               to the Addr property and call connect.

    103. 

  103. Oct 30, 1997  V2.12 added a check in DnsLookup to handel numeric IP which do

    104. 

  104.               not require any lookup. The numeric IP is treated immediately

    105. 

  105.               and immediately trigger the DnsLookupDone event.

    106. 

  106.               I modified the code to be compatible with Delphi 1.

    107. 

  107. Oct 31, 1997  V2.13 added CancelDnsLookup procedure.

    108. 

  108. Nov 09, 1997  V2.14 add LocalIPList function to get the list of local IP

    109. 

  109.               addresses (you have two IP addresses when connected to a LAN

    110. 

  110.               and an ISP).

    111. 

  111. Nov 11, 1997  V2.15 Made TCustomWSocket with virtual functions. This will

    112. 

  112.               allow to easily descend a new component from TCustomWSocket.

    113. 

  113.               Make ReadLine stop when the connection is broken.

    114. 

  114. Nov 12, 1997  V2.16 Corrected bug (Justin Yunke <yunke@productivity.org>)

    115. 

  115.               in LocalIPList: phe should be checked for nil.

    116. 

  116. Nov 18, 1997  Added ReceiveStr function (Suggested by FLDKNHA@danisco.com)

    117. 

  117. Nov 30, 1997  V2.18 Added a call to OnDnsLookupDone when canceling.

    118. 

  118. Dec 04, 1997  V2.19 Added LocalPort property and SessionConnected event

    119. 

  119.               for UDP socket.

    120. 

  120.               V2.20 Modified MessageLoop and ProcessMessages to process not

    121. 

  121.               only the socket messages, but all messages (necessary if the

    122. 

  122.               thread has several TWSocket for example).

    123. 

  123. Dec 09, 1997  V2.21 Corrected a minor bug in ReceiveStr. Detected by

    124. 

  124.               david@e.co.za (David Butler).

    125. 

  125. Dec 10, 1997  V2.22 Corrected a minor bug in Send which now correctly

    126. 

  126.               returns the number of bytes sent. Detected by

    127. 

  127.               james.huggins@blockbuster.com

    128. 

  128. Dec 16, 1997  V2.23 Corrected a bug which prevented the receiving of datagram

    129. 

  129.               from a UDP socket.

    130. 

  130.               Thank to Mark Melvin (melvin@misrg.ml.org) for pointing it.

    131. 

  131. Dec 20, 1997  V2.24 Added the PeekData function as suggested by Matt Rose

    132. 

  132.               mcrose@avproinc.com

    133. 

  133. Dec 26, 1997  V2.25 Added the Text property as suggested by Daniel P. Stasinski

    134. 

  134.               <dse@pacific.net>. Made GetXPort work even when listening as

    135. 

  135.               suggested by is81024@cis.nctu.edu.tw.

    136. 

  136. Jan 10, 1998  V2.26 Check for null hostname in DNSLookup

    137. 

  137.               Added DnsResultList with all IP addresses returned form DNS

    138. 

  138. Jan 13, 1998  V2.27 a Added MultiThreaaded property to tell the component that

    139. 

  139.               it is working in a thread and should take care of it (call

    140. 

  140.               internal ProcessMessages in place of Application.ProcessMessages,

    141. 

  141.               and do not use the WaitCtrl object).

    142. 

  142. Jan 15, 1998  V2.28 WMAsyncSelect revisited to work properly with NT winsock 2.

    143. 

  143. Feb 10, 1998  V2.29 Added an OnError event. If not assigned, then the component

    144. 

  144.               raise an exception when the error occurs.

    145. 

  145. Feb 14, 1998  V2.30 Published Text property

    146. 

  146. Feb 16, 1998  V2.31 Added virtual methods to trigger events

    147. 

  147.               Renamed all event handler variable to begin with FOn

    148. 

  148. Feb 26, 1998  V2.32 Added procedure PutDataInSendBuffer and PutStringInSendBuffer

    149. 

  149.               Using PutDataInSendBuffer you can place data in the send buffer

    150. 

  150.               without actualy trying to send it. This allows to place several

    151. 

  151.               (probably small) data chunk before the component attempt to send

    152. 

  152.               it. This prevent small packet to be sent. You can call

    153. 

  153.               Send(nil, 0) to force the component to begin to send data.

    154. 

  154.               If the buffer was not empty, PutDataInSendBuffer will just queue

    155. 

  155.               data to the buffer. This data will be sent in sequence.

    156. 

  156. Mar 02, 1998  V2.33 Changed the error check with WSAstartup as pointed out by

    157. 

  157.               Donald Strenczewilk (dstrenz@servtech.com)

    158. 

  158. Mar 06, 1998  V2.34 Added a runtime property to change the buffer size.

    159. 

  159. Mar 27, 1998  V2.35 Adapted for C++Builder 3

    160. 

  160. Apr 08, 1998  V2.36 Made SetDefaultValue virtual

    161. 

  161. Apr 13, 1998  V2.37 Reset FDnsLookupHandle to 0 after a failed call to

    162. 

  162.               WSACancelAsyncRequest

    163. 

  163. Apr 22, 1998  V2.38 Published AllSent property to let outside know if our

    164. 

  164.               buffer has some data unsent.

    165. 

  165. Apr 28, 1998  V2.39 Added LingerOnOff and LingerTimeout. Default values are

    166. 

  166.               wsLingerOn and timeout = 0 to behave by default as before.

    167. 

  167.               This value is setup just before Connect. Call SetLingerOption to

    168. 

  168.               set the linger option on the fly (the connection must be

    169. 

  169.               established to set the option). See winsock.closesocket on line

    170. 

  170.               help (winsock.hlp or win32.hlp) for a dsicussion of this option

    171. 

  171.               usage.

    172. 

  172. May 06, 1998  V2.40 Added a workaround for Trumpet winsock inet_addr bug.

    173. 

  173.               Thanks to Andrej Cuckov <andrej@cuckov.com> for his code.

    174. 

  174. May 18, 1998  V2.41 Jan Tomasek <xtomasej@feld.cvut.cz> found that Trumpet

    175. 

  175.               Winsock (Win 3.11) has some bugs and suggested a workaround in

    176. 

  176.               TryToSend procedure. This workaround makes TWSocket blocking in

    177. 

  177.               some cases. A new property enables the workaround. See code.

    178. 

  178. Jun 01, 1998  V2.42 In finalization section, check for not assigned IPList.

    179. 

  179. Jun 15, 1998  V2.43 Added code to finalization section to unload winsock if

    180. 

  180.               still loaded at that point (this happend if no socket where

    181. 

  181.               created but WinsockInfo called). Suggested by Daniel Fazekas

    182. 

  182.               <fdsoft@dns.gyor-ph.hu>

    183. 

  183. Jun 27, 1998  V2.44 Added checks for valid arguments in SetPort, SetProto

    184. 

  184.               and SetAddr. Deferred address resolution until Connect or Listen.

    185. 

  185. Jul 08, 1998  V2.45 Adadpted for Delphi 4

    186. 

  186. Jul 20, 1998  V2.46 Added SetWindowLong(FWindowHandle, 0, 0) in the destructor

    187. 

  187.               and a check for TWSocket class in XSocketWindowProc.

    188. 

  188.               Added virtual method RealSend.

    189. 

  189. Jul 23, 1998  V2.47 Added a TriggerSessionClosed from TryToSend in case of

    190. 

  190.               send error. This was called before, but with a nul error argument.

    191. 

  191.               Now it correctly gives the error number.

    192. 

  192.               Added a trashcan to receive data if no OnDataAvailable event

    193. 

  193.               handler is installed. Just receive the data and throw it away.

    194. 

  194.               Added reverse dns lookup asynchronous code (IP -> HostName).

    195. 

  195.               Thanks to Daniel Fazekas <fdsoft@dns.gyor-ph.hu> for his code.

    196. 

  196. Jul 30, 1998  V2.48 Changed local variable "error" by FLastError in SocketError

    197. 

  197.               to make it available from the OnError handler. Thanks to

    198. 

  198.               dana@medical-info.com for finding this bug.

    199. 

  199.               In Abort procedure, deleted all buffered data because it was send

    200. 

  200.               the next time the socket is opened !

    201. 

  201.               Added CancelDnsLookup in Abort procedure.

    202. 

  202. Aug 28, 1998  V2.49 Made InternalClose and ReceiveStr virtual

    203. 

  203. Sep 01, 1998  V2.50 Ignore CancelDnsLookup exception during destroy

    204. 

  204. Sep 29, 1998  V2.51 In InternalClose, protect AssignDefaultValue with

    205. 

  205.               try/except because SessionClosed event handler may have destroyed

    206. 

  206.               the component.

    207. 

  207. Oct 11, 1998  V2.52 Changed Shutdown(2) to Shutdown(1) in Internal Close to

    208. 

  208.               prevent data lost on send. You may have to call Shutdown(2) in

    209. 

  209.               your own code before calling Close to have the same behaviour as

    210. 

  210.               before.

    211. 

  211.               Changed argument type for ASyncReceive and passed 0 from FD_CLOSE

    212. 

  212.               message handler.

    213. 

  213. Oct 28, 1998  V2.53 Made WSocketLoadWinsock and WSocketUnloadWinsock public.

    214. 

  214. Nov 11, 1998  V2.54 Added OnDisplay event for debugging purpose

    215. 

  215. Nov 16, 1998  V2.55 Ignore WSANOTINITIALIZED error calling CloseSocket. This

    216. 

  216.               occurs when using TWSocket from a DLL and the finalization

    217. 

  217.               section is called before destroying TWSocket components (this is

    218. 

  218.               a program logic error).

    219. 

  219.               Made some properties and methods protected instead of private.

    220. 

  220.               Made some methods virtual.

    221. 

  221.               Added an Error argument to InternalClose.

    222. 

  222.               Added DoRecv virtual function.

    223. 

  223.               Added WSocketResolvePort

    224. 

  224.               Added WSocketResolveProto

    225. 

  225.               Deferred port and protocol resolution until really needed

    226. 

  226.               Transformed Listen to procedure (in case of failure Listen

    227. 

  227.               always calls SocketError which triggers an exception or the

    228. 

  228.               OnError event).

    229. 

  229. Nov 22, 1998  V3.00 Skipped from V2.55 to V3.00. Socks support is major update!

    230. 

  230.               Added SOCKS5 (RFC-1928) support for TCP connection and

    231. 

  231.               simple usercode passwword authentication.

    232. 

  232.               Consider the socks code as beta !

    233. 

  233.               New properties: SocksServer, SocksPort, SocksUsercode,

    234. 

  234.               SocksPassword, FSocksAuthentication. New events: OnSocksError,

    235. 

  235.               OnSocksConnected, OnSocksAuthState.

    236. 

  236.               I used WinGate 2.1d to test my code. Unfortunately WinGate do

    237. 

  237.               not correctly handle user authentication, so the code here is

    238. 

  238.               just untested...

    239. 

  239. Dec 05, 1998  V3.10 Removed ReadLine feature using TWait component.

    240. 

  240.               Added new TCustomLineWSocket and TCustomSyncWSocket.

    241. 

  241.               Those modifications implies that the ReadLine functionnality is

    242. 

  242.               slightly changed. Notably, the end of line marker is now

    243. 

  243.               configurable and remains in the received line unless a timeout

    244. 

  244.               occurs or the buffer is too small.

    245. 

  245. Dec 10, 1998  V3.11 Added missing code to resolve port in the Listen method.

    246. 

  246. Dec 12, 1998  V3.12 Added write method for LocalPort property. Thanks to

    247. 

  247.               Jan Tomasek <xtomasej@feld.cvut.cz> for his code.

    248. 

  248.               Added background exception handling.

    249. 

  249.               Fixed a bug in TCustomLineWSocket.TriggerDataAvailable which was

    250. 

  250.               not calling the inherited function when it actually should.

    251. 

  251.               Added a check on multithreaded in WaitForClose to call the

    252. 

  252.               correct ProcessMessages procedure.

    253. 

  253.               Added SOCKS4 support (only tcp connect is supported).

    254. 

  254. Dec 28, 1998  V3.13 Changed WSocketResolveHost to check for invalid numeric

    255. 

  255.               IP addresses whitout trying to use them as hostnames.

    256. 

  256. Dec 30, 1998  V3.14 Changed SetPort to SetRemotePort to solve the SetPort

    257. 

  257.               syndrome with BCB. Also chnaged GetPort to be consistant.

    258. 

  258. Jan 12, 1999  V3.15 Introduced DoRecvFrom virtual function. This correct a bug

    259. 

  259.               introduced in V3.14 related to UDP and RecvFrom.

    260. 

  260. Jan 23, 1999  V3.16 Changed FRcvdFlag computation in DoRecv and DoRecvFrom

    261. 

  261.               because it caused problems with HTTP component and large blocks.

    262. 

  262.               Removed modification by Jan Tomasek in TriggerDataAvailable

    263. 

  263. Jan 30, 1999  V3.17 Added WSocketResolveIp function.

    264. 

  264.               Checked for tcp protocol before setting linger off in abort.

    265. 

  265.               Moved a lot of variables from private to protected sections.

    266. 

  266.               Removed check for Assigned(FOnDataSent) in WMASyncSelect.

    267. 

  267. Feb 03, 1999  V3.18 Removed useless units in the uses clause.

    268. 

  268. Feb 14, 1999  V4.00 Jump to next major version number because lots of

    269. 

  269.               fundamental changes have been done. See below.

    270. 

  270. 

    271. 

  271.               Use runtime dynamic link with winsock. All winsock functions

    272. 

  272.               used by TWSocket are linked at runtime instead of loadtime. This

    273. 

  273.               allows programs to run without winsock installed, provided program

    274. 

  274.               doesn't try to use TWSocket or winsock function without first

    275. 

  275.               checking for winsock installation.

    276. 

  276.               Removed WSocketLoadWinsock and all use to DllStarted because it

    277. 

  277.               is no longer necessary because winsock is automatically loaded

    278. 

  278.               and initialized with the first call to a winsock function.

    279. 

  279. 

    280. 

  280.               Added MessagePump to centralize call to the message pump.

    281. 

  281.               It is a virtual procedure so that you can override it to

    282. 

  282.               cutomize your message pump. Also changed slightly ProcessMessages

    283. 

  283.               to closely match what is done in the forms unit.

    284. 

  284. 

    285. 

  285.               Removed old stuff related to WaitCtrl (was already excluded from

    286. 

  286.               compilation using a conditional directive).

    287. 

  287. 

    288. 

  288.               Added NOFORMS conditional compilation to exclude the Forms unit

    289. 

  289.               from wsocket. This will reduce exe or dll size by 100 to 150KB.

    290. 

  290.               To use this feature, you have to add NOFORMS in your project

    291. 

  291.               options in the "defines" edit box in the "directory/conditional"

    292. 

  292.               tab. Then you must add a message pump to your application and

    293. 

  293.               call it from TWSocket.OnMessagePump event handler. TWSocket really

    294. 

  294.               need a message pump in order to receive messages from winsock.

    295. 

  295.               Depending on how your application is built, you can use either

    296. 

  296.               TWSocket.MessageLoop or TWSocket.ProcessMessages to quickly build

    297. 

  297.               a working message pump. Or you may build your own custom message

    298. 

  298.               pump taylored to your needs. Your message pump must set

    299. 

  299.               TWSocket.Terminated property to TRUE when your application

    300. 

  300.               terminates or you may experience long delays when closing your

    301. 

  301.               application.

    302. 

  302.               You may use NOFORMS setting even if you use the forms unit (GUI

    303. 

  303.               application). Simply call Application.ProcessMessages in the

    304. 

  304.               OnMessagePump event handler.

    305. 

  305.               OnMessagePump event is not visible in the object inspector. You

    306. 

  306.               must assign it at run-time before using the component and after

    307. 

  307.               having created it (in a GUI application you can do that in the

    308. 

  308.               FormCreate event, in a console application, you can do it right

    309. 

  309.               after TWSocket.Create call).

    310. 

  310. Feb 17, 1999  V4.01 Added LineEcho and LineEdit features.

    311. 

  311. Feb 27, 1999  V4.02 Added TCustomLineWSocket.GetRcvdCount to make RcvdCount

    312. 

  312.               property and ReceiveStr work in line mode.

    313. 

  313. Mar 01, 1999  V4.03 Added conditional compile for BCB4. Thanks to James

    314. 

  314.               Legg <jlegg@iname.com>.

    315. 

  315. Mar 14, 1999  V4.04 Corrected a bug: wsocket hangup when there was no

    316. 

  316.               OnDataAvailable handler and line mode was on.

    317. 

  317. Apr 21, 1999  V4.05 Added H+ (long strings) and X+ (extended syntax)

    318. 

  318.               compilation options

    319. 

  319. May 07, 1999  V4.06 Added WSAECONNABORTED to valid error codes in TryToSend.

    320. 

  320. Jul 21, 1999  V4.07 Added GetPeerPort method, PeerPort and PeerAddr propertied

    321. 

  321.               as suggested by J. Punter <JPunter@login-bv.com>.

    322. 

  322. Aug 20, 1999  V4.05 Changed conditional compilation so that default is same

    323. 

  323.               as latest compiler (currently Delphi 4, Bcb 4). Should be ok for

    324. 

  324.               Delphi 5.

    325. 

  325.               Added LocalAddr property as suggested by Rod Pickering

    326. 

  326.               <fuzzylogic123@yahoo.com>. LocalAddr default to '0.0.0.0' and is

    327. 

  327.               intended to be used by a client when connecting to a server, to

    328. 

  328.               select a local interface for multihomed computer. Note that to

    329. 

  329.               select an interface for a server, use Addr property before

    330. 

  330.               listening.

    331. 

  331.               LocalAddr has to be an IP address in dotted form. Valid values are

    332. 

  332.               '0.0.0.0' for any interface, '127.0.0.1' for localhost or any

    333. 

  333.               value returned by LocalIPList.

    334. 

  334.               Replaced loadtime import for ntohs and getpeername by runtime

    335. 

  335.               load.

    336. 

  336.               Revised check for dotted numeric IP address in WSocketResolveHost

    337. 

  337.               to allow correct handling of hostnames beginning by a digit.

    338. 

  338.               Added OnSendData event. Triggered each time data has been sent

    339. 

  339.               to winsock. Do not confuse with OnDataSent which is triggered

    340. 

  340.               when TWSocket internal buffer is emptyed. This event has been

    341. 

  341.               suggested by Paul Gertzen" <pgertzen@livetechnology.com> to

    342. 

  342.               easyly implement progress bar.

    343. 

  343.               Corrected WSocketGetHostByAddr to make it dynamically link to

    344. 

  344.               winsock.

    345. 

  345. Sep 5, 1999   V4.09 Added CloseDelayed method.

    346. 

  346.               Make sure that TriggerSessionClosed is called from WMASyncSelect

    347. 

  347.               and InternalClose, even if there is no OnSessionClosed event

    348. 

  348.               handler assigned. This is required to make derived components

    349. 

  349.               work correctly.

    350. 

  350.               Created message WM_TRIGGER_EXCEPTION to help checking background

    351. 

  351.               exception handling (OnBgException event).

    352. 

  352.               Corrected bug for Delphi 1 and ReallocMem.

    353. 

  353. Oct 02, 1999  V4.10 Added Release method.

    354. 

  354. Oct 16, 1999  V4.11 Corrected a bug in TCustomLineWSocket.DoRecv: need to move

    355. 

  355.               data in front of buffer instead of changing buffer pointer which

    356. 

  356.               will crash the whole thing at free time.

    357. 

  357. Oct 23, 1999  V4.12 Made WSocketIsDottedIP a public function

    358. 

  358. Nov 12, 1999  V4.13 removed 3 calls to TriggerSocksAuthState because it was

    359. 

  359.                     called twice. By A. Burlakov <alex@helexis.com>.

    360. 

  360. Jan 24, 1999  V4.14 Call Receive instead of DoRecv from ReceiveStr to be sure

    361. 

  361.               to set LastError correctly. Thanks to Farkas Balazs

    362. 

  362.               <megasys@www.iridium.hu>

    363. 

  363.               Suppressed FDllName and used winsocket constant directly. I had

    364. 

  364.               troubles with some DLL code and string handling at program

    365. 

  365.               termination.

    366. 

  366. Apr 09, 2000 V4.15 Added error number when resolving proto and port

    367. 

  367. Apr 29, 2000 V4.16 Added WSocketForceLoadWinsock and

    368. 

  368.              WSocketCancelForceLoadWinsock. Thanks to Steve Williams.

    369. 

  369.              Created variable FSelectEvent to store current async event mask.

    370. 

  370.              Added ComponentOptions property with currently only one options

    371. 

  371.              wsoNoReceiveLoop which disable a receive loop in AsyncReceive.

    372. 

  372.              This loop breaking was suggested by Davie <smatters@smatters.com>

    373. 

  373.              to lower resource usage with really fast LAN and large transfers.

    374. 

  374.              By default, this option is disabled so there is no change needed

    375. 

  375.              in current code.

    376. 

  376. May 20, 2000 V4.17 Made TSocket = u_int (same def as in winsock.pas)

    377. 

  377.              Moved bind after setting options.

    378. 

  378.              Thanks to Primoz Gabrijelcic <fab@siol.net>

    379. 

  379. Jul 15, 2000 V4.18 Alon Gingold <gingold@hiker.org.il> changed

    380. 

  380.              TCustomSocksWSocket calls to inherited triggers of

    381. 

  381.              TriggerSessionConnected and TriggerDataAvailable.

    382. 

  382.              Now, it calls the trigger directly. This solves the problem

    383. 

  383.              of descendent classes with overridden triggers, not being

    384. 

  384.              called when a REAL connection was established, and when real

    385. 

  385.              data starts coming in. Special care MUST be taken in such

    386. 

  386.              overridden triggers to ONLY call the inherited trigger AND

    387. 

  387.              IMMEDIATELY EXIT when FSocksState <> socksData to avoid loopback

    388. 

  388. Jul 22, 2000 V4.19 John Goodwin <john@jjgoodwin.com> found a failure in the

    389. 

  389.              logic for DnsLookup. He also implemented a workaround.

    390. 

  390.              See DnsLookup comments for explanation.

    391. 

  391. Aug 09, 2000 V4.20 Alon Gingold <gingold2@mrm-multicat.com> found a bug in

    392. 

  392.              SOCKS4 implementation where a nul byte was incorrectly added

    393. 

  393.              (it should be added only with SOCKS4A version, not straith

    394. 

  394.              SOCKS4).

    395. 

  395. Sep 17, 2000 V4.21 Eugene Mayevski <Mayevski@eldos.org> added TWndMethod for

    396. 

  396.              NOFORMS applications in other components.

    397. 

  397. Oct 15, 2000 V4.22 Added method GetXAddr which returns local IP address to

    398. 

  398.              which a socket has been bound. There was already a GetXPort.

    399. 

  399.              Thanks to Wilfried Mestdagh <wilfried_sonal@compuserve.com>

    400. 

  400.              and Steve Williams <stevewilliams@kromestudios.com>.

    401. 

  401. Nov 08, 2000 V4.23 Moved FSelectEvent from private to protected section.

    402. 

  402. Nov 11, 2000 V4.24 Added LineLimit property and OnLineLimitExceeded event.

    403. 

  403.              When using line mode, line length is checked as each data block is

    404. 

  404.              comming. If the length is greater than the limit, then the event

    405. 

  405.              is triggered. You have the opportunity to close the socket or

    406. 

  406.              change the limit to a higher value. Thus you can prevent a hacker

    407. 

  407.              from locking your system by sending unlimited line which otherwise

    408. 

  408.              would eat up all system resources.

    409. 

  409.              Changed line handling variables to LongInt

    410. 

  410.              Checked all length involved in StrPCopy calls.

    411. 

  411. Nov 26, 2000 V4.25 Do not trust GetRcvdCount. Always call Receive to check for

    412. 

  412.              incomming data (sometime NT4 will hang if we don't do that).

    413. 

  413. Jan 24, 2001 V4.26 Blaine R Southam <bsoutham@iname.com> fixed out of bound

    414. 

  414.              error in TCustomLineWSocket.TriggerDataAvailable

    415. 

  415. Feb 17, 2001 V4.27 Davie <smatters@smatters.com> fixed a bug causing byte lost

    416. 

  416.              when closing (related to wsoNoReceiveLoop option).

    417. 

  417. May 04, 2001 V4.28 Fixed W2K bug (winsock message ordering)

    418. 

  418. Jun 18, 2001 V4.29 Added AllocateHWnd and DeallocateHWnd from Forms unit to

    419. 

  419.              avoid warning from Delphi 6 in all other components.

    420. 

  420. Jul 08, 2001 V4.30 Fixed small bug related to NOFOMRS and V4.29

    421. 

  421. Jul 26, 2001 V4.31 Checked csDesigning in GetRcvdCount so that Delphi 6 does'nt

    422. 

  422.              crash when object inspector wants to display RcvdCount value.

    423. 

  423.              Added multicast capability and UDP ReuseAddr. Thanks to Mark

    424. 

  424.              G. Lewis <Lewis@erg.sri.com> for his code.

    425. 

  425.              Added TriggerSessionClosed to SocketError as suggested by Wilfried

    426. 

  426.              Mestdagh <wilfried_sonal@compuserve.com>

    427. 

  427. Jul 28, 2001 V4.32 New option wsoTcpNoDelay implemented. Code by Arnaldo Braun

    428. 

  428.              <abraun@th.com.br>

    429. 

  429. Jul 30, 2001 V4.33 Corrected at few glitches with Delphi 1

    430. 

  430. Sep 08, 2001 V4.34 Added ThreadAttach and related functions

    431. 

  431. Nov 27, 2001 V4.35 Added type definition for in_addr and Delphi 2 (Yes there are

    432. 

  432.              still some peoples who wants to use it. Don't ask me why !).

    433. 

  433. Dec 02, 2001 V4.36 david.brock2@btinternet.com found a bug in SOCKS4 where

    434. 

  434.              error check incorrectly checked "FRcvBuf[1] = #$90" instead of

    435. 

  435.              "FRcvBuf[1] <> #90". He also found a bug when receiving domain name

    436. 

  436.              where length of name was incorrectly copyed to the buffer.

    437. 

  437. Dec 23, 2001 V4.37 Removed bWrite, nMoreCnt, bMoreFlag and nMoreMax which where

    438. 

  438.              not more really used. Thanks to Al Kirk <akirk@pacific.net> for

    439. 

  439.              showing that.

    440. 

  440. Feb 24, 2002 V4.38 Wilfried Mestdagh <wilfried@mestdagh.biz> added ThreadDetach

    441. 

  441.              and a property editor for LineEnd. XSocketDeallocateHWnd made a

    442. 

  442.              function.

    443. 

  443.              I created a new unit WSocketE.pas to put Wilfried's property

    444. 

  444.              editor so that it works correctly with Delphi 6.

    445. 

  445. Apr 24, 2002 V4.39 Removed OnLineTooLong event which was not used anywhere.

    446. 

  446.              Use OnLineLimitExceeded event if you used this event.

    447. 

  447.              Thanks to Alex Kook <cookis@mail.ru> for finding this one.

    448. 

  448. Apr 27, 2002 V4.40 Added procedure WSocketUnregisterClass to be able to

    449. 

  449.              unregister hidden window. This is necessary when TWSocket is

    450. 

  450.              used within a DLL which is unloaded and reloaded by applications,

    451. 

  451.              specially when running with Windows-XP. Thanks to Jean-Michel Aliu

    452. 

  452.              <jmaliu@jmasoftware.com> who provided a test case.

    453. 

  453. Jun 02, 2002 V4.41 allow SOCK_RAW in Connect method for any protocol which is

    454. 

  454.              not TCP or UDP. Thanks to Holger Lembke <holger@hlembke.de>.

    455. 

  455. Jun 04, 2002 V4.42 Do not call Listen for SOCK_RAW.

    456. 

  456.              Thanks to Holger Lembke <holger@hlembke.de>.

    457. 

  457. Jun 08, 2002 V4.43 Add a dummy Register procedure for BCB1.

    458. 

  458.              Thanks to Marc-Alexander Prowe <listen@mohajer.de>.

    459. 

  459. Jul 07, 2002 V4.44 Added code in Connect method to check if socket still opened

    460. 

  460.              after OnChangeState event. If not, trigger an error WSAINVAL.

    461. 

  461. Sep 16, 2002 V4.45 Exposed RcvdPtr and RcvdCnt readonly properties.

    462. 

  462. Sep 17, 2002 V4.46 Used InterlockedIncrement/InterlockedDecrement to Inc/Dec

    463. 

  463.              socket count safely when TWSocket is used within a thread. This

    464. 

  464.              was proposed by Matthew Meadows <matthew.meadows@inquisite.com>

    465. 

  465. Sep 28, 2002 V4.47 Changed DnsLookup so that a hostname is checked for dotted

    466. 

  466.              IP addresse and resolve it numerically. Thanks to Bogdan Calin

    467. 

  467.              <soul4blade@yahoo.com> who found this bug. Alos loaded the result

    468. 

  468.              list with the address to be consistant with real lookup result.

    469. 

  469. Nov 17, 2002 V4.48 Roland Klabunde <roland.klabunde@gmx.net> found a bug in

    470. 

  470.              multicast code: listening on a specific interface was ignored.

    471. 

  471.              He fixed Listen and Connect.

    472. 

  472. Nov 27, 2002 V4.49 Added ListenBacklog property, default to 5.

    473. 

  473. Dec 17, 2002 V4.50 Moved code to virtual function to permit SSL implementation.

    474. 

  474. Jan 19, 2003 V5.00 First pre-release for ICS-SSL. New major version number

    475. 

  475.              V5.01 Gabi Slonto <buffne01@gmx.net> found a bug in DnsLookup

    476. 

  476.              when hostname was actulally a dotted IP address.

    477. 

  477. Mar 18, 2003 V5.02 Fixed WSocketIsDottedIP: reordering of boolean expressions

    478. 

  478.              involaving a string. Thanks to Ian Baker <ibaker@codecutters.org>

    479. 

  479. Apr 30, 2003 V5.03 Replaced all calls to setsockopt by calls to

    480. 

  480.              WSocket_setsockopt to avoid statically linked winsock DLL.

    481. 

  481.              Thanks to Piotr Dalek <enigmatical@interia.pl>.

    482. 

  482.              Also replaced inet_addr by WSocket_inet_addr.

    483. 

  483. Aug 27, 2003 V5.04 Marco van de Voort <marcov@stack.nl> added FreePascal (FPC)

    484. 

  484.              conditional compilation. Please contact him for any FPC support

    485. 

  485.              question.

    486. 

  486. Aug 28, 2003 V5.05 Fixed a multithreading issue related to windows class

    487. 

  487.              registration. Now using a critical section around the code.

    488. 

  488.              Thanks to Bogdan Ureche <bureche@omnivex.com> for his precious help.

    489. 

  489. Aug 31, 2003 V5.06 Added warning about deprecated procedures Synchronize,

    490. 

  490.              WaitUntilReady and ReadLine. Do not use them in new applications.

    491. 

  491. Sep 03, 2003 V5.07 Bogdan Ureche <bureche@omnivex.com> added a critical section

    492. 

  492.              to avoid problem when winsock.dll is unloaded by a thread while

    493. 

  493.              another thread is still using some TWSocket.

    494. 

  494. Sep 15, 2003 V5.08 Fixed finalization section to no free critical section if

    495. 

  495.              a TWSocket is still existing. This happend for example when a

    496. 

  496.              TWSocket is on a form and Halt is called from FormCreate event.

    497. 

  497.              Changed SendStr argument to const.

    498. 

  498. Nov 09, 2003 V5.09 Added manifest constants for Shutdown

    499. 

  499.              Added TCustomLineWSocket.SendLine method.

    500. 

  500. Jan 16, 2004 V5.10 Added "const" in front of all method using strings.

    501. 

  501. Jan 17, 2004 V5.11 Modified TriggerDataAvailable so that when in LineMode, we

    502. 

  502.              check if a line is still in the buffer of already received data.

    503. 

  503.              Also updated WMTriggerDataAvailable to avoid infinite loops.

    504. 

  504.              Introduced FLineFound to flag when a line has been found.

    505. 

  505.              See "OLD_20040117" to find this code.

    506. 

  506. Jan 21, 2004 V5.12 Checked null string in PutStringInSendBuffer and null

    507. 

  507.              pointer in PutDataInSendBuffer.

    508. 

  508. Jan 26, 2004 V5.13 Conditional compilation for BCB for constants for Shutdown.

    509. 

  509.              Reordered uses clause for FPC compatibility.

    510. 

  510.              Fixed TCustomLineWSocket.TriggerDataAvailable to deliver data

    511. 

  511.              already received while in line mode but after component user

    512. 

  512.              turned line mode off in the middle of the way. This could occur

    513. 

  513.              for example in a HTTP application where line mode is used to

    514. 

  514.              receive HTTP header line and turned off when last header line is

    515. 

  515.              found. At that point, if posted data (HTTP document) was completely

    516. 

  516.              in the same packet as the last header line, that data was not

    517. 

  517.              delivered until the next packet comes, which could never occur !

    518. 

  518. Mar 20, 2004 V5.14 Added partial support for RAW socket.

    519. 

  519.              To use RAW sockets, set Proto to 'raw_ip', 'raw_icmp', ...

    520. 

  520.              Set Port to '0' or whatever value is useful for the protocol.

    521. 

  521.              When using IP protocol, you can add option wsoSIO_RCVALL so that

    522. 

  522.              your program receive ALL datagrams when you listen on a given

    523. 

  523.              interface (You can't use 0.0.0.0).

    524. 

  524.              Do not use Connect with RAW socket. Always use Listen and then

    525. 

  525.              use SendTo to send datagrams use the socket.

    526. 

  526.              Added ReqVerHigh and ReqVerLow properties to be able to select

    527. 

  527.              which winsock version you want to load. Default to 1.1 but need

    528. 

  528.              2.2 for RAW sockets to be used.

    529. 

  529. Mar 24, 2004 V5.15 Changed WSocket_Synchronized_ResolveProto to hard code

    530. 

  530.              protocol number for tcp, udp and raw.

    531. 

  531. Apr 17, 2004 V6.00 New major release started. Move all platform and runtime

    532. 

  532.              dependencies to separate units. New base component for handling

    533. 

  533.              component with window handle.

    534. 

  534. Jun 20, 2004 V 5.16 John Mulvey <john@mulvey.eurobell.co.uk> fixed error message

    535. 

  535.              in GetPeerAddr which incorrectly reported an error about

    536. 

  536.              GetPeerName.

    537. 

  537. May 23, 2005 V5.17 PutDataInSendBuffer set bAllSent to false.

    538. 

  538. Jun 03, 2005 V5.18 Added SocketSndBufSize property which gives the size of

    539. 

  539.              winsock internal send buffer. When using TCP, you must make sure

    540. 

  540.              you never use a BufSize equal or greater than this value or

    541. 

  541.              you'll experience bad performances. See description in MSDN

    542. 

  542.              http://support.microsoft.com/default.aspx?scid=kb;en-us;823764

    543. 

  543.              Default value for BufSize is 1460 and SocketSndBufSize is 8192 so

    544. 

  544.              there is no problem when not changing those values.

    545. 

  545. Jun 18, 2005 V5.19 Made TCustomSocksWSocket.Connect accept 'tcp' as well as '6'

    546. 

  546.              for protocol. By Piotr "Hellrayzer" Dalek.

    547. 

  547.              Renamed event OnDisplay to OnDebugDisplay.

    548. 

  548. Sept 4, 2005 V5.20 added BufferedByteCount property used to ensure winsock has sent

    549. 

  549.              data, currently used in TFtpCli to check a put has finished correctly

    550. 

  550.              Thanks to Tobias Giesen <tobias@tgtools.de> for the fix

    551. 

  551. Dec 27, 2005 V6.00a Updated new release with change done in the old release.

    552. 

  552. Dec 31, 2005 V6.00b added new debug and logging event and log levels, replacing

    553. 

  553.              conditional debug code with optional code to avoid rebuilding apps.

    554. 

  554.              Works in combination with new component TIcsLogger.

    555. 

  555.              This is controlled by the new LogOptions property:

    556. 

  556.                loDestEvent - write to OnIcsLogEvent (called from higher level protocols)

    557. 

  557.                loDestFile - write to file debug_out.myprog.txt

    558. 

  558.                loDestOutDebug - write to OutputDebugString (shown in Debugger Event Log window)

    559. 

  559.                loAddStamp - time stamp each log line (accurate only to about 18ms)

    560. 

  560.                loWsockErr - log wsocket errors

    561. 

  561.                loWsockInfo - log wsocket general information

    562. 

  562.                loWsockDump - log wsocket data (not implemented yet)

    563. 

  563.                loSslErr - log SSL errors

    564. 

  564.                loSslInfo - log SSL general information

    565. 

  565.                loSslDump - log SSL packets and data

    566. 

  566.                loProtSpecErr - log protocol specific error

    567. 

  567.                loProtSpecInfo - log protocol specific general information

    568. 

  568.                loProtSpecDump - log protocol specific data and packets

    569. 

  569. Jan 22, 2006 V6.00c Added some KeepAlive stuff (seems winsock is bugged and

    570. 

  570.              doesn't care any setting done !).

    571. 

  571. Jan 28, 2006 V6.00d Gerhard Rattinger fixed SetKeepAliveOption for Delphi 3

    572. 

  572. Mar 09, 2006 V6.00e Arno made properties to select keepalive parameters.

    573. 

  573.              He also fixed ReverseDnsLookup to return a list of

    574. 

  574.              host names (aliases) instead of just the first entry. Added func.

    575. 

  575.              ReverseDnsLookupSync.

    576. 

  576. Apr 27, 2006 V6.00f Roger Tinembart <tinembart@brain.ch> added a critical section

    577. 

  577.              around the list of sendbuffers (FBufHandler) to avoid problems when

    578. 

  578.              the data is placed in the sendbuffer (for example with SendStr)

    579. 

  579.              by a different thread than the one that is effectively sending the

    580. 

  580.              data with TryToSend

    581. 

  581. June 11, 2006 V6.01 Use new TIcsBufferHandler.

    582. 

  582. Aug 06, 2006 V6.02 Angus added GetWinsockErr to give alpha and numeric winsock

    583. 

  583.              errors and improved many other error messages,

    584. 

  584.              and fixed FReadCount for 64-bit downloads

    585. 

  585.              added some EXTERNALSYM for BCB compatiblity

    586. 

  586. Aug 18, 2006 V6.03 Fixed a bug in ASyncReceive(). This bug caused data loss.

    587. 

  587. Oct 28, 2006 V6.04 Added setter for SocketSndBufSize and SocketRcvBufSize

    588. 

  588. Dec 22, 2006 V6.05 Oliver Grahl fixed SendLine to properly count LineEnd characters.

    589. 

  589. Jan 18, 2007 V6.06 Fixed constructor and DeleteBufferedData to behave correctly

    590. 

  590.              when an exception occur in AllocateSocketHWnd.

    591. 

  591. Mar 23, 2007 V6.07 Removed FD_CONNECT from dup().

    592. 

  592. Apr 04, 2007 V6.08 Arno Garrels updated SetKeepAliveOption

    593. 

  593. Mar 10, 2008 V6.09 Francois Piette & Arno Garrels made some changes to

    594. 

  594.                    prepare code for Unicode

    595. 

  595.                    WSocket_gethostname conversion from String to AnsiString

    596. 

  596.                    WSocketGetProc and WSocket2GetProc use AnsiString

    597. 

  597.                    GetAliasList simplified and use AnsiString

    598. 

  598. Apr 25, 2008 V6.10 A. Garrels, added some getters/setters to store and use some

    599. 

  599.              string-property-values as AnsiString internally.

    600. 

  600.              This reduced number of string casts with potential data loss to 17.

    601. 

  601.              These ansi-values are used to call winsock API that doesn't provide

    602. 

  602.              W functions. Modified depending code including some type changes

    603. 

  603.              from PChar to PAnsiChar. Made some casts Unicode => Ansi with

    604. 

  604.              potential data loss *explicit* casts (conditionally compiled) some

    605. 

  605.              unicode strings with only 7 bit ASCII characters are casted using

    606. 

  606.              new function UnicodeToAscii() in new unit OverbyteIcsUtils which

    607. 

  607.              should be fast and reliable and doesn't produce compiler warnings.

    608. 

  608.              Added new warning symbols.

    609. 

  609. Apr 30, 2008 V6.11 A. Garrels - Function names adjusted according to changes in

    610. 

  610.              OverbyteIcsLibrary.pas.

    611. 

  611. May 11, 2008 V6.12 USchuster removed local atoi implementation (atoi is now in

    612. 

  612.              OverbyteIcsUtils.pas)

    613. 

  613. May 15, 2008 V6.13 AGarrels type change of some published String properties

    614. 

  614.              to AnsiString, this is an attempt to avoid too many implicit

    615. 

  615.              string casts, only a few higher level components have been adjusted

    616. 

  616.              accordingly so far.

    617. 

  617. Jun 30, 2008 A.Garrels made some changes to prepare SSL code for Unicode.

    618. 

  618. Jul 04, 2008 V6.11 Rev.58 SSL - Still lacked a few changes I made last year.

    619. 

  619. Jul 13, 2008 V6.12 Added SafeWSocketGCount

    620. 

  620. Aug 03, 2008 V6.16 A. Garrels removed packed from record TExtension.

    621. 

  621. Jul 07, 2008 V6.17 Still a small fix from December 2007 missing in SSL code.

    622. 

  622. Aug 11, 2008 V6.18 A. Garrels - Type AnsiString rolled back to String.

    623. 

  623.              Two bugs fixed in SSL code introduced with Unicode change.

    624. 

  624.              Socks was not fully prepared for Unicode.

    625. 

  625. Sep 19, 2008 V6.19 A. Garrels changed some AnsiString types to RawByteString.

    626. 

  626. Sep 21, 2008 V6.20 A. Garrels removed BoolToStr(), available since D7

    627. 

  627. Oct 22, 2008 V7.21 A. Garrels removed the const modifier from parameter Data

    628. 

  628.              in function SendTo to fix a bug in C++ Builder.

    629. 

  629. Nov 03, 2008 V7.22 Added property Counter, a class reference to TWSocketCounter

    630. 

  630.              which provides some useful automatic counters. By default property

    631. 

  631.              Counter is unassigned and has to be enabled by a call to

    632. 

  632.              CreateCounter.

    633. 

  633. Apr 24, 2009 V7.23 A. Garrels added *experimental* OpenSSL engine support which

    634. 

  634.              is not compiled in by default. You have to uncomment conditional

    635. 

  635.              define OPENSSL_NO_ENGINE in OverbyteIcsSslDefs.inc and rebuild your

    636. 

  636.              packages to get it included. With engine support included a new

    637. 

  637.              published property AutoEnableBuiltinEngines of TSslContext has to

    638. 

  638.              be set to TRUE in order to enable OpenSSL's built-in hardware

    639. 

  639.              accelerators support, that's all.

    640. 

  640. 

    641. 

  641.              ******************************************************************

    642. 

  642.              * Due to the lack of hardware this feature is completely untested*

    643. 

  643.              ******************************************************************

    644. 

  644. 

    645. 

  645.              Any feedback and fixes are welcome, please contact the ICS mailing

    646. 

  646.              list. The OpenSSL engine documentation can be found here:

    647. 

  647.              http://openssl.org/docs/crypto/engine.html

    648. 

  648. 

    649. 

  649.              Additionally a new component TSslEngine is installed on the palette.

    650. 

  650.              Its purpose is to control (dynamic) engines.

    651. 

  651. 

    652. 

  652.              Typically control commands of an OpenSC dynamic pkcs11 engine

    653. 

  653.              (SmartCard) are :

    654. 

  654. 

    655. 

  655.              Cmds.Add('SO_PATH=d:\opensc\bin\engine_pkcs11.dll');

    656. 

  656.              Cmds.Add('ID=pkcs11');

    657. 

  657.              Cmds.Add('LIST_ADD=1');

    658. 

  658.              Cmds.Add('LOAD=');

    659. 

  659.              Cmds.Add('MODULE_PATH=d:\opensc\bin\opensc-pkcs11.dll');

    660. 

  660.              Cmds.Add('INIT='); <= Special ICS-control command to initialize the engine  

    661. 

  661. 

    662. 

  662.              Sample test code (Dod couldn't get it working :(

    663. 

  663. 

    664. 

  664.              It assumes that the X509 certificate has been exported from

    665. 

  665.              the SmartCard to PEM file that is available in property

    666. 

  666.              SslCertFile. It's also assumed that SslEngine1 is created

    667. 

  667.              dynamically at run-time in this sample.

    668. 

  668.              We are in new event TSslContext.OnBeforeInit:

    669. 

  669. 

    670. 

  670.              if not Assigned(SslEngine1) then

    671. 

  671.              begin

    672. 

  672.                 SslEngine1 := TSslEngine.Create(Self);

    673. 

  673.                 try

    674. 

  674.                   SslEngine1.NameID := 'dynamic';

    675. 

  675. 

    676. 

  676.                   // The SmartCard holds the private key.

    677. 

  677.                   // Next two lines advise SslContext to load the key

    678. 

  678.                   // from the engine instead from PEM file.

    679. 

  679.                   TSslContext(Sender).CtxEngine := SslEngine1;

    680. 

  680.                   SslEngine1.CtxCapabilities := [eccLoadPrivKey];

    681. 

  681. 

    682. 

  682.                   // The PIN code is expected in property SslPassPhrase

    683. 

  683.                   TSslContext(Sender).SslPassPhrase := 'ics';

    684. 

  684. 

    685. 

  685.                   // Tell the engine which key to use.

    686. 

  686.                   SslEngine1.KeyID := KeyIdEdit.Text;

    687. 

  687. 

    688. 

  688.                   // At first open the engine

    689. 

  689.                   if not SslEngine1.Open then

    690. 

  690.                       raise Exception.Create(FEngine.LastErrorMsg);

    691. 

  691. 

    692. 

  692.                   // Now send our vendor specific control commands

    693. 

  693.                   for I := 0 to Cmds.Count -1 do

    694. 

  694.                   begin

    695. 

  695.                     if not SslEngine1.Control(Cmds.Names[I],

    696. 

  696.                                               Cmds.ValueFromIndex[I]) then

    697. 

  697.                         raise Exception.Create(SslEngine1.LastErrorMsg);

    698. 

  698.                   end;

    699. 

  699. 

    700. 

  700.                   Display('Engine set up and loaded successfully');

    701. 

  701.                 except

    702. 

  702.                     FreeAndNil(SslEngine1);

    703. 

  703.                     raise;

    704. 

  704.                 end;

    705. 

  705.              end;

    706. 

  706. 

    707. 

  707. Jun 12, 2009 V7.24 Angus added WriteCount property, how many bytes sent since

    708. 

  708.                      connection opened

    709. 

  709.                    Only reset ReadCount when connection opened, not closed

    710. 

  710. Jul 16, 2009 V7.25 Arno fixed and changed SetCounterClass()

    711. 

  711. Jul 19, 2009 V7.26 Arno - SSL code ignored FPaused flag, the change is in

    712. 

  712.                    TCustomSslWSocket.TriggerEvent.

    713. 

  713. Sep 04, 2009 V7.27 Set option TCP_NODELAY in Dup as well as provide a public

    714. 

  714.                    method to set this option, similar as suggested by

    715. 

  715.                    Samuel Soldat.

    716. 

  716. Sep 08, 2009 V7.28 Arno - Minor Unicode bugfix in TX509Base.GetExtension().

    717. 

  717. Sep 09, 2009 V7.29 Arno - Added new public methods TX509Base.WriteToBio() and

    718. 

  718.                    TX509Base.ReadFromBio(). Method SafeToPemFile got an arg.

    719. 

  719.                    that adds human readable certificate text to the output.

    720. 

  720.                    InitializeSsl inlined. Removed a Delphi 1 conditional.

    721. 

  721. Sep 17, 2009 V7.30 Anton Sviridov optimized setting of SSL options.

    722. 

  722. Sep 17, 2009 V7.31 Arno fixed a Unicode bug in TX509Base.GetExtension and

    723. 

  723.                    a general bug in TX509Base.GetSha1Hash (AnsiString as

    724. 

  724.                    digest buffer should really be avoided)

    725. 

  725. Sep 18, 2009 V7.32 Arno changed visibility of TX509Base.WriteToBio() and

    726. 

  726.                    TX509Base.ReadFromBio() to protected.

    727. 

  727. Nov 01, 2009 V7.33 Arno fixed a memory overwrite bug in

    728. 

  728.                    TCustomSocksWSocket.DoRecv().

    729. 

  729. Nov 07, 2009 V7.34 OpenSSL V0.9.8L disables session renegotiation due to

    730. 

  730.                    TLS renegotiation vulnerability.

    731. 

  731. Dec 20, 2009 V7.35 Arno added support for SSL Server Name Indication (SNI).

    732. 

  732.                    SNI has to be turned on in OverbyteIcsSslDefs.inc, see define

    733. 

  733.                    "OPENSSL_NO_TLSEXT". Exchanged symbol "NO_ADV_MT" in the

    734. 

  734.                    SSL source by "NO_SSL_MT" (This and SNI was sponsored by

    735. 

  735.                    Fastream Technologies).

    736. 

  736.                    SNI Howto: In SSL server mode assign event OnSslServerName,

    737. 

  737.                    it triggers whenever a client sent a server name in the TLS

    738. 

  738.                    client helo. From the event handler read public property

    739. 

  739.                    SslServerName, lookup and pass a matching, valid and

    740. 

  740.                    initialized SslContext instance associated with the server name.

    741. 

  741.                    In SSL client mode, if property SslServerName was not empty

    742. 

  742.                    this server name is sent to the server in the TLS client helo.

    743. 

  743.                    Currently IE 7 and FireFox >= V2 support SNI, note that both

    744. 

  744.                    browers don't send both "localhost" and IP addresses as

    745. 

  745.                    server names, this is specified in RFC.

    746. 

  746. Dec 24, 2009 V7.36 SSL SNI - Do not switch context if not initialized.

    747. 

  747. Dec 26, 2009 V7.37 Arno fixed TCustomSyncWSocket.ReadLine for Unicode. It

    748. 

  748.                    now takes an AnsiString buffer. Since this method is highly

    749. 

  749.                    deprecated it's also marked as "deprecated". Do not use it

    750. 

  750.                    in new applications.

    751. 

  751. May 08, 2010 V7.38 Arno Garrels added support for OpenSSL 0.9.8n. Read comments

    752. 

  752.                    in OverbyteIcsLIBEAY.pas for details.

    753. 

  753. May 16, 2010 V7.39 Arno Garrels reenabled check for nil in WMAsyncGetHostByName.

    754. 

  754. Jun 10, 2010 V7.40 Arno Garrels added experimental timeout and throttle feature

    755. 

  755.                    to TWSocket. Currently both features have to be enabled

    756. 

  756.                    explicitly with conditional defines BUILTIN_TIMEOUT

    757. 

  757.                    and/or BUILTIN_THROTTLE (see OverbyteIcsDefs.inc )

    758. 

  758. Aug 02, 2010 V7.41 Arno removed an option to send plain UTF-16 strings with

    759. 

  759.                    SendStr() and SendLine() by passing 1200 (CP_UTF16) in the

    760. 

  760.                    codepage parameter. Changed SendLine() to return correct

    761. 

  761.                    number of bytes written.

    762. 

  762. Aug 08, 2010 V7.42 FPiette prevented socket close in TCustomWSocket.Destroy when

    763. 

  763.                    socket state is wsInvalidState (this happend when an

    764. 

  764.                    exception is raise early in the constructor).

    765. 

  765. Sep 05, 2010 V7.43 Arno fixed a bug in the experimental throttle and timeout

    766. 

  766.                    source which made it impossible to use both features at the

    767. 

  767.                    same time. Renamed conditionals EXPERIMENTAL_THROTTLE and

    768. 

  768.                    EXPERIMENTAL_TIMEOUT to BUILTIN_THROTTLE and BUILTIN_TIMEOUT.

    769. 

  769.                    It's now possible to either enable them in OverbyteIcsDefs.inc

    770. 

  770.                    or define them in project options.

    771. 

  771. Sep 08, 2010 V7.44 Arno reworked the experimental timeout and throttle code.

    772. 

  772.       …
    773.

Large files files are truncated, but you can click here to view the full file