expert help needed converting vb6

  • Thread starter Thread starter john
  • Start date Start date
J

john

Hello,

I am trying to convert a project from vb6 to vb.net. The code is a
sample from an sdk for Canon digital camera's. I have gotten most of the
issues resolved, but there are some that I am lacking knowledge in. I would
appreciate any help give with this. The main errors have to deal with the
VarPtr and AddressOf expression. Unfortunetly I do not have much experience
with delegates. Below is some of the code. I can produce the entire project
if anyone would like it. Thanks in advance for your time.

John


addressOf issue:

Private Sub cmdViewFinder_Click(ByVal eventSender As System.Object, ByVal
eventArgs As System.EventArgs) Handles cmdViewFinder.Click

Dim err_Renamed As Integer


If m_bCamConnect = False Then

Exit Sub

End If


If m_bViewFinder = False Then

'UPGRADE_WARNING: Add a delegate for AddressOf ViewFinderCallbackFunc Click
for more:
'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1048"'

err_Renamed = CDStartViewfinder(m_hSource, 1, AddressOf
ViewFinderCallbackFunc, 0)

If err_Renamed <> cdOK Then

GoTo ErrHandler

End If

cmdViewFinder.Text = "End"

cmdAEAF.Enabled = True

m_bViewFinder = True

Else

err_Renamed = CDTermViewfinder(m_hSource)

If err_Renamed <> cdOK Then

GoTo ErrHandler

End If

cmdViewFinder.Text = "Start"

cmdAEAF.Enabled = False

m_bViewFinder = False

picViewFinder.Image = Nothing

End If


Exit Sub



VarPrt issue:

Private Sub GetRelData(ByRef NumData As Integer)


'UPGRADE_NOTE: err was upgraded to err_Renamed. Click for more:
'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1061"'

Dim err_Renamed As Integer

Dim myMedium As cdStgMedium

Dim RelImgInfo As cdReleaseImageInfo

Dim i As Integer

Dim szPrefix As String

Dim szExt As String

Dim index As String

Dim bytBuff() As Byte


If NumData = 0 Then

Exit Sub

End If


m_Progress = New Progress.CProgress


'/* UI is locked so that information may not be changed. */

err_Renamed = CDLockUI(m_hSource)

If err_Renamed <> cdOK Then

GoTo ErrHandler

End If


For i = 1 To NumData

'/* A preservation file name is decided. */

If CDGetReleasedData(m_hSource, 0, 0, 0, RelImgInfo, 0) <> cdOK Then

Exit For

End If


Select Case RelImgInfo.DataType

Case cdDATA_TYPE_THUMBNAIL

szPrefix = "TH"

szExt = "JPG"

Case cdDATA_TYPE_PICTURE

szPrefix = "FV"

If RelImgInfo.Format_Renamed = 1 Then

szExt = "JPG"

Else

szExt = "CRW"

End If

Case cdDATA_TYPE_PLUS_JPEG

szPrefix = "FP"

szExt = "JPG"

End Select


m_RelFileIndex = m_RelFileIndex + 1

index = VB6.Format(m_RelFileIndex, "000000")

myMedium.Type = cdMEMTYPE_FILE

myMedium.u.lpszFileName = txtSavePath.Text & szPrefix & index & "." & szExt


ReDim bytBuff(Len(myMedium.Type) + Len(myMedium.u.lpszFileName))

'UPGRADE_ISSUE: VarPtr function is not supported. Click for more:
'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1040"'

Call RtlMoveMemory(VarPtr(bytBuff(0)), myMedium.Type, Len(myMedium.Type))

'UPGRADE_ISSUE: VarPtr function is not supported. Click for more:
'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1040"'

Call RtlMoveMemory(VarPtr(bytBuff(Len(myMedium.Type))),
myMedium.u.lpszFileName, Len(myMedium.u.lpszFileName))


m_Progress.startProgress((Me.Handle.ToInt32))

'UPGRADE_ISSUE: VarPtr function is not supported. Click for more:
'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1040"'

'UPGRADE_WARNING: Add a delegate for AddressOf ProgressCallbackFunc Click
for more:
'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1048"'

err_Renamed = CDGetReleasedData(m_hSource, AddressOf ProgressCallbackFunc,
0, cdPROG_REPORT_PERIODICALLY, RelImgInfo, VarPtr(bytBuff(0)))

m_Progress.endProgress()

If err_Renamed <> cdOK Then

GoTo ErrHandler

End If


Next i


'UPGRADE_NOTE: Object m_Progress may not be destroyed until it is garbage
collected. Click for more:
'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1029"'

m_Progress = Nothing


'/* The lock of UI is canceled. */

err_Renamed = CDUnlockUI(m_hSource)

If err_Renamed <> cdOK Then

GoTo ErrHandler

End If


Exit Sub


ErrHandler:

'UPGRADE_NOTE: Object m_Progress may not be destroyed until it is garbage
collected. Click for more:
'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1029"'

m_Progress = Nothing


CDUnlockUI(m_hSource)


If GETERRORID(err_Renamed) <> cdOPERATION_CANCELLED Then

MsgBox("ErrorCode = 0x" & Hex(err_Renamed), MsgBoxStyle.Critical, "Error")

End If


End Sub
 
Back
Top