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:
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
