Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как перекодировать String в DOS-кодировку ? [D6, WinXP]

_Вован © (2005-06-15 13:09:00)
Привет, Мастера! Такая проблема: пишу в открытый текстовый файл продедурой WriteLn, которая требует переменной типа String.
Как сделать так, чтобы в файл попал текст в DOS-кодировке?

Anatoly Podgoretsky (2005-06-15 16:03:00) [1]
Ну точно ошибка, зачем же пытаться конвертировать пустые строки, чтобы получить ошибку наверно.

Alexander Panov © (15.06.05 16:00) [5]
Надо бы поправить, чтобы не было побочных эффектов.

Alexander Panov (2005-06-15 16:00:00) [2]
_Вован (15.06.05 15:32) [4]

Даже разбираться не хочется.

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

_Вован (2005-06-15 15:32:00) [3]
Anatoly Podgoretsky ©

Не может быть! :)

На основе вышеприведенной ссылки сделал такую функцию:

function TForm.WinToDOS(S: String): String;
var
Src, Str: PChar;
begin
Memo1.Lines.Text:=S;
GetMem(Str, Length(Memo1.Lines.Text));
Src := Memo1.Lines.GetText;
CharToOem(Src, Str);
Memo2.Lines.SetText(Str);
FreeMem(Str);
Result:=Memo2.Lines.Text;
end;

Т.е. функция берет строковую переменную в Win-кодировке и возвращает в DOS-кодировке.
Прикол в том, что если в строчку текстового файла на диск писать как часть ОДНУ такую полученную функцией WinToDOS переменную, то всё работет нормально на любом количестве циклов.

var
c: String;

...
while ... do begin
c:=<что-то>+WinToDOS(stroka)+<что-то_ещё>;
WriteLn(Kfile,c);
end;

тогда всё ок. Но если сделать так:

...
c:=<что-то>+WinToDOS(stroka1)+<что-то_ещё>+WinToDOS(stroka2)+<...>;
WriteLn(Kfile,c);
...

тогда 'Invalid pointer operation'.

Как думаешь, в чём здесь ошибка??

Anatoly Podgoretsky (2005-06-15 15:17:00) [4]
У тебя ошибка в программе.

_Вован (2005-06-15 15:13:00) [5]
Anatoly Podgoretsky ©

Если бы это было так просто, армянское радио.... :)

Вот есть такой способ:
http://www.books.ru/library/delphi_secrets/10.htm

Но он хорош для ОДНОРАЗОВОГО применения. Т.е. когда такую функцию юзаешь в цикле, она виснет на случайном проходе - каждый раз на разном. Exception получается EInvalidPointer with message 'Invalid pointer operation'.

Anatoly Podgoretsky (2005-06-15 13:24:00) [6]
CharToOem

Наверх

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