复制结构体或流到Variant里
来源:互联网 发布:python内置函数大全 编辑:程序博客网 时间:2024/05/16 15:23
set nocount on 在使用dbExperss时 在SQLSERVER的存储过程开头要写这一行,在尾select 之前写set nocount off
procedure VariantToStream(const Data: OleVariant; Stream: TStream);
var
p: Pointer;
begin
p := VarArrayLock(Data);
try
Stream.Write(p^, VarArrayHighBound(Data,1) + 1); //assuming low bound = 0
finally
VarArrayUnlock(Data);
end;
end;
function StreamToVariant(Stream: TStream): OleVariant;
var
p: Pointer;
begin
Result := VarArrayCreate([0, Stream.Size - 1], varByte);
p := VarArrayLock(Result);
try
Stream.Position := 0; //start from beginning of stream
Stream.Read(p^, Stream.Size);
finally
VarArrayUnlock(Result);
end;
end;
function RecToVariant(Rec:TMyRecArr):variant;
var
p:PChar;
begin
Result:=VarArrayCreate([0,SizeOf(Rec) - 1],VarByte);
p:=VarArrayLock(Result);
try
Move(Rec[1], p^, SizeOf(Rec))
finally
VarArrayUnlock(Result);
end;
end;
procedure VariantToRec(Value:variant): TMyRecArr;
var
p:PChar;
Size: Cardinal;
begin
size:=VarArrayHighBound(Value,1);
p:=VarArrayLock(Value);
try
Move(p^, Result[1], Size)
finally
VarArrayUnlock(Value);
end;
end;
- 复制结构体或流到Variant里
- VARIANT 结构
- variant结构
- 复制整张表或复制表结构
- 有两张表,结构相同,写一条sql语句,将表A里不同内容的记录复制到表B里
- map 数组里放 pair 或 结构体
- SQL语句实现SQL Server及ACCESS复制表结构或表结构及内容到新的表
- SQL语句实现SQL Server及ACCESS复制表结构或表结构及内容到新的表
- ”下载到itunes的软件不能同步到iphone5手机里呢?总是显示复制或应用或同步“的解决
- 如何将Sublime Text中的代码以彩色高亮形式复制到博客或word文档里
- 复制一张表的数据或结构
- [PHP][Function]实现将一个文件夹下的所有文件及文件夹复制到另一个文件夹里(保持原有结构
- SQL语句实现SQL Server 2000及ACCESS复制表或表结构及内容到新的表
- VARIANT 到 QString的转换
- 结构体复制
- ChemDraw结构如何复制到Word文档
- PowerDesigner导出表结构到word里
- PowerDesigner导出表结构到word里
- 彩色的DataGrid(WinForm)代码实现,群内某位仁兄公开的,代码贴上来
- 太残忍!麦当劳用毒气室杀鸡
- [Eclipse]基础--Eclipse 资源 【转自‘分享Java快乐’】
- c#生成pdf文件
- 给程序员的二十条人生建议
- 复制结构体或流到Variant里
- 一道难题
- 如何使程序在运行时自动注册ActiveX控件
- [转贴]婚前婚后的古典诗词
- 资源实做举例--如何将Wav文件做到EXE文件里
- 无线业务仍是互联网主力 3G将是最新的热点
- 如何在标题栏上增加按钮
- Windows消息
- 精品书籍