Class TCheckInternetThread

Unit

CheckInternetUnit

Declaration

type TCheckInternetThread = class(TThread)

Description

Hierarchy

• TThread
• TCheckInternetThread

Overview

Fields

	FModelVersion: string;
	FIniFile: TMemInifile;
	FShowVideos: Boolean;
	FBrowser: string;
	FAppName: string;
	FVideoURLs: TStringList;
	FUpdateText: TStringList;
	FLastTipDate: Extended;
	FCurrentURL: String;
	FCurrentUrlHasBeenDisplayed: Boolean;
	FLastCheckInternetDate: TDateTime;
	FNewVideoCount: Integer;
	FVersionOnWeb: string;

Methods

	procedure CheckWeb;
	procedure ReadIniFile;
	function CheckVersion(const ExternalVersionString: string): TVersionCompare;
	procedure ShowNewVersionMessage;
	procedure GetAppName;
	procedure CheckCurrentUrl;
	procedure UpdateIniFile;
	procedure DestroyIniFile;
	procedure NewVideoMessage;
	Constructor Create(ModelVersion: string; IniFile: TMemInifile; ShowTips: boolean);
	destructor Destroy; override;
	procedure Execute; override;

Description

Fields

	FModelVersion: string;

	FIniFile: TMemInifile;

	FShowVideos: Boolean;

	FBrowser: string;

	FAppName: string;

	FVideoURLs: TStringList;

	FUpdateText: TStringList;

	FLastTipDate: Extended;

	FCurrentURL: String;

	FCurrentUrlHasBeenDisplayed: Boolean;

	FLastCheckInternetDate: TDateTime;

	FNewVideoCount: Integer;

	FVersionOnWeb: string;

Methods

	procedure CheckWeb;

	procedure ReadIniFile;

	function CheckVersion(const ExternalVersionString: string): TVersionCompare;

	procedure ShowNewVersionMessage;

	procedure GetAppName;

	procedure CheckCurrentUrl;

	procedure UpdateIniFile;

	procedure DestroyIniFile;

	procedure NewVideoMessage;

	Constructor Create(ModelVersion: string; IniFile: TMemInifile; ShowTips: boolean);

	destructor Destroy; override;

	procedure Execute; override;