Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c