Delphi 2010, PAnsiChar и PWideChar

[ImmortalAlexSan]

Есть у меня вот такая функция:

function DDLoadPalette(pdd:IDirectDraw7; szBitmap:PChar): DirectDrawPalette;
//не важно, что здесь означают может быть незнакомые вам типы...
Var
h : HRSRC; //Тот же LongInt;
fh : Integer;
begin
h := FindResource(0, szBitmap, RT_BITMAP);
//
....тут ещё код не важно какой....
//
fh := _lopen(szBitmap, OF_READ);

FindResource работает с PWideChar, FindResourceA работает с PAnsiChar, но! RT_BITMAP - это PWideChar в модуле windows.pas и её значение изменить я не могу никак, да наверное и не надо.
_lopen - работает только с PAnsiChar!!!! Функция из kernell32.dll
Внимание вопрос: как мне заставить работать эти две функции вместе?! Может есть конвертер из PWideChar в PAnsiChar или аналог функции _lopen, но аналог наверное не пойдет потому что в коде используются функции _lread и т.д.
P.S. Дельфи 7 всё работает прекрасно, так как нет этой замены PChar с PAnsiChar на PWideChar, и мне просто не верится, что они могли это сделать, не зная, то что так будет лучше!

[mutabor]

PChar это по-умолчанию подразумевается PWideChar. Т.е. Юникод по умолчанию.
Кастинг обычный пробовал? Type1(Type2)

[ImmortalAlexSan]

mutabor, немножко не понял насчет кастинга? Что понимается под этим словом в программировании?

mutabor, Я пробывал так:

fh := _lopen(PAnsiChar(szBitmap), OF_READ);

ехе компилируется, но вылетает ошибка в модуле DXCommon вот тут:
result := ( (OSVersion.dwPlatformID = VER_PLATFORM_WIN32_NT) and
(Pos('DELPHI32.EXE', AppName) = Length(AppName) - Length('DELPHI32.EXE')
"RunTime Error"
P.S. Это я пытаюсь с дельфиX на десятой дельфе работать... осталось только с Чарами исправить ошибки и будет рабочая версия дельфиИкс под десятку

[Stilet]

Что понимается под этим словом в программировании?

Преобразование типов.
Попробуй использовать конкретно FindResourceА (если она есть). А еще лучше использовать делфийские классы работы с ресурсами.

[ImmortalAlexSan]

Stilet, пробывал использовать FindResourceА, поменяв тип переменной szBitmap на PAnsiChar, тогда проблема с константой RT_BITMAP, которая указывает на тип используемого ресурса, она в windows.pas описана как PWideChar... Я понимаю, что можно на семерке работать и дальше, но это уже дело принципа. Ещё можно что-нибудь сделать?

[mutabor]

ехе компилируется, но вылетает ошибка в модуле DXCommon вот тут:

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

[Stilet]

ImmortalAlexSan, прикрепи ка сюда проектик, а?

[ImmortalAlexSan]

Сейчас, ребят, все скину вам, чем пользуюсь... Запустите Embarcadero RAD Studio Delphi 2010 откройте проект из папки Chapter02->Ex07... Ну так же можете попробовать с другими проектами, они такую же ошибку выдают после компиляции. только в проектах удалите путь на несуществующую библиотеку, автор сам его расставлял, у него битые были, я другие скачал. Дельфи 7 всё кушает замечательно и запускает, за исключением последнего примера последней главы, но об этом позже...

[Stilet]

ImmortalAlexSan

Рассказываю:
1) в DirectDraw заремил if not IsNTandDelphiRunning then - она давала сбой.
2) в DDUtil

function DDLoadPalette(pdd : IDirectDraw7; szBitmap : PAnsiChar) : IDirectDrawPalette;

3) В ее теле

h := FindResource(0,pwidechar(szBitmap), RT_BITMAP);

Запустил. Появилось что-то типа скринсейвера с картинкой природы.

[ImmortalAlexSan]

Stilet, огромнейшее человеческое спасибо! Теперь я смогу и на дельфи 10 изучать DirectX! А можете рассказать как вы замерили if not IsNTandDelphiRunning then, как определили?..