Changeset 92 for oup/current/Code

Timestamp:

Jan 16, 2007, 12:35:04 AM (18 years ago)

Author:

alloc

Message:

Rev86 was first after multi-cons

Location:

oup/current/Code

Files:

• DataStructures.pas (modified) (4 diffs)
• OniDataClass.pas (modified) (5 diffs)
• OniImgClass.pas (modified) (1 diff)

oup/current/Code/DataStructures.pas

@@ -136 +136 @@
       connection.LoadDatFilePart(fileid, $20 + i * 4, 4, @link);
       Result[i].raw_addr := link;
-      Result[i].raw_size := 0{????????????????????????????????};
+      Result[i].raw_size := 32;
       Result[i].loc_sep  := False;
     end;
@@ -198 +198 @@
   Result[0].raw_addr   := link;
   Result[0].raw_size   := datasize;
-  Result[0].loc_sep    := OniDataConnection.OSisMac;
+  Result[0].loc_sep    := connection.OSisMac;
 end;
 
@@ -245 +245 @@
     TOniDataDat(connection).LoadRawOffset(False,
       baselink, lastlink + 1024, Data);
-    //      OniDataConnection.LoadRawFile(fileid,$1C,baselink,lastlink+1024,False,@data[0]);
+    //      connection.LoadRawFile(fileid,$1C,baselink,lastlink+1024,False,@data[0]);
     k := 0;
     for j := 0 to 1024 do
@@ -595 +595 @@
 begin
   Raws := '';
-  //  InsertRawListHandler('AGDB',True,AGDB);
+  InsertRawListHandler('AGDB',False,AGDB);
   InsertRawListHandler('AKVA', True, AKVA);
   InsertRawListHandler('BINA', True, BINA);

oup/current/Code/OniDataClass.pas

@@ -136 +136 @@
   end;
 
-  TOniDataEmpty = class(TOniData)
-  private
-  protected
-  public
-    constructor Create(OLDBFilename: String; var Result: Boolean); override;
-    procedure Close; override;
-  published
-  end;
+
 
 const
@@ -151 +144 @@
 
 var
-//  OniDataConnection: TOniData;
   DataConnections: array of TOniData;
-  OniDataConnection: TOniData;
 
 function CreateDataConnection(filename: String; backend: Integer): TOniData;
+function ConnectionExists(filename: String): TOniData;
 procedure CloseDataConnection(connection: TOniData);
 function GetEmptyFileInfo: TFileInfo;
@@ -213 +205 @@
   Result.raw_addr := 0;
   Result.raw_size := 0;
-  for i := 0 to High(raw_list) do
-  begin
-    if raw_list[i].src_offset = dat_offset then
-    begin
-      Result.src_id     := fileid;
-      Result.src_offset := raw_list[i].src_offset;
-      Result.raw_addr   := raw_list[i].raw_addr;
-      Result.raw_size   := raw_list[i].raw_size;
-      Result.loc_sep    := raw_list[i].loc_sep;
-      Break;
+  if Length(raw_list) > 0 then
+  begin
+    for i := 0 to High(raw_list) do
+    begin
+      if raw_list[i].src_offset = dat_offset then
+      begin
+        Result.src_id     := fileid;
+        Result.src_offset := raw_list[i].src_offset;
+        Result.raw_addr   := raw_list[i].raw_addr;
+        Result.raw_size   := raw_list[i].raw_size;
+        Result.loc_sep    := raw_list[i].loc_sep;
+        Break;
+      end;
     end;
   end;
@@ -1466 +1461 @@
 
 
+function ConnectionExists(filename: String): TOniData;
+var
+  i: Integer;
+begin
+  Result := nil;
+  if Length(DataConnections) > 0 then
+    for i := 0 to High(DataConnections) do
+      if DataConnections[i].FFileName = filename then
+      begin
+        Result := DataConnections[i];
+        Exit;
+      end;
+end;
 
 
@@ -1513 +1521 @@
 
 
-
-
-constructor TOniDataEmpty.Create(OLDBFilename: String; var Result: Boolean);
-var
-  i, j:  Byte;
-  temps: String;
-begin
-  ShowMessage('OLD');
-end;
-
-procedure TOniDataEmpty.Close;
-begin
-  ShowMessage('OLD');
-end;
-
 end.

oup/current/Code/OniImgClass.pas

@@ -439 +439 @@
       txmpimg.DataType  := [DT_Decoded32];
       txmpimg.Depth     := 32;
-      txmpimg.WriteToBMP('D:\' + IntToStr(i) + '.bmp');
+      txmpimg.WriteToBMP('M:\' + IntToStr(i) + '.bmp');
     end;
   end;