Changeset 231 for oup/current/FileClasses

Timestamp:

Jun 21, 2007, 12:24:04 AM (17 years ago)

Author:

alloc

Message:

 

Location:

oup/current/FileClasses

Files:

• _Extensions.pas (modified) (1 diff)
• _FileTypes.pas (modified) (5 diffs)

oup/current/FileClasses/_Extensions.pas

@@ -2 +2 @@
 
 interface
+
+uses
+  _FileTypes;
 
 type

oup/current/FileClasses/_FileTypes.pas

@@ -11 +11 @@
     protected
       FConnectionID: Integer;
-      FFileID: Integer;
-      FFileName: String;
-      FFileExt: String;
-      FFileSize: Integer;
+      FFileInfo: TFileInfo;
       FFileStream: TMemoryStream;
 
@@ -45 +42 @@
 
       property FileStream: TMemoryStream read FFileStream;
-      property FileID: Integer read FFileID;
-      property FileName: String read FFileName;
-      property FileExt: String read FFileExt;
-      property FileSize: Integer read FFileSize;
+      property FileInfo: TFileInfo read FFileInfo;
       property ConnectionID: Integer read FConnectionID;
 
@@ -84 +78 @@
 
 constructor TFile.Create(ConnectionID, FileID: Integer);
-var
-  fileinfo: TFileInfo;
 begin
   FConnectionID := ConnectionID;
-  FFileID := FileID;
-  fileinfo := ConManager.Connection[ConnectionID].GetFileInfo(FileID);
-  FFileName := fileinfo.Name;
-  FFileExt := fileinfo.Extension;
-  FFileSize := fileinfo.Size;
+  FFileInfo := ConManager.Connection[ConnectionID].GetFileInfo(FileID);
 
   FCached := False;
@@ -235 +223 @@
 procedure TFile.InitDatLinks;
 begin
-  FDatLinks := ConManager.Connection[FConnectionID].GetDatLinks(FFileID);
+  FDatLinks := ConManager.Connection[FConnectionID].GetDatLinks(FFileInfo.ID);
 end;
 
@@ -245 +233 @@
 procedure TFile.InitRawList;
 begin
-  FRawParts := ConManager.Connection[FConnectionID].GetRawList(FFileID);
+  FRawParts := ConManager.Connection[FConnectionID].GetRawList(FFileInfo.ID);
 end;