Скачать: CL | DM;

Перекодировка текста 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c