我用VC写了个DLL,其中有一个自定义结构.请问如何在VB中调用.(详内)

[netcrawller]

我用VC写了个DLL,其中有一个自定义结构.现在想在VB中调用.
该怎么用.
结构:
typedef struct tagID3 {
//char head[3];
char title[30];
char artist[30];
char album[30];
//char year[4];
//char comment[30];
//char genre[1];
}ID3;
原形是:long __stdcall GetId3Info(ID3* pInfo, LPCSTR szFileName)

pInfo是返回值

[射天狼]

Type tagID3
head As String
title As String
artist As String
album As String
year As String
comment As String
genre As String
End Type

[netcrawller]

那声明又怎么写呢
Private Declare Function GetId3Info Lib "id3.dll" (ByRef SongInfo As ID3INFO, ByRef Filename As String) As Long
这样有问题啊.

[射天狼]

Private Declare Function GetId3Info Lib "id3.dll" (ByRef SongInfo As tagID3, ByRef Filename As String) As Long

怎么声明的就怎么写呗~~

[海牛]

Type tagID3
head As String*3
title As String*30
artist As String*30
album As String*30
year As String*4
comment As String*30
genre As String*1
End Type

[flc]

学习

[Ranma_True]

用atl写个公共结构类

[subzero]

这个是mp3的tag吧？

Type tagID3
Header As String * 3 '/*标签头必须是"TAG"否则认为没有标签*/
Title As String * 30 '/*标题*/
Artist As String * 30 '/*作者*/
Album As String * 30 '/*专集*/
Year As String * 4 '/*出品年代*/
Comment As String * 30 '/*备注*/
Genre As Byte
End Type

Private Declare Function GetId3Info Lib "id3.dll" (ByRef SongInfo As long, ByRef Filename As String) As Long

调用的时候

dim tag as tagID3

call GetId3Info(varptr(tag),filename)

[subzero]

应该是
Private Declare Function GetId3Info Lib "id3.dll" (ByVal SongInfo As long, ByRef Filename As String) As Long

[netcrawller]

不行，不对。结构返回不出来。
typedef struct tagID3 {
char head[3];
char title[30];
char artist[30];
char album[30];
char year[4];
char comment[30];
char genre[1];
}ID3;

这是C中的结构

[subzero]

你的原型不是
原形是:long __stdcall GetId3Info(ID3* pInfo, LPCSTR szFileName)
返回pInfo指针么？
那么在vb中她返回的就是一个long，就是指向一个已定义的id3结构的变量