MultiByteToWideChar

[sasha_prof]

Ребята помогите пожалуйста разобраться.
В 64 бит офисе 2016 ругается на строку

L = MultiByteToWideChar(CP_UTF8, 0, src(0), UBound(src) + 1, StrPtr(dst), 0)

Код следующий...

Option Explicit

Private Declare PtrSafe Function WideCharToMultiByte Lib "kernel32" ( _
    ByVal CodePage As Long, _
    ByVal dwFlags As Long, _
    ByVal lpWideCharStr As LongPtr, _
    ByVal cchWideChar As Long, _
    ByVal lpMultiByteStr As LongPtr, _
    ByVal cbMultiByte As Long, _
    ByVal lpDefaultChar As LongPtr, _
    ByVal lpUsedDefaultChar As LongPtr) As LongPtr
    
Private Const CP_UTF8 = 65001


Public Sub fromXML_Any_Long(file)
    Dim src() As Byte, dst As String, L As LongPtr
    
    Open file For Binary As #1
    ReDim src(LOF(1) - 1)
    Get 1, , src
    Close 1
    
    L = MultiByteToWideChar(CP_UTF8, 0, src(0), UBound(src) + 1, StrPtr(dst), 0)
    
    
    dst = Space(L)

    Call MultiByteToWideChar(CP_UTF8, 0, src(0), UBound(src) + 1, StrPtr(dst), L)
End Sub

[Aleksandr H.]

Какими словами ругается?

[sasha_prof]

прикрепил...

[Aleksandr H.]

А где реализация MultiByteToWideChar?

[sasha_prof]

Точно.... Тупанул.
Перейменовал. Но теперь пишет "Argumet not optional"

Private Declare PtrSafe Function MultiByteToWideChar Lib "kernel32" ( _
    ByVal CodePage As Long, _
    ByVal dwFlags As Long, _
    ByVal lpWideCharStr As LongPtr, _
    ByVal cchWideChar As Long, _
    ByVal lpMultiByteStr As LongPtr, _
    ByVal cbMultiByte As Long, _
    ByVal lpDefaultChar As LongPtr, _
    ByVal lpUsedDefaultChar As LongPtr) As LongPtr

[p51x]

Ну посчитайте сколько параметров в объявлении и сколько в вызове.

[Aleksandr H.]

Гугл говорит что декларация такая

Private Declare Function MultiByteToWideChar Lib "kernel32" _ (
ByVal CodePage As Long, 
ByVal dwFlags As Long, _ 
ByVal lpMultiByteStr As String, 
ByVal cchMultiByte As Long, _
ByVal lpWideCharStr As String, 
ByVal cchWideChar As Long) As Long

[p51x]

А это с WideCharToMultiByte взял 8 параметров... У ТС по всей теме путаница, то одна функция, то другая.

[sasha_prof]

Вроде идет без ошибок. Но автоматически вырубает аксес на строке

Call MultiByteToWideChar(CP_UTF8, 0, src(0), UBound(src) + 1, StrPtr(dst), L)

Тот код что вы дали адаптировал под 64 бит

Private Declare PtrSafe Function MultiByteToWideChar Lib "kernel32" ( _
    ByVal CodePage As LongPtr, _
    ByVal dwFlags As LongPtr, _
    ByVal lpMultiByteStr As String, _
    ByVal cchMultiByte As LongPtr, _
    ByVal lpWideCharStr As String, _
    ByVal cchWideChar As LongPtr) As LongPtr

[sasha_prof]

разорался, не правильно форматы определил.

Private Declare PtrSafe Function MultiByteToWideChar Lib "kernel32" ( _
    ByVal CodePage As LongPtr, _
    ByVal dwFlags As LongPtr, _
    lpMultiByteStr As Any, _
    ByVal cchMultiByte As LongPtr, _
    ByVal lpWideCharStr As LongPtr, _
    ByVal cchWideChar As LongPtr) As LongPtr

Спасибо кто натолкнул на правильную мысль