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

Timestamp:

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

Author:

alloc

Message:

 

File:

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

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.