Передача unicode строки в библиотеку VB

@Randen · Регистрация: 06.01.2014

Студворк — интернет-сервис помощи студентам

Здравствуйте.
Поменял в проекте кодировку на Unicode. Теперь библиотека VB принимает пустые строки.
Что можно сделать?
Может как-то передавать строку в обычной кодировке? Но такой способ в самом PB дает пустую строку:

PureBasic
1
2
Text.s = "Текст"
Text2.s = PeekS(@*Text, -1, #PB_Unicode)

@locm · 27.01.2015, 13:25

Если проект юникодный, то строку не нужно перекодировать, ведь она и так в юникоде. Возможно в VB какие-то нестандартные юникодные стоки. Возможно BSTR. PB поддерживает этот тип строки (в прототипах, интерфейсах и импорте) через псевдотип p-bstr.

@Randen · 27.01.2015, 14:22 **[ТС]**

locm, не понятно. Что делать с этим? Как мне передать строку p-bstr, как вообще создать такую переменную? Если в примере по вашей ссылке всего лишь импорт готовой функции. По моему, этот пример вообще бесполезен.

До этого я пользовался функцией, для преобразования в bstr:

PureBasic
1
2
3
4
5
6
7
8
9
10
Procedure.l ansi2bstr(ansi.s)
  size.l=MultiByteToWideChar_(#CP_ACP,0,ansi,Len(ansi),0,0)
  Dim unicode.w(size)
  MultiByteToWideChar_(#CP_ACP, 0, ansi, Len(ansi), unicode(), size);#CP_ACP
  For i=0 To size
        tmp.s + Hex(unicode(i),#PB_Unicode)
        Next
  ;MessageRequester(Str(size), tmp )
  ProcedureReturn SysAllocString_(@unicode())
EndProcedure

А как её переделать под юникод?

@locm · 27.01.2015, 14:30

Сообщение от Randen

всего лишь импорт готовой функции.

Разве из библиотеки на VB не импортируется функция?
Покажите код вызова этой функции.

@Randen · 27.01.2015, 14:32 **[ТС]**

locm, кажется понял. Я вызваю Call методом. Но щас что-нибудь придумаю)

@locm · 27.01.2015, 14:41

Нужно вызывать через прототип.

@Randen · 27.01.2015, 14:45 **[ТС]**

Не получается.

PureBasic
1
2
3
Import "тут полный путь до *.lib файла"
  DocumentOpen(Word.l, Path.p-bstr)
EndImport

Пишет ошибку unresolved external symbol '_DocumentOpen'

@locm · 27.01.2015, 14:50

Возможно в lib-файле другое имя у функции. Его нужно открыть в каком-то hex-просмоторщике (в крайнем случае, перетащить lib-файл в окно редактора PB) и посмотреть какое у функции имя.

@Randen · 27.01.2015, 14:53 **[ТС]**

locm, а можно вместо импорта прототип использовать?

@locm · 27.01.2015, 14:58

Можно.

PureBasic
1
2
3
4
5
Prototype DocumentOpen(Word.l, Path.p-bstr)
If OpenLibrary(0, "VB_Lib.dll")
  DocumentOpen.DocumentOpen = GetFunction(0, "DocumentOpen")
  DocumentOpen(0, "С:\1234.doc")
EndIf

@Randen · 27.01.2015, 15:09 **[ТС]**

Хорошо. Но таким образом функция даже не начинает выполняться. Всё из-за типа p-bstr. Функция принимает String.
В чём может быть проблема?

Добавлено через 4 минуты
"не начинает выполняться" это я подразумевал что выдает ошибку)

@locm · 27.01.2015, 15:14

Сообщение от Randen

Функция принимает String.

Для начала нужно выяснить какой формат строки в VB6.

@Randen · 27.01.2015, 16:14 **[ТС]**

locm, скорее всего bstr. Т.к. эта функция:

PureBasic
1
2
3
4
5
6
7
8
9
10
Procedure.l ansi2bstr(ansi.s)
  size.l=MultiByteToWideChar_(#CP_ACP,0,ansi,Len(ansi),0,0)
  Dim unicode.w(size)
  MultiByteToWideChar_(#CP_ACP, 0, ansi, Len(ansi), unicode(), size);#CP_ACP
  For i=0 To size
        tmp.s + Hex(unicode(i),#PB_Unicode)
        Next
  ;MessageRequester(Str(size), tmp )
  ProcedureReturn SysAllocString_(@unicode())
EndProcedure

при кодировке Ansi, выручала.

Добавлено через 58 минут
Всё, разобрался. Спасибо

Новые блоги и статьи Все статьи Все блоги /
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .

@locm 6493 / 3123 / 331 Регистрация: 28.10.2011 Сообщений: 12,277 Записей в блоге: 7
	27.01.2015, 13:25
	Если проект юникодный, то строку не нужно перекодировать, ведь она и так в юникоде. Возможно в VB какие-то нестандартные юникодные стоки. Возможно BSTR. PB поддерживает этот тип строки (в прототипах, интерфейсах и импорте) через псевдотип p-bstr. 1

@Randen 35 / 35 / 15 Регистрация: 06.01.2014 Сообщений: 707
	27.01.2015, 14:32 [ТС]
	locm, кажется понял. Я вызваю Call методом. Но щас что-нибудь придумаю) 0

@locm 6493 / 3123 / 331 Регистрация: 28.10.2011 Сообщений: 12,277 Записей в блоге: 7
	27.01.2015, 14:41
	Нужно вызывать через прототип. 1

@locm 6493 / 3123 / 331 Регистрация: 28.10.2011 Сообщений: 12,277 Записей в блоге: 7
	27.01.2015, 14:50
	Возможно в lib-файле другое имя у функции. Его нужно открыть в каком-то hex-просмоторщике (в крайнем случае, перетащить lib-файл в окно редактора PB) и посмотреть какое у функции имя. 1

@Randen 35 / 35 / 15 Регистрация: 06.01.2014 Сообщений: 707
	27.01.2015, 14:53 [ТС]
	locm, а можно вместо импорта прототип использовать? 0

@Randen 35 / 35 / 15 Регистрация: 06.01.2014 Сообщений: 707
	27.01.2015, 15:09 [ТС]
	Хорошо. Но таким образом функция даже не начинает выполняться. Всё из-за типа p-bstr. Функция принимает String. В чём может быть проблема? Добавлено через 4 минуты "не начинает выполняться" это я подразумевал что выдает ошибку) 0