谁能将好像是delphi的数据结构转换为VB的呀?

[poni]

typedef struct tStatus {
WORD error_code; // 错误代号
WORD msg; // 消息代号
DWORD percent; // 当前通讯进程百分比0100
DWORD file_size; // 文件大小字节数
DWORD elapsed_time; // 当前通讯已经过时间1/1000秒
TCHAR file_name[260]; // 当前通讯文件名NT下为520字节
TCHAR open_file_name[260]; // 实际存取文件名NT下为520字节
DWORD current_packet; // 当前通讯包序号从0开始
DWORD total_packets; // 总的通讯包数
DWORD total_packet256s; // 1024字节通讯包数
} TSTATUS; // 结构大小550字节NT下为1072字节
typedef TSTATUS *LPTSTATUS;

[poni]

我已经加了t.file_name=space(260)
t.file_name=space(260)还是提示 出错：未将对象引象设置到对象的实例

[poni]

其实就调用这么一个动态库中中的函数，参数的结构指针形式就是上面提的，没什么程序代码

2.3.13 thrdQueryStatusEx
取多线程方式下详细的通讯状态信息并清除消息寄存器及错误寄存器
DWORD thrdQueryStatusEx(LPVOID lpStatus);
参数
lpStatus
指向一个TSTATUS结构的指针

[Ninputer]

代码，代码，我要看你的代码。

[Ninputer]

还有哪一行出错的，标出来。

[Ninputer]

你ByRef了吗？

[poni]

是引用搞错了，应该是Byref，没留意，谢谢 Ninputer(装配脑袋) (

[poni]

也谢谢楼上各位

[Brunhild]

应该是这样定义的，但实际大小只有1068(2+2+4*3+520*2+4*3=1068)，奇怪了，所以强制指定结构大小为1072了，你看看是否有漏写的数据：

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode, Pack:=1, Size:=1072)> _
Structure tStatus
Public error_code, msg As Int16
Public percent, file_size, elapsed_time As Int32

<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> _
Public file_name, opoen_file_name As String

Public current_packet, total_packets, total_packet256s As Int32
End Structure

[Brunhild]

Imports System.Runtime.InteropServices

[poni]

楼上的，你的写法我已经试过了， 出错：未将对象引象设置到对象的实例

我把Public file_name() , opoen_file_name() As char 也不行呀

[poni]

出错："无法封送类型 tStatus 的字段 file_name：该类型无法作为结构字段进行封送处理。"

[Ninputer]

把代码贴全，包括调用的语句。

[NeoInMatrix]

Before using the structure, you should initialize file_name, open_file:

dim t as tStatus

t.file_name = new string('\0', 260);
t.open_name = new string('\0', 260);

The attribute <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> only tells data type of the member variable, but does not guarantee space allocation.