Changeset 127 for oup/current


Ignore:
Timestamp:
Mar 23, 2007, 6:14:40 PM (18 years ago)
Author:
alloc
Message:
 
Location:
oup/current
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • oup/current/Global/OniImgClass.pas

    r124 r127  
    618618      size := size + (x * y * bpp) div 8;
    619619    until (x = minside) or (y = minside);
     620    if FStoreType = 9 then
     621    begin
     622      repeat
     623        x    := x div 2;
     624        y    := y div 2;
     625        size := size + (x * y * 16) div 8;
     626      until (x = 1) or (y = 1);
     627    end;
    620628  end;
    621629  Result := size;
  • oup/current/Global/RawList.pas

    r124 r127  
    345345      datasize := datasize + (x * y * bpp) div 8;
    346346    until (x = minside) or (y = minside);
     347    if storetype = 9 then
     348    begin
     349      repeat
     350        x    := x div 2;
     351        y    := y div 2;
     352        datasize := datasize + (x * y * 16) div 8;
     353      until (x = 1) or (y = 1);
     354    end;
    347355  end;
    348356
  • oup/current/Helper/LevelDB.pas

    r120 r127  
    1 {$A8,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
    2 {$MINSTACKSIZE $00004000}
    3 {$MAXSTACKSIZE $00100000}
    4 {$IMAGEBASE $00400000}
    5 {$APPTYPE GUI}
    6 {$WARN SYMBOL_DEPRECATED ON}
    7 {$WARN SYMBOL_LIBRARY ON}
    8 {$WARN SYMBOL_PLATFORM ON}
    9 {$WARN SYMBOL_EXPERIMENTAL ON}
    10 {$WARN UNIT_LIBRARY ON}
    11 {$WARN UNIT_PLATFORM ON}
    12 {$WARN UNIT_DEPRECATED ON}
    13 {$WARN UNIT_EXPERIMENTAL ON}
    14 {$WARN HRESULT_COMPAT ON}
    15 {$WARN HIDING_MEMBER ON}
    16 {$WARN HIDDEN_VIRTUAL ON}
    17 {$WARN GARBAGE ON}
    18 {$WARN BOUNDS_ERROR ON}
    19 {$WARN ZERO_NIL_COMPAT ON}
    20 {$WARN STRING_CONST_TRUNCED ON}
    21 {$WARN FOR_LOOP_VAR_VARPAR ON}
    22 {$WARN TYPED_CONST_VARPAR ON}
    23 {$WARN ASG_TO_TYPED_CONST ON}
    24 {$WARN CASE_LABEL_RANGE ON}
    25 {$WARN FOR_VARIABLE ON}
    26 {$WARN CONSTRUCTING_ABSTRACT ON}
    27 {$WARN COMPARISON_FALSE ON}
    28 {$WARN COMPARISON_TRUE ON}
    29 {$WARN COMPARING_SIGNED_UNSIGNED ON}
    30 {$WARN COMBINING_SIGNED_UNSIGNED ON}
    31 {$WARN UNSUPPORTED_CONSTRUCT ON}
    32 {$WARN FILE_OPEN ON}
    33 {$WARN FILE_OPEN_UNITSRC ON}
    34 {$WARN BAD_GLOBAL_SYMBOL ON}
    35 {$WARN DUPLICATE_CTOR_DTOR ON}
    36 {$WARN INVALID_DIRECTIVE ON}
    37 {$WARN PACKAGE_NO_LINK ON}
    38 {$WARN PACKAGED_THREADVAR ON}
    39 {$WARN IMPLICIT_IMPORT ON}
    40 {$WARN HPPEMIT_IGNORED ON}
    41 {$WARN NO_RETVAL ON}
    42 {$WARN USE_BEFORE_DEF ON}
    43 {$WARN FOR_LOOP_VAR_UNDEF ON}
    44 {$WARN UNIT_NAME_MISMATCH ON}
    45 {$WARN NO_CFG_FILE_FOUND ON}
    46 {$WARN IMPLICIT_VARIANTS ON}
    47 {$WARN UNICODE_TO_LOCALE ON}
    48 {$WARN LOCALE_TO_UNICODE ON}
    49 {$WARN IMAGEBASE_MULTIPLE ON}
    50 {$WARN SUSPICIOUS_TYPECAST ON}
    51 {$WARN PRIVATE_PROPACCESSOR ON}
    52 {$WARN UNSAFE_TYPE OFF}
    53 {$WARN UNSAFE_CODE OFF}
    54 {$WARN UNSAFE_CAST OFF}
    55 {$WARN OPTION_TRUNCATED ON}
    56 {$WARN WIDECHAR_REDUCED ON}
    57 {$WARN DUPLICATES_IGNORED ON}
    58 {$WARN UNIT_INIT_SEQ ON}
    59 {$WARN LOCAL_PINVOKE ON}
    60 {$WARN MESSAGE_DIRECTIVE ON}
    611unit LevelDB;
    622interface
     
    372312          begin
    373313            RawFileStream := TMemoryStream.Create;
    374             if UpperCase(fileinfo.Extension) = 'TXMP' then
     314            Connection.LoadRawFile(FileID, RawLinks[i].SrcOffset, TStream(RawFileStream));
     315            RawFileStream.Seek(0, soFromBeginning);
     316            if RawLinks[i].LocSep then
    375317            begin
    376               DatFileStream.Seek($88, soFromBeginning);
    377               DatFileStream.Read(tempb, 1);
    378               if (tempb and $01) > 0 then
    379               begin
    380                 OniImage.Load(Connection.ConnectionID, FileID);
    381                 if not OniImage.GetMipMappedImage(TStream(RawFileStream)) then
    382                 begin
    383                   ShowMessage('MipMapping-Error');
    384                   RawFileStream.Seek(0, soFromBeginning);
    385                   tempb := tempb and $FE;
    386                   DatFileStream.Seek($88, soFromBeginning);
    387                   DatFileStream.Write(tempb, 1);
    388                   OniImage.Load(Connection.ConnectionID, FileID);
    389                   OniImage.GetAsData(TStream(RawFileStream));
    390                 end else
    391                 begin
    392                   // Change of Depth($89), Storetype ($90)
    393                   DatFileStream.Seek($89, soFromBeginning);
    394                   DatFileStream.Read(tempb, 1);
    395 
    396                   DatFileStream.Seek($90, soFromBeginning);
    397                   DatFileStream.Read(tempb, 1);
    398                   Exit;
    399                 end;
    400               end else
    401                 OniImage.GetAsData(TStream(RawFileStream));
     318              RawLinks[i].RawAddr := Stream_Sep.Size;
     319              Stream_sep.CopyFrom(RawFileStream, RawFileStream.Size);
    402320            end else begin
    403               Connection.LoadRawFile(FileID, RawLinks[i].SrcOffset, TStream(RawFileStream));
     321              RawLinks[i].RawAddr := Stream_Raw.Size;
     322              Stream_Raw.CopyFrom(RawFileStream, RawFileStream.Size);
    404323            end;
    405             RawFileStream.Seek(0, soFromBeginning);
    406324          end else
    407325            RawLinks[i].RawAddr := 0;
     
    410328
    411329{
    412             if rawlist[j].raw_size > 0 then
    413             begin
    414               if (UpperCase(fileinfo.Extension) = 'TXMP') and
    415                 ((Data[$88] and $01) > 0) then
    416               begin
    417                 OniImage.LoadFromTXMP(Connection, i);
    418                 OniImage.GetMipMappedImage(rawdata);
    419                 rawlist[j].raw_size := OniImage.GetImageDataSize(True);
    420                 Data[$90] := $08;
    421                 Data[$89] := 32;
    422 (*                  if data[$90]<>OniImage.StoreType then begin
    423                     data[$90]:=OniImage.StoreType;
    424                     data[$89]:=(data[$89] and $CF) or $20;
    425                   end;
    426 *)                end
    427               else
    428               begin
    429                 SetLength(rawdata, rawlist[j].raw_size);
    430                 OniDataConnection.LoadRawFile(i, rawlist[j].src_offset, @rawdata[0]);
    431               end;
    432               //                data[$88]:=data[$88] and $FE;
    433 
    434               if rawlist[j].loc_sep then
    435               begin
    436                 rawlist[j].raw_addr := Stream_Sep.Size;
    437                 Stream_Sep.Write(rawdata[0], Length(rawdata));
    438               end
    439               else
    440               begin
    441                 rawlist[j].raw_addr := Stream_Raw.Size;
    442                 Stream_Raw.Write(rawdata[0], Length(rawdata));
    443               end;
    444             end
    445             else
    446               rawlist[j].raw_addr := 0;
    447330            Data[rawlist[j].src_offset + 0] := (rawlist[j].raw_addr) and $FF;
    448331            Data[rawlist[j].src_offset + 1] := (rawlist[j].raw_addr shr 8) and $FF;
Note: See TracChangeset for help on using the changeset viewer.