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

Submitted 24 June 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)