Changeset 209 for oup/current/FileClasses

Timestamp:

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

Author:

alloc

Message:

 

Location:

oup/current/FileClasses

Files:

• TXMP.pas (modified) (3 diffs)
• _FileManager.pas (added)
• _FileTypes.pas (modified) (6 diffs)

oup/current/FileClasses/TXMP.pas

@@ -4 +4 @@
 
 uses
-  TypeDefs, _FileTypes, _DataTypes;
+  _FileTypes;
 
 type
@@ -17 +17 @@
 
 uses
-  ConnectionManager, Math, Classes;
+  ConnectionManager, Math, Classes, TypeDefs, _DataTypes;
 
-{ TFile_SNDD }
-
-procedure TFile_TXMP.InitDatLinks;
-begin
-  SetLength(FDatLinks, 2);
-  FDatLinks[0].SrcOffset := $94;
-  FDatLinks[0].DestID := -1;
-  FDatLinks[0].PosDestExts := '*';
-  FDatLinks[1].SrcOffset := $98;
-  FDatLinks[1].DestID := -1;
-  FDatLinks[1].PosDestExts := 'TXMP';
-end;
-
+{ TFile_TXMP }
 
 procedure TFile_TXMP.InitDataFields;
@@ -119 +107 @@
 
 
+procedure TFile_TXMP.InitDatLinks;
+begin
+  SetLength(FDatLinks, 2);
+  FDatLinks[0].SrcOffset := $94;
+  FDatLinks[0].DestID := GetDatLinkValue(FFile, $94);
+  FDatLinks[0].PosDestExts := '*';
+  FDatLinks[1].SrcOffset := $98;
+  FDatLinks[1].DestID := GetDatLinkValue(FFile, $98);
+  FDatLinks[1].PosDestExts := 'TXMP';
+end;
+
+
 procedure TFile_TXMP.InitRawList;
 var

oup/current/FileClasses/_FileTypes.pas

@@ -12 +12 @@
       FConnectionID: Integer;
       FFileID: Integer;
+      FFileName: String;
       FFile: TMemoryStream;
 
@@ -34 +35 @@
       property FileStream: TMemoryStream read FFile;
       property FileID: Integer read FFileID;
+      property FileName: String read FFileName;
       property ConnectionID: Integer read FConnectionID;
 
@@ -50 +52 @@
 
 
+function GetDatLinkValue(stream: TStream; offset: Integer): Integer;
+
+
+
 implementation
 
@@ -63 +69 @@
   FConnectionID := ConnectionID;
   FFileID := FileID;
-  FFile := nil;
+  FFileName := ConManager.Connection[ConnectionID].GetFileInfo(FileID).Name;
 
   FFile := TMemoryStream.Create;
@@ -71 +77 @@
   InitDataFields();
   InitRawList();
-
-  if FDataFields.FieldCount > 0 then
-  begin
-    for i := 0 to FDataFields.FieldCount - 1 do
-    begin
-      ShowMessage(FDataFields.FieldByIndex[i].ValueAsString);
-    end;
-  end;
 
   FFile.Free;
@@ -171 +169 @@
 end;
 
+
+
+function GetDatLinkValue(stream: TStream; offset: Integer): Integer;
+begin
+  stream.Seek(Offset, soFromBeginning);
+  stream.Read(Result, 4);
+  if Result > 0 then
+    Result := Result div 256
+  else
+    Result := -1;
+end;
+
 end.