delphi tgpbitmap 流

Delphi 中 TGPBitmap 可以使用 TMemoryStream 将其转换为流。以下是示例代码：

uses
  GDIPlus, // 需要引入 GDI+ 单元
  Classes;

function TGPMemoryStream(TGPBitmap: TGPBitmap): TMemoryStream;
var
  EncoderClsid: TGUID;
  Params: TEncoderParameters;
  Stream: TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  try
    GetEncoderClsid('image/png', EncoderClsid); // 获取 PNG 格式的编码器
    Params.Count := 0;
    TGPBitmap.Save(Stream, EncoderClsid, @Params); // 将 TGPBitmap 编码为 PNG 格式并保存到 Stream 中
    Stream.Position := 0;
    Result := Stream;
  except
    Stream.Free;
    raise;
  end;
end;

使用示例：

var
  GPBitmap: TGPBitmap;
  Stream: TMemoryStream;
begin
  GPBitmap := TGPBitmap.Create('C:\test.bmp');
  try
    Stream := TGPMemoryStream(GPBitmap);
    try
      // 这里可以使用 Stream 对象进行操作，如上传到服务器等
    finally
      Stream.Free;
    end;
  finally
    GPBitmap.Free;
  end;
end;