| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Кодировка? [D7, WinXP]

Viktop ©   (2005-01-21 04:43:00) 

У меня такая проблема: Создаю прогу, сжимаю UPX, переношу на другую машину и вместо русских символов отображается ??????. Это только на одной конкретной машине, на других пока всё нормально.

---

Viktop   (2005-01-24 10:23:00) [1]

Попробовал такие способы:
1. не сжимал UPX
2. менял шрифт на Arial
Ничего не помогает :-(

---

Viktop   (2005-01-23 06:30:00) [2]

to rdm
Узнаю только завтра. Комп в универе.

---

Anatoly Podgoretsky   (2005-01-22 19:12:00) [3]

Viktop   (22.01.05 14:49) [7]
Именно ты перечитай свой вопрос.

---

rdm   (2005-01-22 19:11:00) [4]

А без UPX все нормально показывает?

---

Viktop   (2005-01-22 14:49:00) [5]

to Anatoly Podgoretsky
Я обижаюсь? Да и ещё на UPX? Я просто указал последовательность действий после компиляции. Вдруг это глюк UPX (хотя я в этом сильно сомневаюсь)

---

Anatoly Podgoretsky   (2005-01-22 13:14:00) [6]

Viktop   (21.01.05 04:43)  
Ну раз обижаешься за UPX, то зачем же его используешь, чтобы помучиться?

---

Jel   (2005-01-22 08:50:00) [7]

> Viktop   (22.01.05 07:09) [4]
> to Poha
> Попробую! А куда конкретно это вставлять


Это не поможет. Эти функции можно использовать для перекодировки из 866 в 1251 и обратно, а у тебя не тот случай.

---

Viktop   (2005-01-22 07:09:00) [8]

to Александр1
Смотри внимательнее  Кодировка? [D7, WinXP]

to Symb
Я использую шрифт по умолчанию

to Poha
Попробую! А куда конкретно это вставлять

---

Symb   (2005-01-21 11:11:00) [9]

Кодировка? Может быть, но для начала проверь, а есть ли вообще такой шрифт на машине и не битый ли он.

---

Poha   (2005-01-21 06:54:00) [10]

Попрубцй это
function Win2Dos(const aStr: String): String;
begin
Result := aStr;
if Result='' then Exit;
CharToOem(PChar(Result),PChar(Result));
end;

function Dos2Win(const aStr: String): String;
begin
Result := aStr;
if Result='' then Exit;
OemToChar(PChar(Result),PChar(Result));
end;

---

Александр1   (2005-01-21 06:38:00) [11]

А какой Windows на этой машине?

---

Наверх