It works! Thank you very much!

It's fixed now.
Many changes were needed actually, Delphi macOS and Linux 64bit targets have LongInt/LongWord 64bit in size. It stays 32bit for Win64 and for all FPC targets.

I've updated my Delphi Community Ed. so I can have a look at this in next few days.

Hello, I'm testing new Delphi 10.3 to build a MacOs64 bit application, and the library only compiles in 32bit mode.

TLongIntArray = array[0..MaxInt div 4 - 1] of LongInt;
[dccosx64 Error] ImagingUtility.pas(47): E2100 Data type too large: exceeds 2 GB

Are there any plans to support it?

Thank you,
Jordi

Thanks for the fixes, I'll add them to the repository.
TSingleImage and especially TMultiImage are not used and tested that much unfortunately.

Windows 7 x64
Delphi RAD Studio 10.2
Vampyre Imaging latest snapshot
-----

Error occurs when adding mipmaps to MultiImage before exporting to DDS. Like this:

var
  LImage: TMultiImage;
  LImageCanvas: TImagingCanvas;
  LImageMipMaps: TDynImageDataArray;
begin
          ...
          LImage.Format := ifDXT5;
          Imaging.GenerateMipMaps(LImage.ImageDataPointer^, 10, LImageMipMaps);
          LImage.AddImages(LImageMipMaps);
          FreeImagesInArray(LImageMipMaps);
          LImage.SaveMultiToFile(ToDir + ToMaterial + '.dds');
          ...
end;

LImage has only 1 image when AddImages is called to add 10 mipmaps.
Getting range error from System.Move operation in ImagingClasses::PrepareInsert:

function TMultiImage.PrepareInsert(Index, Count: Integer): Boolean;
var
  I: Integer;
begin
  // Inserting to empty image will add image at index 0
  if GetImageCount = 0 then
    Index := 0;

  if (Index >= 0) and (Index <= GetImageCount) and (Count > 0) then
  begin
    SetLength(FDataArray, GetImageCount + Count);
    if Index < GetImageCount - 1 then
    begin
      // Move imges to new position
      System.Move(FDataArray[Index], FDataArray[Index + Count],
        (GetImageCount - Count - Index) * SizeOf(TImageData));
      // Null old images, not free them!
      for I := Index to Index + Count - 1 do
        InitImage(FDataArray[I]);
    end;
    Result := True;
  end
  else
    Result := False;
end;

The System.Move and InitImage loop are for handling insertions via InsertImage(s) procedures, but it is also executed for all AddImage(s) procedures, which always add to the end of the array.
I changed it to the following (not tested for all InsertImage(s) and AddImage(s) operations):

function TMultiImage.PrepareInsert(Index, Count: Integer): Boolean;
var
  I, LImageCount: Integer;
begin
  // Inserting to empty image will add image at index 0
  LImageCount := GetImageCount;
  if LImageCount = 0 then
    Index := 0;

  if (Index >= 0) and (Index <= LImageCount) and (Count > 0) then
  begin
    SetLength(FDataArray, LImageCount + Count);
    if Index <= LImageCount - 1 then
    begin
      // Move images to new position
      System.Move(FDataArray[Index], FDataArray[Index + Count], (GetImageCount - Count - Index) * SizeOf(TImageData));
      // Null old images; do not free them!
      for I := Index to Index + Count - 1 do
        InitImage(FDataArray[I]);
    end;
    Result := True;
  end
  else
    Result := False;
end;


Secondly, this appears to be a bug:

procedure TMultiImage.InsertImages(Index: Integer;
  const Images: TDynImageDataArray);
begin
  DoInsertImages(Index, FDataArray);
end;

Which should be:

procedure TMultiImage.InsertImages(Index: Integer;
  const Images: TDynImageDataArray);
begin
  DoInsertImages(Index, Images);
end;

Thanks.
I figured it out with what you mentioned :)

There's no simple CropImage function but you can
do the two steps that CropImage would do:

1. Create new image with size the same as desired crop rectangle (NewImage)
2. Copy part of the original image to the new one (CopyRect) with proper SrcX and SrcY parameters.

Is it possible to crop an image?
I have scanned a photo and i want to cut off all the blank parts,   is there a way to  take only a part of an page?

Thank you

Hi, I am able to load a .dds file and save it to a .png, but how can do I to onto a stream instead?

This generates an empty file:

Var Img: TImageData;
      tm: TMemoryStream;

  tm := TMemoryStream.Create;
  InitImage(Img);
  LoadImageFromFile('Z:\xx.dds', Img);
  SaveImageToStream('.png',tm,Img);
  tm.SaveToFile('z:\xxx.png');
  tm.free;
  FreeImage(Img);

Edit: found the issue, '.png' -> 'png'