Changeset 181 for oup/current/Global

Timestamp:

May 19, 2007, 7:54:34 PM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/current/Global

Files:

• Img_DDSTypes.pas (added)
• OniImgClass.pas (modified) (11 diffs)

oup/current/Global/OniImgClass.pas

@@ -3 +3 @@
 interface
 
-uses Math, Dialogs, Types, SysUtils, Classes, Data, ConnectionManager, TypeDefs;
+uses Math, Dialogs, Types, SysUtils, Classes, Data, ConnectionManager, TypeDefs,
+  Imaging, ImagingTypes;
 
 type
   TImgDataType = set of (DT_OniReverted, DT_Oni, DT_Decoded32);
+
 
 type
@@ -18 +20 @@
     FStoreType: Byte;
 
+    FImage:     TImageData;
+
     function ResizeImage(oldx, oldy: Integer; img: TByteData): TByteData;
     procedure RevertImage;
@@ -23 +27 @@
   protected
   public
+    property Image:     TImageData   Read FImage     Write FImage;
     property Loaded:    Boolean      Read FLoaded    Write FLoaded;
     property DataType:  TImgDataType Read FDataType  Write FDataType;
@@ -36 +41 @@
     function LoadFromTXMP(ConnectionID, FileID: Integer): Boolean;
     function LoadFromTXMB(ConnectionID, FileID: Integer): Boolean;
+    function GetImgSize(w,h, storetype: Integer): Integer;
     function GetImageDataSize(fading: Boolean): Integer;
 
@@ -57 +63 @@
 
 //uses Functions;
-
-
+uses Img_DDSTypes;
 
 
@@ -70 +75 @@
   Self.FDepth     := 0;
   Self.FStoreType := 0;
+
+  InitImage(FImage);
 end;
 
@@ -473 +480 @@
 var
   img_addr: Integer;
+  data: TMemoryStream;
+  hdr: TDDSDXTHeader;
+  imginfo: Integer;
+  x,y, i: Integer;
 begin
   Result := True;
   ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $8C, SizeOf(Self.FWidth), @Self.FWidth);
   ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $8E, SizeOf(Self.FHeight), @Self.FHeight);
-  ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $90, SizeOf(Self.FStoreType),
-    @Self.FStoreType);
+  ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $90, SizeOf(Self.FStoreType), @Self.FStoreType);
+  ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $88, SizeOf(imginfo), @imginfo);
   if ConManager.Connection[ConnectionID].DataOS = DOS_WIN then
     ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $9C, SizeOf(img_addr), @img_addr)
@@ -486 +497 @@
   case Self.FStoreType of
     0, 1, 2:
-    begin
-      SetLength(Self.FData, Self.FWidth * Self.FHeight * 2);
       Self.FDepth := 16;
-    end;
     8:
-    begin
-      SetLength(Self.FData, Self.FWidth * Self.FHeight * 4);
       Self.FDepth := 32;
-    end;
     9:
-    begin
-      SetLength(Self.FData, Self.FWidth * Self.FHeight div 2);
       Self.FDepth := 16;
-    end;
     else
       Result := False;
@@ -505 +507 @@
   end;
 
+  if ConManager.Connection[ConnectionID].DataOS = DOS_WIN then
+    ConManager.Connection[ConnectionID].LoadRawFile(fileid, $9C, TStream(data))
+  else
+    ConManager.Connection[ConnectionID].LoadRawFile(fileid, $A0, TStream(data));
+
+  with hdr do
+  begin
+    FOURCC := 'DDS ';
+    with SURFACEDESC2 do
+    begin
+      Size := 124;
+      Flags := DDSD_CAPS or DDSD_PIXELFORMAT or DDSD_WIDTH or DDSD_HEIGHT;
+      if FStoreType = 9 then
+        Flags := Flags or DDSD_LINEARSIZE
+      else
+        Flags := Flags or DDSD_PITCH;
+      if (imginfo and $01) > 0 then
+        Flags := Flags or DDSD_MIPMAPCOUNT;
+      Height := FHeight;
+      Width := FWidth;
+      if FStoreType = 9 then
+        PitchOrLinearSize := FWidth * FHeight div 2
+      else
+        PitchOrLinearSize := FWidth * FDepth div 2;
+      Depth := 0;
+      MipMapCount := 1;
+      x := FWidth;
+      y := FHeight;
+      while (x > 1) and (y > 1) do
+      begin
+        x := x div 2;
+        y := y div 2;
+        Inc(MipMapCount);
+      end;
+      for i := 1 to 11 do
+        Reserved[i] := 0;
+      with PIXELFORMAT do
+      begin
+        Size := 32;
+        if FStoreType = 9 then
+          Flags := DDPF_FOURCC
+        else
+          Flags := DDPF_RGB;
+      end;
+    end;
+  end; 
+  LoadImageFromStream(data, FImage);
+{
   if ConManager.Connection[ConnectionID].DataOS = DOS_WIN then
     ConManager.Connection[ConnectionID].LoadRawFile(fileid, $9C, FData)
   else
     ConManager.Connection[ConnectionID].LoadRawFile(fileid, $A0, FData);
-
+}
   Self.FDataType := [DT_OniReverted, DT_Oni];
 end;
@@ -584 +634 @@
 
 
+function TOniImage.GetImgSize(w,h, storetype: Integer): Integer;
+begin
+  case storetype of
+    0, 1, 2:
+      Result := w*h*2;
+    8:
+      Result := w*h*4;
+    9:
+      Result := Max(1, w div 4) * Max(1, h div 4) * 8;
+  else
+    Result := -1;
+  end;
+end;
+
 
 function TOniImage.GetImageDataSize(fading: Boolean): Integer;
@@ -589 +653 @@
   size: Integer;
   x, y: Word;
-
-  function GetImgSize(w,h, storetype: Integer): Integer;
-  begin
-    case storetype of
-      0, 1, 2:
-        Result := w*h*2;
-      8:
-        Result := w*h*4;
-      9:
-        Result :=  Max(1, w div 4) * Max(1, h div 4) * 8;
-    else
-      Result := -1;
-    end;
-  end;
-
 begin
   x    := Self.FWidth;