Серый форум — AHK: изменить кодировку переменной

Re: AHK: изменить кодировку переменной

null@example.com (Dworkin) — Tue, 07 Nov 2017 19:31:48 +0000

Решил проблему запуска на ахк unicode.
Заменил Str, на AStr.
LoadLibrary на LoadLibraryA.
Странно, но GetProcAddress не надо трогать иначе не будет работать.

#NoEnv 

PATH_OVERLAY := "E:\testspeech\recor and send\dx9_overlay.dll"

hModule := DllCall("LoadLibraryA",AStr, PATH_OVERLAY)
if(hModule == -1 || hModule == 0)
{
	MsgBox, 48, Error, The dll-file couldn't be loaded!
	ExitApp
}


Init_func 				:= DllCall("GetProcAddress", UInt, hModule, AStr, "Init")
SetParam_func 			:= DllCall("GetProcAddress", UInt, hModule, AStr, "SetParam")

TextCreate_func 		:= DllCall("GetProcAddress", UInt, hModule, AStr, "TextCreate")
DestroyAllVisual_func	:= DllCall("GetProcAddress", UInt, hModule, AStr, "DestroyAllVisual")
TextDestroy_func 		:= DllCall("GetProcAddress", UInt, hModule, AStr, "TextDestroy")
TextSetShown_func 		:= DllCall("GetProcAddress", UInt, hModule, AStr, "TextSetShown")
TextSetString_func 		:= DllCall("GetProcAddress", UInt, hModule, AStr, "TextSetString")


Init()
{
	global Init_func
	res := DllCall(Init_func)
	return res
}

SetParam(str_Name, str_Value)
{
	global SetParam_func
	res := DllCall(SetParam_func, AStr, str_Name, AStr, str_Value)
	return res
}

TextCreate(Font, fontsize, bold, italic, x, y, color, text, shadow, show)
{
	global TextCreate_func
	res := DllCall(TextCreate_func,AStr,Font,Int,fontsize,UChar,bold,UChar,italic,Int,x,Int,y,UInt,color,AStr,text,UChar,shadow,UChar,show)
	return res
}

TextDestroy(id)
{
	global TextDestroy_func
	res := DllCall(TextDestroy_func,Int,id)
	return res
}

TextSetShown(id, show)
{
	global TextSetShown_func
	res := DllCall(TextSetShown_func,Int,id,UChar,show)
	return res
}

TextSetString(id,Text)
{
	global TextSetString_func
	res := DllCall(TextSetString_func,Int,id,AStr,Text)
	return res
}

DestroyAllVisual()
{
	global DestroyAllVisual_func
	res := DllCall(DestroyAllVisual_func)
	return res 
}

Re: AHK: изменить кодировку переменной

null@example.com (Malcev) — Tue, 07 Nov 2017 18:43:34 +0000

Легче будет через stringreplace символы заменять.

Re: AHK: изменить кодировку переменной

null@example.com (Dworkin) — Tue, 07 Nov 2017 17:43:59 +0000

stealzy пишет:

Почему не на WStr?

Потому что я не понимал и написал наобум.
Удалил ненужные функции. В Ansi работает, в Unicode нет.
Заменил Str, на WStr.
И как тут написано https://lexikos.github.io/v1/docs/commands/DllCall.htm
Поставил в конце функций W:
"LoadLibraryW"
"GetProcAddressW"
Может надо что-то еще заменить?

#NoEnv 

PATH_OVERLAY := "D:\test\dx9_overlay.dll"

hModule := DllCall("LoadLibraryW", WStr, PATH_OVERLAY)
if(hModule == -1 || hModule == 0)
{
	MsgBox, 48, Error, The dll-file couldn't be loaded!
	ExitApp
}


Init_func := DllCall("GetProcAddressW", UInt, hModule, WStr, "Init")
SetParam_func := DllCall("GetProcAddressW", UInt, hModule, WStr, "SetParam")
TextCreate_func := DllCall("GetProcAddressW", UInt, hModule, WStr, "TextCreate")
DestroyAllVisual_func := DllCall("GetProcAddressW", UInt, hModule, WStr, "DestroyAllVisual")
TextDestroy_func := DllCall("GetProcAddressW", UInt, hModule, WStr, "TextDestroy")
TextSetShown_func := DllCall("GetProcAddressW", UInt, hModule, WStr, "TextSetShown")
TextSetString_func := DllCall("GetProcAddressW", UInt, hModule, WStr, "TextSetString")


Init()
{
	global Init_func
	res := DllCall(Init_func)
	return res
}

SetParam(str_Name, str_Value)
{
	global SetParam_func
	res := DllCall(SetParam_func, WStr, str_Name, WStr, str_Value)
	return res
}

TextCreate(Font, fontsize, bold, italic, x, y, color, text, shadow, show)
{
	global TextCreate_func
	res := DllCall(TextCreate_func,WStr,Font,Int,fontsize,UChar,bold,UChar,italic,Int,x,Int,y,UInt,color,WStr,text,UChar,shadow,UChar,show)
	return res
}

TextDestroy(id)
{
	global TextDestroy_func
	res := DllCall(TextDestroy_func,Int,id)
	return res
}

TextSetShown(id, show)
{
	global TextSetShown_func
	res := DllCall(TextSetShown_func,Int,id,UChar,show)
	return res
}

TextSetString(id,Text)
{
	global TextSetString_func
	res := DllCall(TextSetString_func,Int,id,WStr,Text)
	return res
}

DestroyAllVisual()
{
	global DestroyAllVisual_func
	res := DllCall(DestroyAllVisual_func)
	return res 
}

Re: AHK: изменить кодировку переменной

null@example.com (Dworkin) — Tue, 07 Nov 2017 16:22:00 +0000

Кстати я думаю что библиотека не работает с unicode из-за DllCall.
https://github.com/agrippa1994/DX9-Over … verlay.ahk
Можете пожалуйста глянуть и сказать можно ли сделать что бы работало на Unicode? Я имею виду типо заменить str на ptr к примеру. И сказать что по заменять.

Re: AHK: изменить кодировку переменной

null@example.com (Dworkin) — Tue, 07 Nov 2017 16:09:24 +0000

YMP пишет:

Я имел в виду указать кодировку + убрать ваш скрипт для перекодирования.

Я в скрипте вывожу то что получаю от api, а затем вывожу после перекодирования что бы увидеть разницу. FileEncoding не помогло.

Я так же сохранил код в текстовый документ .txt, а затем сохранял как .ahk выбирая разную кодировку. Не помогло.

Re: AHK: изменить кодировку переменной

null@example.com (svoboden) — Tue, 07 Nov 2017 10:44:15 +0000

У меня как-то автоматически переводилась кодировка из CP28591 в CP1251.

Re: AHK: изменить кодировку переменной

null@example.com (YMP) — Tue, 07 Nov 2017 09:25:38 +0000

Dworkin пишет:

Я и указывал и убирал. Вопросики так и остались.

Я имел в виду указать кодировку + убрать ваш скрипт для перекодирования.

Re: AHK: изменить кодировку переменной

null@example.com (Malcev) — Tue, 07 Nov 2017 09:17:51 +0000

Неудивительно, так как у вас изначальная кодировка "СЃР°РјРїРёРє" - 1251.
А у автора "ÑÐ°Ð¼Ð¿Ð¸Ðº" - 28591.

Re: AHK: изменить кодировку переменной

null@example.com (svoboden) — Tue, 07 Nov 2017 09:11:01 +0000

У меня все работает, если CP1251 поставить вместо CP28591.
string := "СЃР°РјРїРёРє".

Re: AHK: изменить кодировку переменной

null@example.com (Dworkin) — Tue, 07 Nov 2017 08:44:15 +0000

YMP пишет:

Если вы указали FileEncoding, как UTF-8, то ваш скрипт перекодирования уже не надо использовать. Он всё испортит.

Я и указывал и убирал. Вопросики так и остались.

Malcev пишет:

А зачем вы используете Ansi версию?

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

Re: AHK: изменить кодировку переменной

null@example.com (Malcev) — Tue, 07 Nov 2017 07:29:41 +0000

svoboden, и что должно получиться?

string := "ÑÐ°Ð¼Ð¿Ð¸Ðº"
VarSetCapacity(ansi, StrPut(string, "CP28591")), StrPut(string, &ansi, "CP28591")
string := StrGet(&ansi, "UTF-8")
msgbox % string
exitapp

Re: AHK: изменить кодировку переменной

null@example.com (svoboden) — Tue, 07 Nov 2017 07:24:40 +0000

CP1251 поставьте вместо CP28591.

Re: AHK: изменить кодировку переменной

null@example.com (YMP) — Tue, 07 Nov 2017 04:59:03 +0000

Dworkin пишет:

В самом верху писал "FileEncoding, CP28591", CP65001 и др...Без изменений.

Если вы указали FileEncoding, как UTF-8, то ваш скрипт перекодирования уже не надо использовать. Он всё испортит.

Re: AHK: изменить кодировку переменной

null@example.com (Malcev) — Tue, 07 Nov 2017 03:59:08 +0000

А зачем вы используете Ansi версию?

Re: AHK: изменить кодировку переменной

null@example.com (Dworkin) — Tue, 07 Nov 2017 00:38:25 +0000

KusochekDobra пишет:

FileEncoding [, Encoding] - устанавливается в секции автовыполнения, там же где и все директивы и указания настроек поведения скрипта. Пробовали ставить?

В самом верху писал "FileEncoding, CP28591", CP65001 и др...Без изменений.