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

Timestamp:

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

Author:

alloc

Message:

 

File:

• oup/current/FileClasses/_DataTypes.pas (modified) (26 diffs)

oup/current/FileClasses/_DataTypes.pas

@@ -28 +28 @@
 
       procedure Update(Offset, Length: Integer); virtual; abstract;
+      procedure WriteData(stream: TStream); virtual; abstract;
 
       property Offset: Integer read FOffset;
@@ -56 +57 @@
           Name, Description: String; ExtraArgs: array of const); override;
       procedure Update(Offset, Length: Integer); override;
+      procedure WriteData(stream: TStream); override;
       property FieldByOffset[Offset: Integer]: TDataField read GetFieldByOffset;
 
@@ -73 +75 @@
           Name, Description: String; ExtraArgs: array of const); override;
       procedure Update(Offset, Length: Integer); override;
+      procedure WriteData(stream: TStream); override;
   end;
 
@@ -85 +88 @@
           Name, Description: String; ExtraArgs: array of const); override;
       procedure Update(Offset, Length: Integer); override;
+      procedure WriteData(stream: TStream); override;
   end;
 
@@ -98 +102 @@
           Name, Description: String; ExtraArgs: array of const); override;
       procedure Update(Offset, Length: Integer); override;
+      procedure WriteData(stream: TStream); override;
   end;
 
@@ -110 +115 @@
           Name, Description: String; ExtraArgs: array of const); override;
       procedure Update(Offset, Length: Integer); override;
+      procedure WriteData(stream: TStream); override;
   end;
 
@@ -122 +128 @@
           Name, Description: String; ExtraArgs: array of const); override;
       procedure Update(Offset, Length: Integer); override;
-  end;
-
-
-  TLinkByID = class(TDataField)
+      procedure WriteData(stream: TStream); override;
+  end;
+
+
+  TDatLink = class(TDataField)
+    private
+      function GetTarget: TObject; virtual; abstract;
+    public
+      property TargetFile: TObject read GetTarget;
+  end;
+
+
+  TLinkByID = class(TDatLink)
       function GetChildCount: Integer; override;
       function GetChild(ID: Integer): TTreeElement; override;
@@ -132 +147 @@
       FPosExts: String;
       function GetValueAsString: String; override;
+      function GetTarget: TObject; override;
     public
       // ExtraArgs: Pointer auf String: Possible Exts
@@ -137 +153 @@
           Name, Description: String; ExtraArgs: array of const); override;
       procedure Update(Offset, Length: Integer); override;
+      procedure WriteData(stream: TStream); override;
   end;
 
@@ -149 +166 @@
           Name, Description: String; ExtraArgs: array of const); override;
       procedure Update(Offset, Length: Integer); override;
+      procedure WriteData(stream: TStream); override;
   end;
 
@@ -168 +186 @@
           Name, Description: String; ExtraArgs: array of const); override;
       procedure Update(Offset, Length: Integer); override;
+      procedure WriteData(stream: TStream); override;
 
       function AddField(fieldtype: TFieldType; Name, Description: String;
@@ -186 +205 @@
           Name, Description: String; ExtraArgs: array of const); override;
       procedure Update(Offset, Length: Integer); override;
+      procedure WriteData(stream: TStream); override;
   end;
 
@@ -197 +217 @@
           Name, Description: String; ExtraArgs: array of const); override;
       procedure Update(Offset, Length: Integer); override;
+      procedure WriteData(stream: TStream); override;
   end;
 
@@ -283 +304 @@
 end;
 
+procedure TString.WriteData(stream: TStream);
+var
+  temps: String;
+  i: Integer;
+begin
+  temps := FString;
+  SetLength(temps, FDataLength);
+  for i := Length(FString) + 1 to FDataLength do
+    temps[i] := #0;
+  stream.Write(temps[1], FDataLength);
+end;
+
 
 
@@ -307 +340 @@
   fstream.Seek(FOffset, soFromBeginning);
   fstream.Read(FInt, FDataLength);
+end;
+
+procedure TInt.WriteData(stream: TStream);
+begin
+  stream.Write(FInt, FDataLength);
 end;
 
@@ -418 +456 @@
 
 procedure TArray.Update(Offset, Length: Integer);
+var
+  i: Integer;
+  field: TDataField;
+begin
+  if System.Length(FDataFields) > 0 then
+  begin
+    if Length > 0 then
+    begin
+      for i := 0 to High(FDataFields) do
+      begin
+        field := FDataFields[i];
+        if ((field.Offset < Offset) and (field.Offset + field.DataLength > Offset + Length)) or
+          ((field.Offset > Offset) and (field.Offset < Offset + Length)) or
+          ((field.Offset + field.DataLength > Offset) and (field.Offset+field.DataLength < Offset + Length)) then
+          field.Update(Offset, Length);
+      end;
+    end else begin
+      for i := 0 to High(FDataFields) do
+        FDataFields[i].Update(Offset, Length);
+    end;
+  end;
+end;
+
+procedure TArray.UpdateSize;
+var
+  i: Integer;
+begin
+  FDataLength := FCounterSize;
+  if Length(FDataFields) > 0 then
+    for i := 0 to High(FDataFields) do
+      FDataLength := FDataLength + FDataFields[i].DataLength;
+  FParentBlock.UpdateSize;
+end;
+
+procedure TArray.WriteData(stream: TStream);
+var
+  i: Integer;
+begin
+  if FCounterSize > 0 then
+    stream.Write(FBlockCount, FCounterSize);
+  if Length(FDataFields) > 0 then
+    for i := 0 to High(FDataFields) do
+      FDataFields[i].WriteData(stream);
+end;
+
+
+
+{ TBlock }
+
+function TBlock.AddField(fieldtype: TFieldType; Name,
+    Description: String; ExtraArgs: array of const): TDataField;
+begin
+  SetLength(FDataFields, Length(FDataFields) + 1);
+  FDataFields[High(FDataFields)] := TFieldType(fieldtype).Create(
+      FParentFile, Self, Name, Description, ExtraArgs);
+  Result := FDataFields[High(FDataFields)];
+  FDataLength := FDataLength + Result.DataLength;
+  if Assigned(FParentBlock) then
+    FParentBlock.UpdateSize;
+end;
+
+constructor TBlock.Create(ParentFile: TObject; ParentBlock: TContainer;
+    Name, Description: String; ExtraArgs: array of const);
+begin
+  inherited Create(ParentFile, ParentBlock, Name, Description, ExtraArgs);
+end;
+
+function TBlock.GetChild(ID: Integer): TTreeElement;
+begin
+  Result := FDataFields[ID];
+end;
+
+function TBlock.GetChildCount: Integer;
+begin
+  Result := Length(FDataFields);
+end;
+
+function TBlock.GetFieldByOffset(Offset: Integer): TDataField;
+begin
+  Exit;
+end;
+
+procedure TBlock.Update(Offset, Length: Integer);
 var
   i: Integer;
@@ -443 +564 @@
 end;
 
-procedure TArray.UpdateSize;
-var
-  i: Integer;
-begin
-  FDataLength := FCounterSize;
-  if Length(FDataFields) > 0 then
-    for i := 0 to High(FDataFields) do
-      FDataLength := FDataLength + FDataFields[i].DataLength;
-  FParentBlock.UpdateSize;
-end;
-
-
-
-{ TBlock }
-
-function TBlock.AddField(fieldtype: TFieldType; Name,
-    Description: String; ExtraArgs: array of const): TDataField;
-begin
-  SetLength(FDataFields, Length(FDataFields) + 1);
-  FDataFields[High(FDataFields)] := TFieldType(fieldtype).Create(
-      FParentFile, Self, Name, Description, ExtraArgs);
-  Result := FDataFields[High(FDataFields)];
-  FDataLength := FDataLength + Result.DataLength;
-  if Assigned(FParentBlock) then
-    FParentBlock.UpdateSize;
-end;
-
-constructor TBlock.Create(ParentFile: TObject; ParentBlock: TContainer;
-    Name, Description: String; ExtraArgs: array of const);
-begin
-  inherited Create(ParentFile, ParentBlock, Name, Description, ExtraArgs);
-end;
-
-function TBlock.GetChild(ID: Integer): TTreeElement;
-begin
-  Result := FDataFields[ID];
-end;
-
-function TBlock.GetChildCount: Integer;
-begin
-  Result := Length(FDataFields);
-end;
-
-function TBlock.GetFieldByOffset(Offset: Integer): TDataField;
-begin
-  Exit;
-end;
-
-procedure TBlock.Update(Offset, Length: Integer);
-var
-  i: Integer;
-  field: TDataField;
-begin
-  if System.Length(FDataFields) > 0 then
-  begin
-    if Length > 0 then
-    begin
-      for i := 0 to High(FDataFields) do
-      begin
-        field := FDataFields[i];
-        if ((field.Offset < Offset) and (field.Offset + field.DataLength > Offset + Length)) or
-          ((field.Offset > Offset) and (field.Offset < Offset + Length)) or
-          ((field.Offset + field.DataLength > Offset) and (field.Offset+field.DataLength < Offset + Length)) then
-          field.Update(Offset, Length);
-      end;
-    end else begin
-      for i := 0 to High(FDataFields) do
-      begin
-        FDataFields[i].Update(Offset, Length);
-      end;
-    end;
-  end;
-end;
-
 procedure TBlock.UpdateSize;
 var
@@ -529 +576 @@
 end;
 
+procedure TBlock.WriteData(stream: TStream);
+var
+  i: Integer;
+begin
+  if Length(FDataFields) > 0 then
+    for i := 0 to High(FDataFields) do
+      FDataFields[i].WriteData(stream);
+end;
 
 
@@ -554 +609 @@
   fstream.Read(FLevelID, 4);
   FLevelID := FLevelID div 256 div 256 div 256 div 2;
+end;
+
+procedure TLevelID.WriteData(stream: TStream);
+var
+  tempi: Integer;
+begin
+  tempi := FLevelID * 256 * 256 * 256 * 2 + 1;
+  stream.Write(tempi, 4);
 end;
 
@@ -586 +649 @@
 end;
 
+procedure TFileID.WriteData(stream: TStream);
+var
+  tempi: Integer;
+begin
+  if FFileID >= 0 then
+    tempi := FFileID * 256 + 1
+  else
+    tempi := 0;
+  stream.Write(tempi, 4);
+end;
+
 
 
@@ -616 +690 @@
   else
     Result := 0;
+end;
+
+function TLinkByID.GetTarget: TObject;
+begin
+  if FFileID > 0 then
+    Result := ConManager.Connection[FConnectionID].MetaData.FileById[FFileID]
+  else
+    Result := nil;
 end;
 
@@ -639 +721 @@
 end;
 
+procedure TLinkByID.WriteData(stream: TStream);
+var
+  tempi: Integer;
+begin
+  if FFileID >= 0 then
+    tempi := FFileID * 256 + 1
+  else
+    tempi := 0;
+  stream.Write(tempi, 4);
+end;
+
 
 
@@ -667 +760 @@
 end;
 
+procedure TRawLink.WriteData(stream: TStream);
+begin
+  stream.Write(FRawAddress, 4);
+end;
+
 
 
@@ -686 +784 @@
 begin
   Exit;
+end;
+
+procedure TUnused.WriteData(stream: TStream);
+var
+  i: Integer;
+  tempb: Byte;
+begin
+  tempb := 0;
+  for i := 1 to FDataLength do
+    stream.Write(tempb, 1);
 end;
 
@@ -732 +840 @@
 end;
 
+procedure TBitSet.WriteData(stream: TStream);
+begin
+  stream.Write(FBits, FDataLength);
+end;
+
 
 
@@ -758 +871 @@
 end;
 
+procedure TFloat.WriteData(stream: TStream);
+begin
+  stream.Write(FFloat, 4);
+end;
+
 
 end.