Changeset 193 for oup/current/Global

Timestamp:

May 26, 2007, 4:24:55 PM (18 years ago)

Author:

alloc

Message:

 

File:

• oup/current/Global/OniImgClass.pas (modified) (2 diffs)

oup/current/Global/OniImgClass.pas

@@ -56 +56 @@
 begin
   InitImage(singleimg);
-  CloneImage(FImages[Index], singleimg);
+  CloneImage(FImages[Index-1], singleimg);
   ConvertImage(singleimg, ifX8R8G8B8);
   rect.Left := 0;
@@ -424 +424 @@
   else
     ConManager.Connection[ConnectionID].LoadRawFile(fileid, $A0, TStream(data));
+
+//  data.Seek(0, soFromBeginning);
+//  data.SaveToFile('m:\test.txmp');
+
   data.Seek(0, soFromBeginning);
   result := LoadMultiImageFromStream(data, FImages);
   data.Free;
-
+{
+  if result then
+  begin
+    for i := 0 to High(FImages) do
+    begin
+      data := TMemoryStream.Create;
+      data.Write(FImages[i].Bits^, FImages[i].Size);
+      data.Seek(0, soFromBeginning);
+      data.SaveToFile('m:\test.txmp.'+IntToStr(i));
+      data.Free;
+    end;
+  end;
+}
   if not result then
   begin