Работа с описателями

[gaidar]

Twister
Работа с описателями

http://www.vbstreets.ru/VB/Articles/66343.aspx

[Amed]

Картинки не грузятся. Совсем.

[gaidar]

Какие картинки?

[tyomitch]

Ещё вопрос к Twister-у, а также GSerg-у и многим другим, от которых я видел такой же код.

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

Public Function GetStrFromPtrW(lpszW As Long) As String
Dim sRtn As String
sRtn = String$(lstrlenW(ByVal lpszW) * 2, 0)
Call WideCharToMultiByte(CP_ACP, 0, ByVal lpszW, -1, ByVal sRtn, Len(sRtn), _
                                                                       0, 0)
GetStrFromPtrW = GetStrFromBufferA(sRtn)
End Function

Private Function GetStrFromBufferA(sz As String) As String
If InStr(sz, vbNullChar) Then
    GetStrFromBufferA = Left$(sz, InStr(sz, vbNullChar) - 1)
Else
    GetStrFromBufferA = sz
End If
End Function


Почему бы не использовать вместо этого чуда мысли один вызов SysAllocString?

[GSerg]

GSerg такого точно написать не мог. Он LPWSRT в CopyMemory отправляет, как впрочем, и LPSTR. Ибо, в итоге это один фиг получается...

[tyomitch]

А зачем вообще GSerg, так же как Twister и остальные, самостоятельно изобретает замену давно существующей функции?

[GSerg]

Вопрос этот сложен и многогранен.

Как известно, VB осуществляет конвертирование строк сами знает откуда сами знаете куда при вызове API и обратное конвертирование при возврате из API.
Если API объявлена As String, то VB, разумеется, сконвертирует результат сами знаете куда, и его будет мало волновать, следует ли делать это.

Простой пример.
Согласно документации, SysAllocString принимает параметром указатель на юникодовую строку, и возвращает BSTR с той же строкой. Вызываем:

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

Option Explicit

Private Declare Function SysAllocString Lib "oleaut32.dll" (ByVal pOlechar As Long) As String

Private Sub Form_Load()
  Dim pattern As String, result As String
 
  pattern = "Проверка"
  result = SysAllocString(StrPtr(pattern))
 
  MsgBox result
  MsgBox StrConv(result, vbFromUnicode)
End Sub

Комментарии излишни. Нафига нам позволять VB сначала конвертировать результат из ANSI в юникод, а потом ручками конвертировать обратно, в то время как мы можем вызвать CopyMemory, и сократить число конвертирований с 2 до 0?

Сей метод, с SysAllocString, актуален разве что когда на самом деле строка вовсе не в юникоде. Тогда SysAllocString тупо её скопирует, VB развернёт результат в юникод при возврате из функции и всё будет нормально - НО для этого требуется, чтобы та самая ANSI-строка заканчивалась не одним, а двумя vbNullChar, иначе есть большой риск огрести сами знаете что.

Фыфот?
Нафиг нам не нужна SysAllocString.

[gaidar]

GSerg, а напиши-ка по этому поводу пухлую статью, а? Поскольку это многим интересно, но мало кто об этом знает и терпения копать тоже мало у кого хватает.

[tyomitch]

2GSerg:

1) данный метод тобой рекомендовался и для ANSI-строк, где конвертацию -- при использовании CopyMemory -- всё равно приходится выполнять явно.

2) для тех, у кого в конце строк один vbNullChar, а не два, есть SysAllocStringByteLen.

3) а сколько преобразований в коде Twister-а, интересно, если он вызывает WideCharToMultiByte для конвертации строки из Юникода в Юникод?
Мне почему-то кажется, что те же два, которые мы получаем вызовом SysAllocString в лоб.

4) для продвинутых всегда есть возможность объявить SysAllocString в TLB, и излишняя конвертация не будет выполняться. Более того, по моему опыту, в продвинутых программах без TLB всё равно не обойтись, и добавить в неё одно объявление -- не заморочно.

[GSerg]

1) Ага. Только там она одна, конвертация

2) А про неё ты выше не упоминал

3) Дык причём тут код Твистера? Раз уж ты включил меня в число опрашиваемых по данному вопросу и после того, как я объяснил, что я так не делаю, а пользуюсь исключительно CopyMemory, так и рассматриваем только мою CopyMemory и твою SysAllocString

4) Да - но опять же, ты не упоминал об этом выше

[tyomitch]

Нет, мой изначальный вопрос был шире: "зачем писать своё, когда уже есть готовое".

Осталось дождаться комментариев Twister-а.

[gaidar]

GSerg и Tyomitch, как дойдете до истины, пишите статью!

[Twister]

Комментарии Twister-а:

LPWSRT в CopyMemory отправляет, как впрочем, и LPSTR

Да, мы это с GSerg-ом в АСЕ обсуждали, но что-то с первого раза у меня не вышло, поэтому решил просто воспользоваться кодом из API-Guidа. Об оптимизации конвертации строк я, честно говоря, не задумывался...

[tyomitch]

В API-Guide чего только не понапишут... Даже про ExitProcess(GetExitCodeProcess(GetCurrentProcess))) есть.
Почему его возвели в статус эталона?

[GM]

... для продвинутых всегда есть возможность объявить SysAllocString в TLB, и излишняя конвертация не будет выполняться. Более того, по моему опыту, в продвинутых программах без TLB всё равно не обойтись, и добавить в неё одно объявление -- не заморочно.

Я когда писал свою библиотеку для быстрой работы со строками именно так и делал, достаточно было объявить строку как:

long InStrQ([in] long Start,[in] BSTR String, [in] BSTR SubString);

И VB без конвертации передавал ф-цию в мою dll'ку.

[Twister]

В API-Guide чего только не понапишут... Даже про ExitProcess(GetExitCodeProcess(GetCurrentProcess))) есть.
Почему его возвели в статус эталона?

О чем ты? Какого эталона? Просто я использовал то, что первое попалось под руку.

[gaidar]

Примеры в API Guide писали люди еще в то время, когда только учились программировать, так что глюков там немерено.

[Twister]

Маленькая поправочка к статье:

Нам нужно лишь найти нужный описатель (сравнивая ProcessId в структуре SYSTEM_HANDLE_INFORMATION c PID-ом KAV-а)

Ошибочка вышла - ночью по запарке совсем не то написал. ProcessId в структуре SYSTEM_HANDLE_INFORMATION нужно сравнивать с PID-ом csrss и если они равны, то опрашивать описатель с помощью ZwQueryInformationProcess. Если в полученном буфере (тип PROCESS_BASIC_INFORMATION) поле UniqueProcessId равно PID-у KAV, то значит нашли, можно копировать...

[Twister]

Ох, тут нельзя редактировать посты... Тогда добавлю новый.

Гайдар, а нельзя ли этот момент прямо в статье поправить? А то даже стыдно как-то...

[tyomitch]

Twister, тогда и GetStrFromPtrW заодно поправь
Код тебе GSerg уже дал.

[Twister]

Ну насчет поправок - к Гайдару.
Хотя я ж говорю - цель оптимизировать ВСЕ я не ставил... По идее нужно уточнить работу с потоками.

[Twister]

Вот тут лежит поправленный вариант...
http://twister-kz.narod.ru/Articles/handles_vb.html

[tyomitch]

Twister, тогда и GetStrFromPtrW заодно поправь
Код тебе GSerg уже дал.

[Twister]

цель оптимизировать ВСЕ я не ставил... По идее нужно еще уточнить работу с потоками.

[tyomitch]

Тебе дали готовый код. Тебе тяжело вставить одну строчку вместо двух процедур?

[gaidar]

Жду правленой статьи на mail.

Кстати, на VBStreets мы обычно эксклюзивно статьи публикуем...

[Twister]

Тебе дали готовый код. Тебе тяжело вставить одну строчку вместо двух процедур?

Да дело не в готовом коде. Дело в том, что статья моя о хэндлах, а не о конвертации строк. Но... Поправочку я внес и хочу сказать спасибо за подсказку. Нормальная версия тут. На мыло к Гайдару она тоже ушла. Будем ждать...

[Twister]

Вижу статью gaidar поправил. Большое спасибо.
tyomitch, нормально, ты доволен?

[tyomitch]

Я доволен, и пользуясь случаем, указываю gaidar-у на свою субмиссию: http://bbs.vbstreets.ru/viewtopic.php?p=6609749#6609749

[tyomitch]

GSerg и Tyomitch, как дойдете до истины, пишите статью!

Подойдёт?