VPF::DosToWin - Форум программистов

Delphist

Дата 11.11.2005, 13:20 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Нужна процедура перевода текста из Dos в WIn1251.
Т.е. есть файл в котором часть текста в кодировке, а часть текста в кодировке Win1251. Нужно сделать так, чтобы весь текст перевелся в кодировку Win1251.

--------------------

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

_hunter

Дата 11.11.2005, 13:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

http://forum.vingrad.ru/index.php?showtopic=59621

--------------------

Tempora mutantur, et nos mutamur in illis...

Delphist

Дата 11.11.2005, 15:19 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Цитата(_hunter @ 11.11.2005, 13:39)

http://forum.vingrad.ru/index.php?showtopic=59621

Не совсем то, что нужно.

--------------------

_hunter

Дата 11.11.2005, 15:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

тогда вот:
http://forum.vingrad.ru/index.php?showtopic=52171
http://forum.vingrad.ru/index.php?showtopic=26951

--------------------

Tempora mutantur, et nos mutamur in illis...

koyot

Дата 18.11.2005, 12:20 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Господа, вопрос на ту же тему.
При перекодировке из Dos в Win использую следующую функцию:

Код


function OEM2Ansi(const S : string) : string;
begin
SetLength(Result,Length(S));
if Length(S) <> 0 then
OemToChar(pChar(S),pChar(Result));
end;

При работе под XP все работает замечательно. Как только переношу прогу в Милениум, перекодировка перестает работать. Точнее в прогу попадает совершенно другая строка.
Не могли бы Вы подсказать как решить проблему.

Это сообщение отредактировал(а) Girder - 18.11.2005, 12:24

Alexeis

Дата 18.11.2005, 12:43 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Попробуйте так

Код


function WinToDos(St: string): string;
var
  Ch: PChar;
begin
  Ch := StrAlloc(Length(St) + 1);
  AnsiToOem(PChar(St), Ch);
  Result := Ch;
  StrDispose(Ch)
end;

function DosToWin(St: string): string;
var
  Ch: PChar;
begin
  Ch := StrAlloc(Length(St) + 1);
  OemToAnsi(PChar(St), Ch);
  Result := Ch;
  StrDispose(Ch)
end;

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

koyot

Дата 18.11.2005, 13:41 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Спасибо.
К сожалению все то же самое.
У меня такое впечатление, что проблема не с Delphi, а с программой через которую я получаю строку. А ее писал не я, и исходников нет.
Вопрос снимается.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »