Olá pessoal, estou tentando adaptar meu sistema para também rodar em Access 64 bits.
Já alterei milhares de linhas, mas estou com problemas em algumas funções:
Eis um problema:
Function MyFrameCallback(ByVal lwnd As Long, ByVal lpVHdr As Long) As Long
Debug.Print "FrameCallBack"
Dim VideoHeader As VIDEOHDR
Dim VideoData() As Byte
RtlMoveMemory VarPtr(VideoHeader), lpVHdr, Len(VideoHeader)
ReDim VideoData(VideoHeader.dwBytesUsed)
RtlMoveMemory VarPtr(VideoData(0)), VideoHeader.lpData, VideoHeader.dwBytesUsed
Debug.Print VideoHeader.dwBytesUsed
Debug.Print VideoData
End Function
VarPtr | conversor Variant. | Retorna uma LongPtr em versões de 64 bits e uma longa nas versões de 32 bits (4 bytes).
Existe alguma função semelhante a essa que posso utilizar tanto no 64bits quanto 32 bits?
Ou Existe outra solução?
Já alterei milhares de linhas, mas estou com problemas em algumas funções:
Eis um problema:
Function MyFrameCallback(ByVal lwnd As Long, ByVal lpVHdr As Long) As Long
Debug.Print "FrameCallBack"
Dim VideoHeader As VIDEOHDR
Dim VideoData() As Byte
RtlMoveMemory VarPtr(VideoHeader), lpVHdr, Len(VideoHeader)
ReDim VideoData(VideoHeader.dwBytesUsed)
RtlMoveMemory VarPtr(VideoData(0)), VideoHeader.lpData, VideoHeader.dwBytesUsed
Debug.Print VideoHeader.dwBytesUsed
Debug.Print VideoData
End Function
VarPtr | conversor Variant. | Retorna uma LongPtr em versões de 64 bits e uma longa nas versões de 32 bits (4 bytes).
Existe alguma função semelhante a essa que posso utilizar tanto no 64bits quanto 32 bits?
Ou Existe outra solução?