[Помогите!] Unicode to ANSI. Delphi.

[AlexDerkoda]

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

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

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

Нашёл на форуме адреса и оффсеты основных игровых "переменных", и написал ниже следующее:

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);   //BaseAdress
ReadProcessMemory(PwHandle, ptr(ipbuf+$1c), @ipbuf, sizeof(ipbuf), BytesCount); //+0x1C
ReadProcessMemory(PwHandle, ptr(ipbuf+$34), @ipbuf, sizeof(ipbuf), BytesCount); // +0x34
ReadProcessMemory(PwHandle, ptr(ipbuf+StrToInt('$' + edit1.text)), @HP, sizeof(HP), BytesCount);

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

Хотя код и кривоват, но прекрасно находит числовые значения (ХП,МП,WID и т.п.), однако не отображает Unicode строки.

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

var
WideStr: Widestring;
WideCharPointer : PWideChar;

  ReadProcessMemory(PwHandle, ptr($A571E0), @ipbuf, sizeof(ipbuf), BytesCount);   //BaseAdress
ReadProcessMemory(PwHandle, ptr(ipbuf+$1c), @ipbuf, sizeof(ipbuf), BytesCount); //+0x1C
ReadProcessMemory(PwHandle, ptr(ipbuf+$34), @ipbuf, sizeof(ipbuf), BytesCount); // +0x34
ReadProcessMemory(PwHandle, ptr(ipbuf+ $66с), @HP, sizeof(HP), BytesCount);      //+0x66с - ник перса

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

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

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

[krukovis]

вот тут

ReadProcessMemory(PwHandle, ptr(ipbuf+ $66с), @HP, sizeof(HP), BytesCount);

ты находишь АДРЕС имени.
Вот по этому адресу лежат байты.
Начинаешь с первого (нулевого) байта перебирать их беря по 2 байта (т.к. ты читаешь имя, а оно в кодировке Unicode) и конвертируешь каждые 2 байта в Unicode символ, пока не наткнешься на конец строки (массив {0x00, 0x00}). Добавляешь конвертированные символы в массив типа char. Потом массив char собираешь в string.

[nitrotek]

Вопрос зачем вам переходить на ANSI? Если вы конечно не пользуетесь Delphi №< 2007 года

[VeTaL_UA]

Юзай поиск. Я 100500 раз уже писал свою функцию для этого дела.

[vladoscom93]

у меня раньше тоже была такая беда когда делал парсер акков... Короче суть в чем? Нафига тебе из юникода в аски переводить? Можно сделать к примеру так

var
HP: array[0..255] of widechar;
s: WideString;

-----------------------------------------------------------

ReadProcessMemory(PwHandle, ptr(ipbuf+StrToInt('$' + edit1.text)), @HP, sizeof(HP), BytesCount);
s := HP;
memo1.lines.add(s);

как видишь все просто...

[AlexDerkoda]

vladoscom93, спасибо за помощь! Теперь всё прекрасно работает.

[krukovis]

Цитата: Сообщение от nitrotek Вопрос зачем вам переходить на ANSI? Если вы конечно не пользуетесь Delphi №< 2007 года

Ну там вопрос чтения байтов из памяти и конвертирования в строку был, на сколько я понял. Ну я отвечал про это по крайней мере ). Так что версия Делфи к кодировке считываемого текста вряд ли как то относится.

[vladoscom93]

Цитата: Сообщение от krukovis Ну там вопрос чтения байтов из памяти и конвертирования в строку был, на сколько я понял. Ну я отвечал про это по крайней мере ). Так что версия Делфи к кодировке считываемого текста вряд ли как то относится.

В версиях Дельфина ниже 2007 серьезные проблемы с unicode вроде бы как

[VeTaL_UA]

Цитата: Сообщение от vladoscom93 В версиях Дельфина ниже 2007 серьезные проблемы с unicode вроде бы как

как бы юникод ввели в 2010 студии полностью... и никаких "серьёзных" проблемм нету, всего один велоси***** и всё работает.