Changeset 240 for oup/current/FileClasses/_FileTypes.pas

Timestamp:

Jul 15, 2007, 1:12:26 AM (18 years ago)

Author:

alloc

Message:

 

File:

• oup/current/FileClasses/_FileTypes.pas (modified) (7 diffs)

oup/current/FileClasses/_FileTypes.pas

@@ -4 +4 @@
 
 uses
-  TypeDefs, _DataTypes, _TreeElement, Classes, Forms;
+  TypeDefs, _TreeElement, Classes, Forms, _DataTypes;
 
 
@@ -15 +15 @@
       FFileInfo: TFileInfo;
       FFileStream: TMemoryStream;
+      FRawCaches: array of TMemoryStream;
 
       FCached: Boolean;
@@ -24 +25 @@
       FOpened: Boolean;
 
+      function GetEditor: TFrame;
       function GetFieldByOffset(Offset: Integer): TDataField;
-  published
+      procedure SetOpened(Opened: Boolean); virtual;
+    published
     public
       constructor Create(ConnectionID, FileID: Integer); virtual;
@@ -33 +36 @@
       procedure InitEditor; virtual;
 
+      procedure ReCreateFile(fs: TStream);
+
+      procedure CacheFile;
+      procedure CacheRawFile(Offset: Integer);
+
       property FileStream: TMemoryStream read FFileStream;
       property FileInfo: TFileInfo read FFileInfo;
-      property ConnectionID: Integer read FConnectionID;
 
       property Cached: Boolean read FCached;
       property Changed: Boolean read FChanged write FChanged;
 
-      property Editor: TFrame read FEditor;
-      property Opened: Boolean read FOpened write FOpened;
+      property Editor: TFrame read GetEditor;
+      property Opened: Boolean read FOpened write SetOpened;
 
       property FieldByOffset[Offset: Integer]: TDataField read GetFieldByOffset;
@@ -58 +65 @@
 { TFileType }
 
+procedure TFile.CacheFile;
+begin
+  if not Assigned(FFileStream) then
+  begin
+    FFileStream := TMemoryStream.Create;
+    ConManager.Connection[FConnectionID].LoadDatFile(FFileInfo.ID, TStream(FFileStream));
+  end;
+end;
+
+
+procedure TFile.CacheRawFile(Offset: Integer);
+var
+  rawlist: TRawDataList;
+  i: Integer;
+begin
+  rawlist := ConManager.Connection[ConnectionID].GetRawList(FFileInfo.ID);
+  if Length(rawlist) > 0 then
+  begin
+    for i := 0 to High(rawlist) do
+    begin
+      if rawlist[i].SrcOffset = Offset then
+      begin
+        if not Assigned(FRawCaches[i]) then
+        begin
+          FRawCaches[i] := TMemoryStream.Create;
+          ConManager.Connection[ConnectionID].LoadRawFile(FFileInfo.ID, Offset, TStream(FRawCaches[i]));
+        end;
+      end;
+    end;
+  end;
+end;
+
+
+procedure TFile.SetOpened(Opened: Boolean);
+begin
+  FOpened := Opened;
+end;
+
+
 constructor TFile.Create(ConnectionID, FileID: Integer);
 begin
   FConnectionID := ConnectionID;
   FFileInfo := ConManager.Connection[ConnectionID].GetFileInfo(FileID);
+
+  SetLength(FRawCaches, Length(ConManager.Connection[ConnectionID].GetRawList(FileID)));
 
   FCached := False;
@@ -107 +155 @@
 
 
+function TFile.GetEditor: TFrame;
+begin
+  if not Assigned(FEditor) then
+    InitEditor;
+  Result := FEditor;
+end;
+
+
 procedure TFile.InitDataFields;
 begin
@@ -122 +178 @@
 
 
+//*********************************************************
+//*********************************************************
+//*********************************************************
+procedure TFile.ReCreateFile(fs: TStream);
+const
+  temp0: array[0..31] of Byte =
+    ($AD,$DE,$AD,$DE,$AD,$DE,$AD,$DE,
+     $AD,$DE,$AD,$DE,$AD,$DE,$AD,$DE,
+     $AD,$DE,$AD,$DE,$AD,$DE,$AD,$DE,
+     $AD,$DE,$AD,$DE,$AD,$DE,$AD,$DE);
+var
+  count: Integer;
+begin
+  FDataFields.WriteData(fs);
+  count := fs.Size mod 32;
+  if count > 0 then
+    fs.Write(temp0[count], 32 - count);
+end;
+//*********************************************************
+//*********************************************************
+//*********************************************************
+
 end.