推荐星级:
- 1
- 2
- 3
- 4
- 5
Delphi-三层结构中传图片
资料介绍
添加如下两个方法放到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)