Hallo, her mal der Code der Eigenen Klasse:
Delphi-Quellcode:
unit Livetrack;
interface
uses IdFTP, IdHTTP;
type TFTP =
class(TIDFTP)
end;
type THTTP =
class(TIDHTTP)
end;
type TLivetrack =
class(TObject)
private
{private Vars}
FHTTP : THTTP;
FFTP : TFTP;
FCacheDirectory :
string;
FFTPHost :
String;
FFTPDirectory :
String;
FFTPLoginName :
String;
FFTPPassword :
String;
FHTTPUrl :
String;
FFileName :
String;
FVID :
String;
{Set Procedures}
procedure SetCacheDirectory(Directory :
String);
procedure SetFTPHost(Host :
String);
procedure SetFTPDirectory(Directory :
String);
procedure SetFTPLoginName(LoginName :
String);
procedure SetFTPPassword(Password :
String);
procedure SetHTTPUrl(
URL :
String);
procedure SetFileName(FileName :
String);
procedure SetVID(VID :
String);
{get Functions}
function GetCacheDirectory :
String;
function GetFTPHost :
String;
function GetFTPDirectory :
String;
function GetFTPLoginName :
String;
function GetFTPPassword :
String;
function GetHTTPUrl :
String;
function GetFileName :
String;
function GetVID :
String;
public
{Functions}
constructor create(
const CacheDirectory :
String;
const FTPHost :
string;
const FTPDirectory :
string;
const FTPLoginName :
string;
const FTPPassword :
string;
const HTTPUrl :
String;
const FileName :
String;
const VID :
string);
overload;
constructor create(
const CacheDirectory :
String;
const FTPHost :
string;
const FTPDirectory :
string;
const FTPLoginName :
string;
const FTPPassword :
string;
const HTTPUrl :
String;
const FileName :
String);
overload;
destructor free ;
{properties}
property CacheDirectory :
String read GetCacheDirectory
write SetCacheDirectory;
property FTPHost :
String read GetFTPHost
write SetFTPHost;
property FTPDirectory :
String read GetFTPDirectory
write SetFTPDirectory;
property FTPLoginName :
String read GetFTPLoginName
write SetFTPLoginName;
property FTPPassword :
String read GetFTPPassword
write SetFTPPassword;
property HTTPUrl :
String read GetHTTPUrl
write SetHTTPUrl;
property FileName :
String read GetFileName
write SetFileName;
property VID :
String read GetVID
write SetVID;
end;
implementation
{Set Procedures}
procedure TLivetrack.SetCacheDirectory(Directory :
String);
begin
end;
procedure TLivetrack.SetFTPHost(Host :
String);
begin
end;
procedure TLivetrack.SetFTPDirectory(Directory :
String);
begin
end;
procedure TLivetrack.SetFTPLoginName(LoginName :
String);
begin
end;
procedure TLivetrack.SetFTPPassword(Password :
String);
begin
end;
procedure TLivetrack.SetHTTPUrl(
URL :
String);
begin
end;
procedure TLivetrack.SetFileName(FileName :
String);
begin
end;
procedure TLivetrack.SetVID(VID :
String);
begin
end;
// Ende Set Procedures
////////////////////////////////////////////////////////////////////////////////
{Get Functions}
function TLivetrack.GetCacheDirectory :
String;
begin
end;
function TLivetrack.GetFTPHost :
String;
begin
end;
function TLivetrack.GetFTPDirectory :
String;
begin
end;
function TLivetrack.GetFTPLoginName :
String;
begin
end;
function TLivetrack.GetFTPPassword :
String;
begin
end;
function TLivetrack.GetHTTPUrl :
String;
begin
end;
function TLivetrack.GetFileName :
String;
begin
end;
function TLivetrack.GetVID :
String;
begin
end;
// Ende Get Functions
////////////////////////////////////////////////////////////////////////////////
{Constructor}
constructor TLivetrack.create(
const CacheDirectory :
String;
const FTPHost :
string;
const FTPDirectory :
string;
const FTPLoginName :
string;
const FTPPassword :
string;
const HTTPUrl :
String;
const FileName :
String);
begin
inherited create;
self.FFTP := TFTP.Create();
end;
constructor TLivetrack.create(
const CacheDirectory :
String;
const FTPHost :
string;
const FTPDirectory :
string;
const FTPLoginName :
string;
const FTPPassword :
string;
const HTTPUrl :
String;
const FileName :
String;
const VID :
string);
begin
end;
// Ende Constructor
////////////////////////////////////////////////////////////////////////////////
{Destructor}
destructor TLivetrack.free;
begin
end;
// Ende Destructor
////////////////////////////////////////////////////////////////////////////////
end.
Ich habe jetzt folgendes Problem:
Wenn ich beim Constructor von TLivetrack einen IDFTP erzeugen will, muss man ja TComponent des Besitzers angeben. Wie mache ich das? Er gehört ja zum Object Livetrack...