#1 Burning Software

I'm having trouble getting the GetDeviceInformation to work with Visual Basic. Create seems to work ok, I get a 0 return code, by pointer has a value. When I call GetDeviceInformation, it fails. Here are my declares and call.

Declare Function StarBurn_CdvdBurnerGrabber_Create Lib "c:\windows\system32\StarBurn.dll" (ByRef ObjGrabber As Long, _
ByRef ExceptionText As String, ByVal TextSize As Long, ByRef SystemError As Long, _
ByRef PCDB_Fail_Info As CDB_Failure_Type, ByVal CallBack As Long, CallBackContext As Any, _
ByVal PortID As Byte, ByVal BusID As Byte, ByVal TargetID As Byte, ByVal LUN As Byte, _
ByVal CAcheSizeinMB As Long) As Long

Declare Function StarBurn_CdvdBurnerGrabber_GetDeviceInformation Lib "c:\windows\system32\StarBurn.dll" (ByVal ObjGrabber As Long, _
ByRef VendorID As String, ByRef ProductID As String, ByRef ProductRevisionLevel As String, _
ByRef BufferSizeInUchars As Long) As Long

CacheSize = 0
ExceptionText = Space(1024)
TextSize = 1024

rc = StarBurn_CdvdBurnerGrabber_Create(ObjGrabber, ExceptionText, TextSize, _
SystemError, CDB_Error_Info, AddressOf Create_CallBack, _
Null, D.PortID, D.Bus, D.Target, D.LUN, CacheSize)

VendorID = Space(1024)
ProductID = Space(1024)
ProductRevisionLevel = Space(1024)
BufferSize = 0
rc = StarBurn_CdvdBurnerGrabber_GetDeviceInformation(ObjGrabber, _
VendorID, ProductID, ProductRevisionLevel, BufferSize)

My call to FindDevice works fine. I get the same results as running your examples so the D object in the call represents a drive. D.PortID is the port ID returned from FindDevice etc.

I think it has something to do with the pointer to a pointer in the Create call but I'm not sure.

Hi,

You see, c++ code "char *" should be changed to VB code "ByVal XX As String"
And your VB code "ByRef XX As String" means "char **".

See fixed function declaration:

I thought that was what I was doing. Did I make a mistake on one of them?

After looking at your posting again, I realized you weren't just repeating what I had put in there. I'll change my declares and let you know. I must have gotten confused when I was doing this but I don't have a lot of experience converting C++ to VB.

Thank you for your help.

Hi,

I am so glad to hear that it's working now.
If you will have any other questions don't hesitate to contact me.

Have a nice day,
Alexey

Sorry for the misunderstanding. I was just saying that after some more study, I understood your last post to me. I haven't had a chance to put the changes in the code yet. I hope to do that today.

I did get it working with your help. I got several other functions working too.

Hi,

By the way,
You should change "ByRef ExceptionText As String" to
"ByVal ExceptionText As String", because when exception occured - you will get application crash.

I have seen the same wrong code in different functions:
StarBurn_CdvdBurnerGrabber_ProbeSupportedWriteModes
and StarBurn_CdvdBurnerGrabber_GetSpeeds

Bye

I had noticed I had the wrong from another post you put out there. I think I have that fixed everywhere now.

Nice to hear the issue is gone