Einzelnen Beitrag anzeigen

SimStar001

Registriert seit: 18. Jan 2008
594 Beiträge
 
#3

Re: Klasse wird nicht erkannt nach einbinden der Unit?

  Alt 4. Jun 2009, 17:39
Hier meine Klasse :

Delphi-Quellcode:
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.

und so der Aufruf in meinem Programm:

var Test : TLivetrackWorkerThreadJob;
Wenn ich allerdings die komplette Klasse so wie sie ist in die Main Unit kopiere dann gehts!!! Ich versteh des net!
  Mit Zitat antworten Zitat