unit LivetrackWorkerThreadJob;
interface
uses Livetrack, csWorkerThreadPool;
implementation
type TLivetrackWorkerThreadJob =
class(TWorkerThreadJob)
private
fName :
string;
fATC :
string;
fTool :
string;
//fVID : string;
fLivetrack : TLivetrack;
protected
procedure Execute(AThread : TWorkerThread);
override;
public
constructor create(Livetrack : TLivetrack;
Name :
string; ATC :
string; Tool :
string);
end;
constructor TLivetrackWorkerThreadJob.create(Livetrack : TLivetrack;
Name :
string; ATC :
string; Tool :
string);
begin
inherited create;
self.fLivetrack := TLivetrack.Create;
self.fLivetrack := Livetrack;
self.fName :=
Name;
self.fATC := ATC;
self.fTool := Tool;
end;
procedure TLivetrackWorkerThreadJob.Execute(AThread : TWorkerThread);
begin
self.fLivetrack.download(5000);
self.fLivetrack.refresh(self.fName,self.fATC,self.fTool);
self.fLivetrack.ConnectFTP(5000);
self.fLivetrack.upload;
self.fLivetrack.UploadInfoDaten;
self.fLivetrack.DisconnectFTP;
end;
end.