oemtochar + WinNT

← →
filin © (2003-04-16 00:05) [0]

стандартный код (по крайней мере в примерах)
var s,s1:string;
...
oemtochar(Pchar(S),Pchar(S1));
....
Прекрасно работает под WIn95, а под WinNT выдает ошибку
в модуле USER32.dll
Подскажите, пожалйста, где копать причину?

← →
Babay © (2003-04-16 05:54) [1]

var s:string;
S1:PChar;
begin
S:="ddd";
getmem(s1,length(s));// выделяем память
oemtochar(Pchar(S),S1);
...// берешь s1 куда надо
freeMem(s1);// незабудем очистить память

← →
Anatoly Podgoretsky © (2003-04-16 08:08) [2]

filin © (16.04.03 00:05)
Приведи строки, манипулирующие с перед s и s1 oemtochar(Pchar(S),Pchar(S1));

И ты сослался на ошибку, наверно File Not Found?

2Anatoly Podgoretsky
нет, ошибка была access violation in module...

2babay
помогло, только пришлось повозиться с циклом. Ругалась на
invalid pointer operation. Теперь работает.

Большое спасибо!!!

oemtochar + WinNT Найти похожие ветки