How to migrate from the Clever Internet Suite Version 1.0 to Version 2.x

Submitted on June 24, 2002

Modifications of the Clever Internet Suite Version 2.0 external interface

TclDownLoader component

Methods

Version 1.0	Version 2.0
DownLoad	Start(IsAsynch: Boolean = True)
GetResourceInfo(IsAsynch: Boolean): TclResourceInfo;	GetResourceInfo(IsAsynch: Boolean = True): TclResourceInfo;

Properties

Version 1.0	Version 2.0
SaveToFile	LocalFile
SaveToFolder	LocalFolder
Priority: TclDownLoadPriority	Priority: TclProcessPriority

Events

Version 1.0	Version 2.0
OnDownLoadEvent (Sender: TObject; Status: TclDownLoadStatus)	OnStatusChanged (Sender: TObject; Status: TclProcessStatus)
OnURLParsed (Sender: Tobject; URLComponents: TURLComponents)	OnURLParsing (Sender: TObject; var URLComponents: TURLComponents)
OnError (Sender: TObject; Error: String)	OnError (Sender: TObject; const Error: string)

TclMultiDownLoader component

The parameter type of all the events is equal to the base internet element.

Methods

Version 1.0	Version 2.0
DownLoad(Item: TclDownLoadItem = nil)	Start (Item: TclInternetItem = nil; IsAsynch: Boolean = True)
GetResourceInfo(Item: TclDownLoadItem = nil; IsAsynch: Boolean = False): TclResourceInfo	GetResourceInfo(Item: TclInternetItem = nil; IsAsynch: Boolean = True): TclResourceInfo
Stop(Item: TclDownLoadItem = nil)	Stop(Item: TclInternetItem = nil)

Properties

Version 1.0	Version 2.0
SaveToFolder	LocalFolder

Events

Version 1.0	Version 2.0
OnGetResourceInfo (Sender: TObject; Item: TclDownLoadItem; ResourceInfo: TclResourceInfo)	OnGetResourceInfo (Sender: TObject; Item: TclInternetItem; ResourceInfo: TclResourceInfo)
OnDownLoadEvent (Sender: TObject; Item: TclDownLoadItem; Status: TclDownLoadStatus)	OnStatusChanged (Sender: TObject; Item: TclInternetItem; Status: TclProcessStatus)
OnURLParsed (Sender: TObject; Item: TclDownLoadItem; URLComponents: TURLComponents)	OnURLParsing (Sender: TObject; Item: TclInternetItem; var URLComponents: TURLComponents)
OnError (Sender: TObject; Item: TclDownLoadItem; Error: String)	OnError (Sender: TObject; Item: TclInternetItem; const Error: string)
OnDataItemProceed (Sender: TObject; Item: TclDownLoadItem; ResourceInfo: TclResourceInfo; BytesProceed: Integer; CurrentData: PChar; CurrentDataSize: Integer)	OnDataItemProceed (Sender: TObject; Item: TclInternetItem; ResourceInfo: TclResourceInfo; BytesProceed: Integer; CurrentData: Pchar; CurrentDataSize: Integer)
OnDataProceed (Sender: TObject; Item: TclDownLoadItem; Data: PChar; Size: Integer)	OnDataProceed (Sender: TObject; Item: TclInternetItem; Data: PChar; Size: Integer)
OnDataTextProceed (Sender: TObject; Item: TclDownLoadItem; Text: TStrings)	OnDataTextProceed (Sender: TObject; Item: TclInternetItem; Text: TStrings)
OnChanged (Sender: TObject; Item: TclDownLoadItem)	OnChanged (Sender: TObject; Item: TclInternetItem)

TclDownLoadItem collection item

The parameter type of all the events is equal to the base internet element.

Methods

Version 1.0	Version 2.0
DownLoad	Start (IsAsynch: Boolean)

Properties

Version 1.0	Version 2.0
SaveToFile	LocalFile
Priority: TclDownLoadPriority	Priority: TclProcessPriority

TclNewsChecker component

Taking into account the statistics on the this component using and trying to make modules more independent, the ability to perform file opening via the ShellExecute function of ShellApi by default was excluded from version 2.0. Nevertheless, this functionality can be easily compensated via the following code placed into an OnNewsExist event handler:

ShellExecute(0, 'open', PChar(LocalFile), nil, nil, SW_RESTORE);

Methods

Version 1.0	Version 2.0
Check(AlwaysShow: Boolean)	-
Show	-
DownLoad	Start(IsAsynch: Boolean = True)
GetResourceInfo(IsAsynch: Boolean): TclResourceInfo	GetResourceInfo(IsAsynch: Boolean = True): TclResourceInfo;

Properties

Version 1.0	Version 2.0
SaveToFile	LocalFile
SaveToFolder	LocalFolder
Priority: TclDownLoadPriority	Priority: TclProcessPriority

Events

Version 1.0	Version 2.0
OnDownLoadEvent (Sender: TObject; Status: TclDownLoadStatus)	OnStatusChanged (Sender: TObject; Status: TclProcessStatus)
OnURLParsed (Sender: TObject; URLComponents: TURLComponents)	OnURLParsing (Sender: TObject; var URLComponents: TURLComponents)
OnError (Sender: TObject; Error: String)	OnError (Sender: TObject; const Error: string)
OnShow (Sender: TObject; AFile: string; var Handled: Boolean)	OnNewsExist (Sender: Tobject)