Вопрос о SysFreeString

[Йода]

Здравствуйте. Вобщем в shlwapi.dll есть такая функция PathCanonicalize, которая принимает относительный путь типа "C:\A\B\.." и заполняет подготовленный строковый буфер абсолютным. Как оказалось в буфер пишется не "C:\A\", а "C:\A & Chr$(0) & B\", то есть по сути функция просто заменяет предпоследний слеш на символ окончания строки. Для выделения нужной части строки была написана функция:

Код: Выделить всё

Private Declare Function SysAllocStringByteLen Lib "oleaut32.dll" (ByVal bStr As String, ByVal len_Bstr As Long) As String
Private Declare Function SysStringByteLen Lib "oleaut32.dll" (ByVal bStr As Long) As Long
Private Declare Sub GetMem2 Lib "msvbvm60.dll" (ByRef Source As Any, ByRef Destination As Any)

Private Function SelectString(strIn As String) As String

    Dim lng_PtrStart                             As Long
    Dim lng_PtrPos                               As Long
    Dim lng_PtrEnd                               As Long
    Dim intTmpChr                               As Integer

    lng_PtrStart = StrPtr(strIn)
    lng_PtrEnd = lng_PtrStart + SysStringByteLen(ByVal lng_PtrStart)

    For lng_PtrPos = lng_PtrStart To lng_PtrEnd Step 2
   
        Call GetMem2(ByVal lng_PtrPos, intTmpChr)
       
        If intTmpChr = 0 Then
            SelectString = SysAllocStringByteLen(strIn, (lng_PtrPos - lng_PtrStart) \ 2)
            Exit For
        End If
       
    Next lng_PtrPos
   
End Function

Собственно вопрос: Нужно ли вызывать SysFreeString после SysAllocStringByteLen(strIn, (lng_PtrPos - lng_PtrStart) \ 2) ?
Если не нужно то почему?
Если нужно, то что передавать в SysFreeString?

Заранее благодарен за потраченное на мой вопрос время.

[Хакер]

В данном случае нет смысла, потому что не поможет, но (возможно) нужно, потому что (возможно) утечка памяти.

Дело в том, что VB конвертирует строку (возвращённую SysAllocString) обратно в юникод. Вероятно, исходную строку он не считает за BSTR и не делает для неё Free.

Так что для той строки, которая возвращается функцией обёрткой (т.к. она As String) вызывать Free нет смысла (и так вызывается силами VB), а для той строки, которая вызывается оригинальной SysAllocString — нужно, то никак не получится.

Решение: объявить SysAllocString в TLB.

[arthur2]

Так что для той строки, которая возвращается функцией обёрткой (т.к. она As String) вызывать Free нет смысла (и так вызывается силами VB), а для той строки, которая вызывается оригинальной SysAllocString — нужно, то никак не получится.

Решение: объявить SysAllocString в TLB.

А в таком случае что передавать в SysFreeString?

[Хакер]

SysFreeString вообще не надо вызывать в этом случае.