Текущий архив: 2003.03.10;
Скачать: CL | DM;

Вниз

BAT-файл   Найти похожие ветки 

← →
R@nger ©   (2003-02-27 09:20) [0]

Проблема: пытаюсь создать BAT-файл из Delphi. Делаю так:
AssignFile(F,"Test.bat");
Rewrite(F);
WriteLn(F,"@echo off");
WriteLn(F,"echo Тест...");
WriteLn(F,"Pause");
CloseFile(F);

Так вот: КАК преобразовать "Тест..." в ДОСовскую кодировку?
Заранее спасибо.

---

← →
Palladin ©   (2003-02-27 09:24) [1]

ищи в FAQ

---

← →
R@nger ©   (2003-02-27 09:31) [2]

Я нашел CharToOEM. Делал так:

AssignFile(F,"Test.bat");
Rewrite(F);
WriteLn(F,"@echo off");
s:=DosStr("echo Тест...");
WriteLn(F,s);
WriteLn(F,"Pause");
CloseFile(F);

Function DosStr(Str:string):String;
var
Res:PChar;
Begin
OemToChar(PChar(Str),Res);
Result:=StrPas(Res);
End;

При записи в файл Delphi ругается: I/O Error 103(файл не открыт).

---

← →
dolmat ©   (2003-02-27 09:54) [3]

Я только недавно кинул ответ кому-то целый юнит по перекодировке. Посмотрите ниже.

---

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

Текущий архив: 2003.03.10;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.016 c