关于在pb中使用struct

[shuisir]

函数原型

int CF_ReadMsg(int iPort,int iIfOpen,UserIDCard *pIDCardData)

其中struct定义如下

typedef struct tagIDCard{
char Name[30];
char Sex[2];
char Nation[4];
char Born[16];
char Address[70];
char IDCardNo[36];
char GrantDept[30];
char UserLifeBegin[16];
char UserLifeEnd[16];
char reserved[36];
}UserIDCard;

请问高手在pb中如何实现

我这样定义函数function integer CF_ReadMsg(integer iPortID,integer iIfOpen,st_card pIDCardData)
并建立了structure
调用并不报错 但却取不到任何数据 事实上是应该有数据的
是不是pb中的struecture跟struct本来就不能混用??

请高手指点!!!!!!!!!!!!!!!

[shuisir]

自己顶下先.................

[dawugui]

调用结构前要先声明.

[dawugui]

PB窗口之间传递多参数的方法
深圳：独孤求败 2003-11-24

在PowerBuilder中函数OpenWithParm，CloseWithReturn，OpenSheetWithParm，windowname.OpenUserObjectWithParm
等都有一个在进行窗口操作（打开或者关闭）时存入Message消息对象的参数parameter或returnvalue。

消息对象Message有三个属性用于存储这些函数传递给窗口的数据（依赖于窗口操作时参数赋予的类型）。
根据parameter / returnvalue参数数据类型的不同，该参数的值保存在Message对象的不同属性中。
parameter / returnvalue参数的类型与使用的Message对象属性的对应关系如下表：

参数类型 Message对象属性
Numeric(数值) Message.DoubleParm
PowerObject(PB对象，包括用户自定义的结构数据类型) Message.PowerObjectParm
String(字符串) Message.StringParm
　　
应用程序根据OpenWithParm()等函数的parameter / returnvalue参数类型，从Message消息对象的不同属性中提取该函数并传送
给被打开窗口的值。

　　在PB中如果是传递一个参数，是很容易实现的。在调用脚本中，可以使用如下代码：

　　openwithparm(w_1,"独孤求败")

　　接着在打开窗口w_1的open事件中键入：

　　sle_1.Text = message.stringparm

如果需要传递多个参数，可以使用如下两种方法：

　　方法一

　　定义结构变量：lstr_para，其中包含你想传递的各种参数：

　　变量名 　　　　 变量类型

　　ID 　　　　　　 string
　　Name 　　　　 string
　　Sex 　　　　 string
　　Loca 　　　 string

　　在调用脚本中(本例使用才菜单clicked中)，使用如下代码：

　　lstr_para lstr_Tranpara

　　lstr_Tranpara.id = "00000001"
lstr_Tranpara.name = "独孤求败"
lstr_Tranpara.sex = "男"
lstr_Tranpara.loca = "广东深圳"

openwithparm(w_2,lstr_Tranpara)


　　接下来在打开窗口w_2的open事件中，获取结构信息：

lstr_para lstr_Getpara

lstr_Getpara = message.powerobjectparm
sle_1.Text = lstr_Getpara.id
sle_2.Text = lstr_Getpara.name
sle_3.Text = lstr_Getpara.sex
sle_4.Text = lstr_Getpara.loca

　　其中，lstr_Getpara为用户自定义结构数据类型，是值传送的。

　　方法二

　　首先创建一个类用户对象

　　uo_para

　　在该用户对象中将你需要传递的各种参数申明成实例变量，例如：

　　public:
string id
string name
string sex
string loca

　　在调用脚本中(本例使用才菜单clicked中)，使用如下代码：　　

　　uo_para uo_Tranpara

uo_Tranpara = create uo_para
uo_Tranpara.id = "00000001"
uo_Tranpara.name = "独孤求败"
uo_Tranpara.sex = "男"
uo_Tranpara.loca = "广东深圳"

OpenWithParm(w_3,uo_Tranpara)

接下来在打开窗口w_3的open事件中，获取用户对象信息：

uo_para uo_Getpara

uo_Getpara = message.powerobjectparm
sle_1.Text = uo_Getpara.id
sle_2.Text = uo_Getpara.name
sle_3.Text = uo_Getpara.sex
sle_4.Text = uo_Getpara.loca

　　以上两种方法比较而言，第一种方法虽然比较简单实用，但是如果遇上较复杂的数据时，便不能在一个结构数据中充分描述了；
第二种方法不但方便灵活，而且可以传送复杂的数据。当然，参数的传送不止以上的几种方法，你也可以使用全局变量或是公共可
访问的窗口实例变量来传送参数，或者在窗口中调用一个函数，并传递所需的参数，在此就不再赘述了。

　　另外，用Message传递参数必须注意以下几点：

　　1. 最好执行完窗口操作（打开或关闭）后马上将Message消息对象的值传给变量，这是因为Message是全局使用的对象，
每一次事件被触发或传送时都会被使用，其他Script 也有可能用到Message消息对象，因此它有被覆盖的危险。

　　2.避免传送NULL对象，以免程序出错。

[polestarxu]

第三种方法：
w_edit ww
OpenSheet( ww,"w_edit",Parent,0,Layered! )
ww.WindowState = Maximized!
ww.initialize( parms1,parms2 -----)
initialize为w_edit内自定义的函数，参数根据需要而定
window类型为main

[handycyw]

structure如何定义？？？？贴出来看看

[shuisir]

type tidcardrec from structure
string Name
string Sex
string Nation
string Born
string Address
string IDCardNo
string GrantDept
string UserLifeBegin
string UserLifeEnd
string reserved
end type

[shuisir]

structure的定义已经贴在楼上了
我一直怀疑是类型的错误 但却没找到这方面的资料
请 handycyw(xmccc) 兄弟及其他高手帮忙看看 如何解决 感激不尽!!!!!

[handycyw]

function integer CF_ReadMsg(integer iPortID,integer iIfOpen,st_card pIDCardData)类型和结构名修改试试
function integer CF_ReadMsg(Long iPortID,Long iIfOpen,tidcardrec pIDCardData)

[chinalht]

和原型一样定义成char类型数组就可以了。

[shuisir]

非常感谢handycyw(xmccc)兄的帮忙
依然不行 郁闷中……

[shuisir]

试过了呀 不行的

[handycyw]

CF_ReadMsg函数有代码吗？是否有问题？？

[doodle]

1、先定义该结构体，最好定义成局部的

2、声明函数，在此参数前加ref：
function integer CF_ReadMsg(integer iPortID,integer iIfOpen,ref st_card pIDCardData)

3、调用
ref不用加

试试吧

[shuisir]

CF_ReadMsg函数是对方公司提供的 没有代码
没有问题 在dephi中运行很正常 晚上我把dephi代码贴上

[shuisir]

1、先定义该结构体，最好定义成局部的
全局和局部我都试过了 没什么区别

2、声明函数，在此参数前加ref：
function integer CF_ReadMsg(integer iPortID,integer iIfOpen,ref st_card pIDCardData)
ref我加过了 程序直接崩溃 原因想不出来 :(

[shuisir]

dephi中这样处理

定义struct:

type
pIDCardRec = ^TIDCardRec ;
TIDCardRec = packed record
Name : array[0..31] of Char;
Sex : array[0..3] of Char;
Nation :array[0..5] of Char;
Born :array[0..17] of Char;
Address :array[0..71] of Char;
IDCardNo : array[0..37] of Char;
GrantDept :array[0..31] of Char;
UserLifeBegin :array[0..17] of Char;
UserLifeEnd :array[0..17] of Char;
reserved :array[0..37] of Char;
// PhotoFileName :array[0..254] of Char;
end;


函数定义:
function CF_ReadMsg(iPortID:integer;iIfOpen:integer;var pIDCardData:TIDCardRec):integer;stdcall;

[doodle]

是pb10吗？pb10的话在函数声明后加 alias for "函数名;Ansi"试试

你定义的结构体名字是st_card吗？第三个参数st_card pIDCardData的类型是st_card，你定义的结构体的必须与之匹配。如果定义成tidcardrec，那声明时当然就是tidcardrec pIDCardData。调用函数也一样


还有:integer 改为 long
function long CF_ReadMsg(long iPortID,long iIfOpen,ref st_card pIDCardData)

[shuisir]

感谢 回去试试