Unicode to ANSI.

[Denutrror]

Здравствуйте.

Заранее хочу предупредить, что в программировании я ещё совсем зелёный, поэтому прошу отнестись с пониманием, если я задам "глупый" вопрос.

Вот в чём суть:
Захотел написать простенькое приложение для онлайн игры (что-то на подобии бота).
Чисто, ради собственного развития.

Необходимо получить значения основных игровых переменных (деньги, координаты положения персонажа, имя игрока и т.п.).
Написал ниже следующее:

procedure sk12;
var
PwHandle : Dword;
BytesCount, ipbuf : Dword;
Hp:dword;
processID: Cardinal;
wHandle, tHandle: Hwnd;

begin
wHandle := FindWindow(nil, 'Perfect World');
if wHandle <> 0 then
begin
  tHandle := GetWindowThreadProcessId(wHandle, @ProcessID);
  pwHandle := OpenProcess(PROCESS_ALL_ACCESS, FALSE, ProcessID);

  ReadProcessMemory(PwHandle, ptr($A571E0), @ipbuf, sizeof(ipbuf), BytesCount);   //Базовый адрес игры
ReadProcessMemory(PwHandle, ptr(ipbuf+$1c), @ipbuf, sizeof(ipbuf), BytesCount); //+0x1C смещение 1
ReadProcessMemory(PwHandle, ptr(ipbuf+$34), @ipbuf, sizeof(ipbuf), BytesCount); // +0x34 смещение 2
ReadProcessMemory(PwHandle, ptr(ipbuf+StrToInt('$' + edit1.text)), @HP, sizeof(HP), BytesCount); //ячейка памяти с искомым значением.

ShowMessage(inttostr(HP));
CloseHandle(PwHandle); //Закрываем Handle
  end
else
 showmessage('Процесс не найден');
 end;

Хотя код и кривоват, но прекрасно находит числовые значения (деньги, дистанцию,ID игрока и проч.), однако не отображает Unicode строки.
Такие как: имя игрока, имена мобов и тому подобное. Проблема в том, что не получается перевести значение ячейки памяти в Ansi.

Пробовал вот так:

var
WideStr: Widestring;
WideCharPointer : PWideChar;

 ReadProcessMemory(PwHandle, ptr($A571E0), @ipbuf, sizeof(ipbuf), BytesCount);   //Базовый адрес игры
ReadProcessMemory(PwHandle, ptr(ipbuf+$1c), @ipbuf, sizeof(ipbuf), BytesCount); //+0x1C смещение 1
ReadProcessMemory(PwHandle, ptr(ipbuf+$34), @ipbuf, sizeof(ipbuf), BytesCount); // +0x34 смещение 2
ReadProcessMemory(PwHandle, ptr(ipbuf+ $66с), @HP, sizeof(HP), BytesCount);      //+0x66с - ник игрока

WideStr:= WideChar(HP);
WideCharPointer:= addr(WideStr[1]);
ShowMessage(WideCharPointer);

Но не получилось, вместо текста выдаёт вопросы.

Помогите с решением, заранее благодарен)

[Пепел Феникса]

версия Делфи?

[Denutrror]

Пепел Феникса, Delphi7.

[Stilet]

Utf8ToAnsi(WideStr)

По идее должна сработать.

[Denutrror]

Stilet, не сработало.
Опять "?" выдаёт.

[Stilet]

Не исключено что это не юникод.

[Пепел Феникса]

Виталий, скорее всего там широкие символы, чего ж ты к UTF8 прицепился?

W:WideString;
s:string;
begin
 SetLength(W,17);//задаем длину начальную, 16 под макс ник +1 под ноль.(хотя в пв помоему 8 символов на ник)
 ReadProcessMemory(pw,<указатель с которого читаем), @W[1], 17*2, BytesCount);
 SetLength(W,lstrlenW(@W[1]));
 s:=w;

как то так вроде.

[Stilet]

скорее всего там широкие символы, чего ж ты к UTF8 прицепился?

Наверное я окончательно перестал различать UTF8 от широких символов

[Пепел Феникса]

UTF16 тоже юникод, но не каждый юникод UTF8.

[Johnson]

В онлайн-играх разработчики любят применять широкие строки, нультерминированные... Если вопрос ещё актуален - вечерком могу скинуть функцию, которая читает их.
Применял в свое время для чтения таких строк из пакетов Lineage...