如何从JPG或PNG制作缩略图并将其加载到Timage控件中？

从JPG或PNG制作缩略图并将其加载到TImage控件中，可以通过以下步骤实现：

导入相关的单元：使用Delphi进行开发的话，需要在代码中导入以下单元：
导入相关的单元：使用Delphi进行开发的话，需要在代码中导入以下单元：
加载原始图像文件：使用TJPEGImage或TPNGImage组件来加载原始图像文件。例如，如果要加载名为"image.jpg"的JPG文件，可以使用以下代码：
加载原始图像文件：使用TJPEGImage或TPNGImage组件来加载原始图像文件。例如，如果要加载名为"image.jpg"的JPG文件，可以使用以下代码：
创建缩略图：使用TBitmap组件创建缩略图。可以通过调整宽度和高度来设置所需的缩略图大小。例如，创建一个宽度为100像素，高度为100像素的缩略图：
创建缩略图：使用TBitmap组件创建缩略图。可以通过调整宽度和高度来设置所需的缩略图大小。例如，创建一个宽度为100像素，高度为100像素的缩略图：
将缩略图加载到TImage控件中：最后，将缩略图加载到TImage控件中显示出来。例如，如果有一个名为Image1的TImage控件，可以使用以下代码加载缩略图：
将缩略图加载到TImage控件中：最后，将缩略图加载到TImage控件中显示出来。例如，如果有一个名为Image1的TImage控件，可以使用以下代码加载缩略图：

整合上述步骤，可以得到完整的代码示例：

uses
  Vcl.Imaging.jpeg, Vcl.Imaging.pngimage, Vcl.ExtCtrls;

procedure LoadThumbnail(const FileName: string; ImageControl: TImage; Width, Height: Integer);
var
  Image: TJPEGImage;
  Thumbnail: TBitmap;
begin
  Image := TJPEGImage.Create;
  try
    Image.LoadFromFile(FileName);

    Thumbnail := TBitmap.Create;
    try
      Thumbnail.Width := Width;
      Thumbnail.Height := Height;
      Thumbnail.Canvas.StretchDraw(Rect(0, 0, Thumbnail.Width, Thumbnail.Height), Image);

      ImageControl.Picture.Assign(Thumbnail);
    finally
      Thumbnail.Free;
    end;
  finally
    Image.Free;
  end;
end;

// 使用示例
LoadThumbnail('image.jpg', Image1, 100, 100);

以上是基于Delphi的实现，对于其他编程语言，可以根据类似的原理和库来实现相同的功能。