Иероглифы вместо текста

@EvaPiks · Регистрация: 22.01.2017

Пытаюсь получить текст из lpName, получаю в ответ иероглифы шумерских цивилизайций! Сил больше нет, что только не пробовал!!!

Delphi

var
  OrgCreateMutexA: function(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PWideChar): THandle; stdcall;
function NewCreateMutexA(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PWideChar): THandle; stdcall;
var
  lpNameStr : string;
begin
  lpNameStr := lpName;
  MessageBox(0, 'lpNameStr', Pchar(lpNameStr), MB_OK);
  //nMutex := OrgCreateMutexA(nil, False, '6f3fb9ba52156ce18');
end;

@krapotkin · 20.03.2018, 22:12

попробуйте сообщить версию delphi

@EvaPiks · 20.03.2018, 22:13 **[ТС]**

xe7

@krapotkin · 20.03.2018, 23:29

не верю (С)

Delphi

function NewCreateMutexA(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PWideChar): THandle; stdcall;
var
  lpNameStr : string;
begin
  lpNameStr := lpName;
  MessageBox(0, 'lpNameStr', Pchar(lpNameStr), MB_OK);
  //nMutex := OrgCreateMutexA(nil, False, '6f3fb9ba52156ce18');
end;
 
procedure TMainForm.bStartClick(Sender: TObject);
begin
  NewCreateMutexA(nil, false, 'РУССКИЙ ТЕКСТ');
end;

@EvaPiks · 21.03.2018, 07:16 **[ТС]**

Pascal

var
  OrgCreateMutexA: function(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PWideChar): THandle; stdcall;
function NewCreateMutexA(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PWideChar): THandle; stdcall;
begin
  MessageBox(0, 'lpNameStr', Pchar(lpName), MB_OK);
  //nMutex := OrgCreateMutexA(nil, False, '6f3fb9ba52156ce18');
end;

Что за мистика? Я сам подвох какой то вижу, но как его отловить?

https://www.cyberforum.ru/atta... 1521605782

@krapotkin · 21.03.2018, 08:20

покажите как вызываете

@EvaPiks · 21.03.2018, 08:27 **[ТС]**

Delphi

1	HookProc('kernel32.dll', 'CreateMutexA', @NewCreateMutexA, @OrgCreateMutexA);

Добавлено через 4 минуты
может в настройках проекта что тоинужно поменять? точнг помню сто полгода назад делал чтотоо подобное, возникала точнг таккя же проблема, и я ее точно решал, так как проект и по сей день работает... но совершенно не помню как.

@krapotkin · 21.03.2018, 08:32

мне не нравится что у вас наименования xxxA - CreateMutexA
а параметры у них как у W
CreateMutexW ... lpName: PWideChar
возможно у вас какая то фигня там еще есть.
в результате система думает, что вы ей даете Ansi - функции, а у вас-то - юникод

в норме все функции должны обходиться без A и W и использовать просто PChar

@EvaPiks · 21.03.2018, 08:37 **[ТС]**

Pascal

var
  OrgCreateMutexA: function(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PAnsiChar): THandle; stdcall;
function NewCreateMutexA(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PAnsiChar): THandle; stdcall;
begin
  MessageBox(0, 'lpNameStr', Pchar(lpName), MB_OK);
  //nMutex := OrgCreateMutexA(nil, False, '6f3fb9ba52156ce18');
end;

Безрезультатно! Какие еще есть идеи?

https://www.cyberforum.ru/atta... 1521610586

@EvaPiks · 21.03.2018, 08:42 **[ТС]**

По сути даже такой код не отрабатывает!!!

PureBasic

var
  OrgCreateMutexA: function(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PAnsiChar): THandle; stdcall;
function NewCreateMutexA(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PAnsiChar): THandle; stdcall;
begin
  lpName := '/mtx/sdaifusdk/45678';
  MessageBox(0, 'lpNameStr', Pchar(lpName), MB_OK);
  //nMutex := OrgCreateMutexA(nil, False, '6f3fb9ba52156ce18');
end;

Похоже на какое то безумие уже.

https://www.cyberforum.ru/atta... 1521610895

@krapotkin · 21.03.2018, 08:45

еще раз. глядим на то что хучим
'CreateMutexA',
а теперь на то что выводим
MessageBox(0, 'lpNameStr', Pchar(lpName), MB_OK);
в делфи 2010+ PChar = PWideChar
а строка туда придет PAnsiChar
а выводите вы ее как юникод. получаете правильную картинку
зачем вообще хучить Ansi функцию если ваша программа не-Ansi ?

@EvaPiks · 21.03.2018, 08:50 **[ТС]**

То есть что мне туда поставить? PAnsiChar?

>>зачем вообще хучить Ansi функцию если ваша программа не-Ansi ?
Моя программа хукает функцию стороннего процесса.

Добавлено через 1 минуту
Когда ставлю PAnsiChar - [dcc32 Error] warcraft.dpr(173): E2010 Incompatible types: 'PWideChar' and 'PAnsiChar'

@krapotkin · 21.03.2018, 09:12

вам пришла строка в Ansi
вы ее пихаете в функцию, которая хочет строку в юникод
pchar(MyAnsiString) не перекодирует строку, а просто говорит функции - несы, это юникод и есть
функция конечно соглашается и выводит вашу Ansi строку как юникод
вам не кажется, что обманывать функции нехорошо?

Delphi

var s1:ansistring;
s2:string;
 
s1:=pchar(lpName);
s2:=s1;
showMessage(s2);

@EvaPiks · 21.03.2018, 09:21 **[ТС]**

Ошибку понял, спасибо огромное!

@krapotkin 5494 / 4289 / 1379 Регистрация: 14.04.2014 Сообщений: 19,273 Записей в блоге: 19
	21.03.2018, 08:45	11
	еще раз. глядим на то что хучим 'CreateMutexA', а теперь на то что выводим MessageBox(0, 'lpNameStr', Pchar(lpName), MB_OK); в делфи 2010+ PChar = PWideChar а строка туда придет PAnsiChar а выводите вы ее как юникод. получаете правильную картинку зачем вообще хучить Ansi функцию если ваша программа не-Ansi ? 0

@EvaPiks 0 / 0 / 0 Регистрация: 22.01.2017 Сообщений: 81
	21.03.2018, 09:21 [ТС]	14
	Ошибку понял, спасибо огромное! 0

Иероглифы вместо текста

Решение

Решение

Решение

@krapotkin 5494 / 4289 / 1379 Регистрация: 14.04.2014 Сообщений: 19,273 Записей в блоге: 19
	20.03.2018, 22:12	2
	Сообщение было отмечено EvaPiks как решение Решение попробуйте сообщить версию delphi 1

@EvaPiks 0 / 0 / 0 Регистрация: 22.01.2017 Сообщений: 81
	20.03.2018, 22:13 [ТС]	3
	xe7 0

@krapotkin 5494 / 4289 / 1379 Регистрация: 14.04.2014 Сообщений: 19,273 Записей в блоге: 19
	21.03.2018, 08:20	6
	Сообщение было отмечено EvaPiks как решение Решение покажите как вызываете 1

@krapotkin 5494 / 4289 / 1379 Регистрация: 14.04.2014 Сообщений: 19,273 Записей в блоге: 19
	21.03.2018, 08:32	8
	мне не нравится что у вас наименования xxxA - CreateMutexA а параметры у них как у W CreateMutexW ... lpName: PWideChar возможно у вас какая то фигня там еще есть. в результате система думает, что вы ей даете Ansi - функции, а у вас-то - юникод в норме все функции должны обходиться без A и W и использовать просто PChar 0

@EvaPiks 0 / 0 / 0 Регистрация: 22.01.2017 Сообщений: 81
	21.03.2018, 08:50 [ТС]	12
	То есть что мне туда поставить? PAnsiChar? >>зачем вообще хучить Ansi функцию если ваша программа не-Ansi ? Моя программа хукает функцию стороннего процесса. Добавлено через 1 минуту Когда ставлю PAnsiChar - [dcc32 Error] warcraft.dpr(173): E2010 Incompatible types: 'PWideChar' and 'PAnsiChar' 0