如何将TParams类型转为Variant？

最新推荐文章于 2024-09-04 12:02:18 发布
最新推荐文章于 2024-09-04 12:02:18 发布
阅读量1k 收藏 2
点赞数
分类专栏： delphi
本文介绍在Delphi中如何将TParams类型的数据转换为Variant类型，以便于调用需要Variant参数的函数。提供了使用PackageParams和UnpackParams函数的方法。

如何将TParams类型转为Variant？
InParam :TParams;
提供的函数为
function ExecProc(const ProcName: AnsiString; const InParam: Variant): Integer;

如果直接调用
ExecProc('SP_Name', InParam)
编译通不过
如何将InParam转为Variant?

在线等！



------解决思路----------------------
delphi中Variant也是一种数据类型 Tparams 继承自tcollection 是个集合类 继承自tojbect 他们之间的转换 是没办法的。

除非你按照execproc 中variants参数类型解析InParam 组合成所需信息 
------解决思路----------------------
PackageParams应该可以，试试，看它的函数是否会出错。 
------解决思路----------------------
找源码啊,DBClient单元PackageParams声明下面就是UnpackParams
function PackageParams(Params: TParams; Types: TParamTypes = AllParamTypes): OleVariant;
procedure UnpackParams(const Source: OleVariant; Dest: TParams);

 

http://www.myexception.cn/delphi/264838.html

7.1 Axios 实例的深度类型封装
嗨，欢迎来到我的 优快云 博客小天地！一名深耕多年的技术发烧友。在这里，我将把日常工作中积累的宝贵经验，从复杂架构设计的精妙之处，到代码优化的实战技巧，毫无保留地分享给大家。
05-24 74
7.1 Axios 实例的深度类型封装
还是毕业设计的问题，Delphi中ADO数据库组件的TParameter＆TParameters的问题，看了一些书上很少讲ADOQuery组件参数的赋值问题所以在这里提一下，希望对一些人有帮助
wansheg的专栏
05-30 4565
  adoquery2.SQL.Clear;      adoquery2.SQL.Add(insert into checked_feeder+      values(:position ,:f_barcode,:r_barcode,:op_num,:tm));      adoquery2.Parameters[0].Value:=count_position ;
Delphi 怎样 把TParams 或 record写到流里面
刘永锋的专栏
07-26 1941
type   TRec=Record     msg:string;     pic:TMemoryStream; end; procedure TForm2.BitBtn1Click(Sender: TObject); var   ms:TMemoryStream;   Rec1,Rec2:TRec;   cc:tmemorystream;   jpg:TJP
一个Tparams小测试
weixin_30267697的博客
10-08 123
var aParams: TParams; aPar: TParam; I:Integer; begin aParams := TParams.Create(nil); aPar := aParams.CreateParam(ftVarBytes, '数据表1', ptInput); aPar.AsString:='aaaaa' ; aPar := aParams.Cr...
Delphi演示Params属性如何使用的小例子..rar
04-22
Delphi演示Params属性如何使用的小例子..rar
Delphi5数据控制组件
weixin_52116519的博客
09-04 485
将DBGrid控件放置在GroupBox控件外，点击DBGrid能选中整行并进行展示，但是浏览时不能修改信息。，添加1个Label、1个Edit、2个BitBtn。类型的枚举，它定义了多种不同的按钮样式。属性用于指定按钮的样式，这个属性是。，但提供了更多样式选项，包括通过其。组件是一个按钮控件，它继承自。属性来改变按钮的显示样式。在 Delphi 中，
``` CSL_SRIO_SetLSUTransfer(hSrio, 0, &tparams); }```详细解释一下
02-21
- 第三个参数`&tparams`: 指向结构体变量`tparams`的地址，此结构体内应该包含了欲设定的具体传输参数信息。 ```c &tparams ``` 由于具体实现细节并未在提供的参考资料中明确给出，以上解读依赖于一般性的理解...
import { ref, watch, isRef } from 'vue'; import { Service, UseRequestOptions, UseRequestResult } from '@/types/use-request'; /** * useRequest 实现 */ export function useRequest<TData = any, TParams extends any[] = any[]>( service: Service<TData, TParams>, options: UseRequestOptions<TData, TParams> = {}, ): UseRequestResult<TData, TParams> { const { manual = false, refreshDeps = [], defaultParams, onSuccess, onError } = options; const data = ref<TData>(); const error = ref<any>(null); const loading = ref<boolean>(false); const lastParams = ref<TParams | undefined>(defaultParams); // 竞态锁，只有一次请求生效 let requestId = 0; async function baseRequest(params?: TParams): Promise<TData | undefined> { loading.value = true; error.value = null; const currentId = ++requestId; const runParams: TParams = // eslint-disable-next-line no-nested-ternary params !== undefined ? params : lastParams.value !== undefined ? lastParams.value : ([] as unknown as TParams); try { const res = await service(...runParams); // 只处理最后一次请求 if (requestId === currentId) { data.value = res; lastParams.value = runParams; onSuccess?.(res, runParams); } return res; } catch (err: any) { if (requestId === currentId) { error.value = err; onError?.(err, runParams); } return undefined; } finally { if (requestId === currentId) { loading.value = false; } } } /** * run 主动执行 */ const run = async (...args: TParams): Promise<TData | undefined> => baseRequest(args as TParams); /** * refresh 依赖参数重新执行 */ const refresh = async (): Promise<TData | undefined> => baseRequest(); // 自动执行 if (!manual) { if (refreshDeps.length > 0) { watch( refreshDeps.map(dep => (isRef(dep) ? dep : dep)), () => { baseRequest(defaultParams); }, { immediate: true }, ); } else { // 自动请求一次 baseRequest(defaultParams); } } return { data, error, loading, run, refresh, }; } 我的这个useRequest hook写的有没有什么问题？帮忙看看，有的话帮忙优化下
08-12
此外，引用[2]提到了类型安全，我们可以考虑使用TypeScript来增强类型检查。 由于用户没有提供具体的实现代码，我将假设一个常见的自定义`useRequest`结构，并基于此给出常见问题检查和优化建议。 假设自定义`...
module drawrings_module { #include "ldata.h" #include <stdio.h> #include <math.h> #define RING_GAP {0.0,3.0,4.0,5.0,6.0,7.0,8.0,9.0,10.0,11.0,12.0} #define W_RING 10.0 #define WCELLS 1000 #define HCELLS 1000 void draw_a_ring(LCell Cell_Now,LLayer Layer_Now,LPoint pt1,LPoint pt2,float R_corner,float W_ring) { float Wcells,Hcells; //float R_corner; //float W_ring; float X_base,Y_base; float x0,y0,x1,y1; x0 = pt1.x; y0 = pt1.y; x1 = pt2.x; y1 = pt2.y; Wcells = abs(x1-x0); Hcells = abs(y1-y0); X_base = (x1+x0)/2.0; Y_base = (y1+y0)/2.0; //up border LBox_New (Cell_Now, Layer_Now, X_base-(Wcells-2*R_corner)/2.0, Y_base+Hcells/2.0, X_base+(Wcells-2*R_corner)/2.0, Y_base+Hcells/2.0+W_ring); //left border LBox_New (Cell_Now, Layer_Now, X_base-Wcells/2.0, Y_base-(Hcells-2*R_corner)/2.0, X_base-Wcells/2.0-W_ring, Y_base+(Hcells-2*R_corner)/2.0); //right border LBox_New (Cell_Now, Layer_Now, X_base+Wcells/2.0, Y_base-(Hcells-2*R_corner)/2.0, X_base+Wcells/2.0+W_ring, Y_base+(Hcells-2*R_corner)/2.0); //bot border LBox_New (Cell_Now, Layer_Now, X_base-(Wcells-2*R_corner)/2.0, Y_base-Hcells/2.0, X_base+(Wcells-2*R_corner)/2.0, Y_base-Hcells/2.0-W_ring); //定义圆环 LTorusParams tParams; // left bottom tParams.ptCenter = LPoint_Set(X_base-(Wcells-2*R_corner)/2.0,Y_base-(Hcells-2*R_corner)/2.0); tParams.nInnerRadius = R_corner; tParams.nOuterRadius = R_corner + W_ring; tParams.dStartAngle = 180; tParams.dStopAngle = 270; LTorus_CreateNew(Cell_Now, Layer_Now, &tParams); // left up tParams.ptCenter = LPoint_Set(X_base-(Wcells-2*R_corner)/2.0,Y_base+(Hcells-2*R_corner)/2.0); tParams.dStartAngle = 90; tParams.dStopAngle = 180; LTorus_CreateNew(Cell_Now, Layer_Now, &tParams); // right up tParams.ptCenter = LPoint_Set(X_base+(Wcells-2*R_corner)/2.0,Y_base+(Hcells-2*R_corner)/2.0); tParams.dStartAngle = 0; tParams.dStopAngle = 90; LTorus_CreateNew(Cell_Now, Layer_Now, &tParams); // right bottom tParams.ptCenter = LPoint_Set(X_base+(Wcells-2*R_corner)/2.0,Y_base-(Hcells-2*R_corner)/2.0); tParams.dStartAngle = 270; tParams.dStopAngle = 0; LTorus_CreateNew(Cell_Now, Layer_Now, &tParams); } void drawrings() { LCell Cell_Now = LCell_GetVisible (); LFile File_Now = LCell_GetFile( Cell_Now ); LGrid Grid_Now; LLayer Layer_Now = LLayer_GetCurrent(File_Now); if(LCell_GetLock(Cell_Now)!=0) { LDialog_AlertBox("Error:The Cell is Locked! Unlock it First"); return; } LFile_GetGrid(File_Now, &Grid_Now); long locator_scale = Grid_Now.locator_scaling; float R_corner,W_ring; LPoint pt1,pt2; float x0,y0,x1,y1; R_corner = 100*locator_scale; x0 = 0; x1 = 1000*locator_scale; y0 = 0; y1 = 1000*locator_scale; //W_ring = 13*locator_scale; float Wcells,Hcells; Wcells = 1000*locator_scale; Hcells = 1000*locator_scale; float w,h,r; float gap_list[] = RING_GAP; w = Wcells; h = Hcells; r = R_corner; int k; float gap; for (k=0;k<sizeof(gap_list)/sizeof(gap_list[0]);k++) { gap = gap_list[k]*locator_scale; W_ring = (13.0-gap)*locator_scale; w = w + 2*gap; h = h + 2*gap; r = r + gap; pt1 = LPoint_Set(-w/2.0,-h/2.0); pt2 = LPoint_Set(w/2.0,h/2.0); draw_a_ring(Cell_Now,Layer_Now,pt1,pt2,r,W_ring); r = r + W_ring; w = w + W_ring*2; h = h + W_ring*2; } //运行完成，刷新显示 LDisplay_Refresh(); } void cnt_main ( void ) { LMacro_BindToHotKey ( KEY_F1, "drawrings_gaopeng", "drawrings" ); } } cnt_main();
最新发布
08-31
tParams.ptCenter = LPoint_Set(X_base-(Wcells-2*R_corner)/2.0, Y_base-(Hcells-2*R_corner)/2.0); tParams.nInnerRadius = R_corner; tParams.nOuterRadius = R_corner + W_ring; tParams.dStartAngle = 180; ...
Delphi msgpack序号还原TFDParams
12-21
Delphi msgpack序号还原TFDParams 客户端传递TFDParams到中间件
TPARAMS和OLEVARIANT相互转换
weixin_30700099的博客
10-17 136
所谓的“真3层”有时候是需要客户端上传数据集的TPARAMS到中间件的。 现在，高版本的DATASNAP的远程方法其实也是直接可以传输TPARAMS类型的变量，但是DELPHI7（七爷）、六爷它们是不支持的。 高版本的DATASNAP要让六爷、七爷它们调用，不能直接传TPARAMS，得转换。 procedure VariantToParams(input: OleVariant; par: ...
delphi多层架构多参数传递处理（前端、服务端）
libertyawing的专栏
01-15 369
前端代码： var vParam:TParams; sMsg:string; sKindStr:string; I:Integer; begin vParam:=TParams.Create; try AddParam(vParam,'THE_CNT',ftInteger,ptInput,kmtb_Check.RecordCo...
Delphi创建子线程的两种参数格式
12-23 1983
//第一种：传指针  TParam=record    TrdId:integer;    Sckt:TSocket;  end;  var  Param:^TParam;     new(Param);      Param^.TrdId:=ThreadCount;      Param^.Sckt:=s;      hThread:=CreateThread(nil,0
关于param取值
超超超超哥的博客
05-08 1512
'&lt;a class="btn bg-red btn-flat btn-xs" data-toggle="modal" data-target="#centerModal" href="&lt;%=path%&gt;/page/user/userDelete.jsp?userUid='+ item.uid + '" data-original-title="删除"&gt
Delphi多层结构中必不可少件TClientDataSet的全面剖析
努力工作的专栏
09-12 1542
在三层结构中，TClientDataSet的地位是不可估量的，她的使用正确与否，是十分关键的，本文从以下几个方面阐述她的使用，希望对你有所帮助.1.动态索引procedure TForm1.DBGrid1TitleClick(Column: TColumn);beginif (not column.Field is Tblobfield) then//Tblobfield不能索引，
DataSnap——利用TParams进行多表事务更新
小宇飞刀的BLOG
08-18 1403
服务端： function TSVRDM.multUpdatesByPar(UpdateParam: TParams; out ErrMsg: string): OleVariant; const aSQL = 'Select * from %s where 1<>1'; var i: Integer; lQuery: TADOQuery; lProvider: TDataSet
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值