Thanks for your feedback. You'll see your correction in the next version.
--
[EMAIL PROTECTED]
http://www.overbyte.be
----- Original Message -----
From: "Gerhard Rattinger" <[EMAIL PROTECTED]>
To: <twsocket@elists.org>
Sent: Friday, January 27, 2006 9:04 PM
Subject: [twsocket] Using ICS for Delphi/C++Builder Beta (Jan 22,2006) with
Delphi 3
> There are two problems, if You try to complie ICSDel30.dpk with Delphi 3:
>
> First problem is in WSocket.pas - Method SetKeepAliveOption
>
> For Delphi3 BytesReturned must be of type DWORD instead of Cardinal
>
> Possible correction:
>
> **************************************************************
> old:
> **************************************************************
> procedure TCustomWSocket.SetKeepAliveOption;
> var
> OptVal : Integer;
> Status : Integer;
> KeepAliveIn : TTcpKeepAlive;
> KeepAliveOut : TTcpKeepAlive;
> BytesReturned : Cardinal;
> begin
> .
> .
> .
>
> **************************************************************
> new:
> **************************************************************
>
> procedure TCustomWSocket.SetKeepAliveOption;
> var
> OptVal : Integer;
> Status : Integer;
> KeepAliveIn : TTcpKeepAlive;
> KeepAliveOut : TTcpKeepAlive;
> // 26.01.2006 Ra must be DWORD for Compilation using Delphi 3
> {$IFDEF DELPHI3}
> BytesReturned : DWORD;
> {$ELSE}
> BytesReturned : Cardinal;
> {$ENDIF}
> begin
> .
> .
> .
>
>
> Second problem is in MimeUtil.pas - Delphi 3 has no definition for
> TSysCharSet
>
> Possible correction:
>
> **************************************************************
> old:
> **************************************************************
> uses
> SysUtils, Classes;
>
> const
> TMimeUtilsVersion = 103;
> CopyRight : String = ' MimeUtils (c) 1997-2006 F. Piette V1.03 ';
>
> SpecialsRFC822 : TSysCharSet = ['(', ')', '<', '>', '@', ',', ';', ':',
> '\', '"', '[', ']', '.'];
> .
> .
> .
> **************************************************************
> new:
> **************************************************************
> uses
> SysUtils, Classes;
>
> // 26.01.2006 Ra Delphi 3 has no definition for TSysCharSet, so let's
> define
> it here
> {$IFDEF DELPHI3}
> type
> TSysCharSet = set of char;
> {$ENDIF}
>
> const
> TMimeUtilsVersion = 103;
> CopyRight : String = ' MimeUtils (c) 1997-2006 F. Piette V1.03 ';
>
> SpecialsRFC822 : TSysCharSet = ['(', ')', '<', '>', '@', ',', ';', ':',
> '\', '"', '[', ']', '.'];
>
> // 26.01.2006 Ra Delphi 3 has no definition for TSysCharSet, so let's
> define
> it here
> {$IFDEF DELPHI3}
> type
> TSysCharSet = set of char;
> {$ENDIF}
> .
> .
>
>
> best regards
>
> Gerhard Rattinger
>
> Schwer+Kopka GmbH
> Herknerstr. 4
> 88250 Weingarten
> Telefon 07 51/56 164-0
> Fax 07 51/56 164-10
> E-mail: [EMAIL PROTECTED]
>
> --
> To unsubscribe or change your settings for TWSocket mailing list
> please goto http://www.elists.org/mailman/listinfo/twsocket
> Visit our website at http://www.overbyte.be
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
