Changeset 210 for oup/current/FileClasses

Timestamp:

Jun 5, 2007, 12:12:31 AM (17 years ago)

Author:

alloc

Message:

 

Location:

oup/current/FileClasses

Files:

• TXMP.pas (modified) (1 diff)
• _FileTypes.pas (modified) (4 diffs)

oup/current/FileClasses/TXMP.pas

@@ -111 +111 @@
   SetLength(FDatLinks, 2);
   FDatLinks[0].SrcOffset := $94;
-  FDatLinks[0].DestID := GetDatLinkValue(FFile, $94);
+  FDatLinks[0].DestID := GetDatLinkValue(FFileStream, $94);
   FDatLinks[0].PosDestExts := '*';
   FDatLinks[1].SrcOffset := $98;
-  FDatLinks[1].DestID := GetDatLinkValue(FFile, $98);
+  FDatLinks[1].DestID := GetDatLinkValue(FFileStream, $98);
   FDatLinks[1].PosDestExts := 'TXMP';
 end;

oup/current/FileClasses/_FileTypes.pas

@@ -13 +13 @@
       FFileID: Integer;
       FFileName: String;
-      FFile: TMemoryStream;
+      FFileExt: String;
+      FFileSize: Integer;
+      FFileStream: TMemoryStream;
 
       FDatLinks: TDatLinkList;
@@ -33 +35 @@
       procedure Free;
 
-      property FileStream: TMemoryStream read FFile;
+      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 ConnectionID: Integer read FConnectionID;
 
@@ -66 +70 @@
 var
   i: Integer;
+  fileinfo: TFileInfo;
 begin
   FConnectionID := ConnectionID;
   FFileID := FileID;
-  FFileName := ConManager.Connection[ConnectionID].GetFileInfo(FileID).Name;
+  fileinfo := ConManager.Connection[ConnectionID].GetFileInfo(FileID);
+  FFileName := fileinfo.Name;
+  FFileExt := fileinfo.Extension;
+  FFileSize := fileinfo.Size;
 
-  FFile := TMemoryStream.Create;
-  ConManager.Connection[ConnectionID].LoadDatFile(FileID, TStream(FFile));
+  FFileStream := TMemoryStream.Create;
+  ConManager.Connection[ConnectionID].LoadDatFile(FileID, TStream(FFileStream));
 
   InitDatLinks();
@@ -78 +86 @@
   InitRawList();
 
-  FFile.Free;
-  FFile := nil;
+  FFileStream.Free;
+  FFileStream := nil;
 end;