当前位置:学Delphi网文档资料专题讲解VGScene

VgScene下的TvgBitmap和TBitmap互相转换的函数

减小字体 增大字体 作者:夢難留  来源:本站整理  发布时间:2011-02-17 10:53:32

现在发现越来越多的人在使用VgScene了,今天这里提供下TvgBitmap和TBitmap怎么互相转换的函数!如有不对的地方,请各位朋友批评指正!

function VgBitMapToBitMap(AVgBmp: TvgBitmap): TBitmap;
begin
  Result := TBitmap.Create;
  try
    Result.Assign(AVgBmp);
  except
    FreeAndNil(Result);
    ShowMessage('转换失败!');
    Exit;
  end;
end;

function BitMapToVgBitMap(ABitBap: TBitmap): TvgBitmap;
var
  AMs: TMemoryStream;
begin
  AMs := TMemoryStream.Create;
  try
    ABitBap.SaveToStream(AMs);
    AMs.Position := 0;
    Result := TvgBitmap.Create(1, 1);
    try
      Result.LoadFromStream(AMs);
    except
      FreeAndNil(Result);
      ShowMessage('转换失败');
      Exit;
    end;
  finally
    AMs.Free;
  end;
end;

Tags:

作者:夢難留
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论