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
