Перекодировка текста win-to-dos

← →
FiendAndre (2003-07-10 10:34) [0]

Здравствуйте!
Такая проблема. Такая казалось бы простая процедура как ChartoOEM выдает ошибку аксес виолейшона в модуле user32. И вообще любая процедура работающая с PChar вызывает аналогичную ошибку. Что я делаю не так? :( Пробовал алокейтить мемори для всех PChar переменных - не помогает. Хотя в трейсе иногда удается не вызвать ошибку, но после этого комп виснет.
ПОМОГИТЕ!!!!

← →
Song (2003-07-10 10:41) [1]

Может пустую строку передаёшь?

← →
FiendAndre (2003-07-10 10:54) [2]

нет строка однозначно не пустая (беру ее из мемо и вижу в Watch)

← →
MBo (2003-07-10 11:01) [3]

код покажи

← →
Radionov Alexey (2003-07-10 11:10) [4]

Function MyCharToOem(Const S: String): String;
Begin
SetLength(Result, Length(S));
CharToOem(PChar(S), PChar(Result))
End;

← →
Radionov Alexey (2003-07-10 11:12) [5]

Для пущей надежности:

Function MyCharToOem(Const S: String): String;
Begin
SetLength(Result, Length(S));
If Result <> "" Then
CharToOem(PChar(S), PChar(Result))
End;

← →
Romkin (2003-07-10 11:21) [6]

function ToOEMString(const S: ansistring): ansistring; begin Result := S; CharToOEM(PChar(Result), PChar(Result)); end;

А перезагружаться не пробовали?
У меня все работает!

← →
FiendAndre (2003-07-10 13:36) [7]

Спасибо всем!!!
все предложенные варианты работают.
вечером буду разбираться где я был неправ.

Перекодировка текста win-to-dos Найти похожие ветки