Changeset 210 for oup/current


Ignore:
Timestamp:
Jun 5, 2007, 12:12:31 AM (18 years ago)
Author:
alloc
Message:
 
Location:
oup/current
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • oup/current/FileClasses/TXMP.pas

    r209 r210  
    111111  SetLength(FDatLinks, 2);
    112112  FDatLinks[0].SrcOffset := $94;
    113   FDatLinks[0].DestID := GetDatLinkValue(FFile, $94);
     113  FDatLinks[0].DestID := GetDatLinkValue(FFileStream, $94);
    114114  FDatLinks[0].PosDestExts := '*';
    115115  FDatLinks[1].SrcOffset := $98;
    116   FDatLinks[1].DestID := GetDatLinkValue(FFile, $98);
     116  FDatLinks[1].DestID := GetDatLinkValue(FFileStream, $98);
    117117  FDatLinks[1].PosDestExts := 'TXMP';
    118118end;
  • oup/current/FileClasses/_FileTypes.pas

    r209 r210  
    1313      FFileID: Integer;
    1414      FFileName: String;
    15       FFile: TMemoryStream;
     15      FFileExt: String;
     16      FFileSize: Integer;
     17      FFileStream: TMemoryStream;
    1618
    1719      FDatLinks: TDatLinkList;
     
    3335      procedure Free;
    3436
    35       property FileStream: TMemoryStream read FFile;
     37      property FileStream: TMemoryStream read FFileStream;
    3638      property FileID: Integer read FFileID;
    3739      property FileName: String read FFileName;
     40      property FileExt: String read FFileExt;
     41      property FileSize: Integer read FFileSize;
    3842      property ConnectionID: Integer read FConnectionID;
    3943
     
    6670var
    6771  i: Integer;
     72  fileinfo: TFileInfo;
    6873begin
    6974  FConnectionID := ConnectionID;
    7075  FFileID := FileID;
    71   FFileName := ConManager.Connection[ConnectionID].GetFileInfo(FileID).Name;
     76  fileinfo := ConManager.Connection[ConnectionID].GetFileInfo(FileID);
     77  FFileName := fileinfo.Name;
     78  FFileExt := fileinfo.Extension;
     79  FFileSize := fileinfo.Size;
    7280
    73   FFile := TMemoryStream.Create;
    74   ConManager.Connection[ConnectionID].LoadDatFile(FileID, TStream(FFile));
     81  FFileStream := TMemoryStream.Create;
     82  ConManager.Connection[ConnectionID].LoadDatFile(FileID, TStream(FFileStream));
    7583
    7684  InitDatLinks();
     
    7886  InitRawList();
    7987
    80   FFile.Free;
    81   FFile := nil;
     88  FFileStream.Free;
     89  FFileStream := nil;
    8290end;
    8391
Note: See TracChangeset for help on using the changeset viewer.