Changeset 92 for oup/current/Code


Ignore:
Timestamp:
Jan 16, 2007, 12:35:04 AM (15 years ago)
Author:
alloc
Message:

Rev86 was first after multi-cons

Location:
oup/current/Code
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • oup/current/Code/DataStructures.pas

    r87 r92  
    136136      connection.LoadDatFilePart(fileid, $20 + i * 4, 4, @link);
    137137      Result[i].raw_addr := link;
    138       Result[i].raw_size := 0{????????????????????????????????};
     138      Result[i].raw_size := 32;
    139139      Result[i].loc_sep  := False;
    140140    end;
     
    198198  Result[0].raw_addr   := link;
    199199  Result[0].raw_size   := datasize;
    200   Result[0].loc_sep    := OniDataConnection.OSisMac;
     200  Result[0].loc_sep    := connection.OSisMac;
    201201end;
    202202
     
    245245    TOniDataDat(connection).LoadRawOffset(False,
    246246      baselink, lastlink + 1024, Data);
    247     //      OniDataConnection.LoadRawFile(fileid,$1C,baselink,lastlink+1024,False,@data[0]);
     247    //      connection.LoadRawFile(fileid,$1C,baselink,lastlink+1024,False,@data[0]);
    248248    k := 0;
    249249    for j := 0 to 1024 do
     
    595595begin
    596596  Raws := '';
    597   //  InsertRawListHandler('AGDB',True,AGDB);
     597  InsertRawListHandler('AGDB',False,AGDB);
    598598  InsertRawListHandler('AKVA', True, AKVA);
    599599  InsertRawListHandler('BINA', True, BINA);
  • oup/current/Code/OniDataClass.pas

    r87 r92  
    136136  end;
    137137
    138   TOniDataEmpty = class(TOniData)
    139   private
    140   protected
    141   public
    142     constructor Create(OLDBFilename: String; var Result: Boolean); override;
    143     procedure Close; override;
    144   published
    145   end;
     138
    146139
    147140const
     
    151144
    152145var
    153 //  OniDataConnection: TOniData;
    154146  DataConnections: array of TOniData;
    155   OniDataConnection: TOniData;
    156147
    157148function CreateDataConnection(filename: String; backend: Integer): TOniData;
     149function ConnectionExists(filename: String): TOniData;
    158150procedure CloseDataConnection(connection: TOniData);
    159151function GetEmptyFileInfo: TFileInfo;
     
    213205  Result.raw_addr := 0;
    214206  Result.raw_size := 0;
    215   for i := 0 to High(raw_list) do
    216   begin
    217     if raw_list[i].src_offset = dat_offset then
    218     begin
    219       Result.src_id     := fileid;
    220       Result.src_offset := raw_list[i].src_offset;
    221       Result.raw_addr   := raw_list[i].raw_addr;
    222       Result.raw_size   := raw_list[i].raw_size;
    223       Result.loc_sep    := raw_list[i].loc_sep;
    224       Break;
     207  if Length(raw_list) > 0 then
     208  begin
     209    for i := 0 to High(raw_list) do
     210    begin
     211      if raw_list[i].src_offset = dat_offset then
     212      begin
     213        Result.src_id     := fileid;
     214        Result.src_offset := raw_list[i].src_offset;
     215        Result.raw_addr   := raw_list[i].raw_addr;
     216        Result.raw_size   := raw_list[i].raw_size;
     217        Result.loc_sep    := raw_list[i].loc_sep;
     218        Break;
     219      end;
    225220    end;
    226221  end;
     
    14661461
    14671462
     1463function ConnectionExists(filename: String): TOniData;
     1464var
     1465  i: Integer;
     1466begin
     1467  Result := nil;
     1468  if Length(DataConnections) > 0 then
     1469    for i := 0 to High(DataConnections) do
     1470      if DataConnections[i].FFileName = filename then
     1471      begin
     1472        Result := DataConnections[i];
     1473        Exit;
     1474      end;
     1475end;
    14681476
    14691477
     
    15131521
    15141522
    1515 
    1516 
    1517 constructor TOniDataEmpty.Create(OLDBFilename: String; var Result: Boolean);
    1518 var
    1519   i, j:  Byte;
    1520   temps: String;
    1521 begin
    1522   ShowMessage('OLD');
    1523 end;
    1524 
    1525 procedure TOniDataEmpty.Close;
    1526 begin
    1527   ShowMessage('OLD');
    1528 end;
    1529 
    15301523end.
  • oup/current/Code/OniImgClass.pas

    r86 r92  
    439439      txmpimg.DataType  := [DT_Decoded32];
    440440      txmpimg.Depth     := 32;
    441       txmpimg.WriteToBMP('D:\' + IntToStr(i) + '.bmp');
     441      txmpimg.WriteToBMP('M:\' + IntToStr(i) + '.bmp');
    442442    end;
    443443  end;
Note: See TracChangeset for help on using the changeset viewer.