推荐星级:
  • 1
  • 2
  • 3
  • 4
  • 5

Delphi-三层结构中传图片

更新时间:2018-10-29 16:41:17 大小:39K 上传用户:sun2152查看TA发布的资源 标签:delphi 下载积分:1分 评价赚积分 (如何评价?) 收藏 评论(0) 举报

资料介绍

添加如下两个方法放到DmPic

 

  function MemoryStreamToOleVariant(Strm: TMemoryStream): OleVariant;

  function OleVariantToMemoryStream(OV: OleVariant): TMemoryStream;

 function TDmPic.MemoryStreamToOleVariant(Strm: TMemoryStream): OleVariant;

var

  Data: PByteArray;

begin

  Result := VarArrayCreate([0, Strm.Size - 1], varByte);

  Data := VarArrayLock(Result);

  try

    Strm.Position := 0;

    Strm.ReadBuffer(Data^, Strm.Size);

  finally

    VarArrayUnlock(Result);

  end;

end;


部分文件列表

文件名 大小
Delphi-三层结构中传图片.doc 39K

全部评论(0)

暂无评论