Перекодировка текстового файла из DOS в WIN

← →
sniper © (2004-04-15 12:48) [0]

Уважаемые мастера Delphi!!! Подскажите, плиз, как перекодировать текстовый файл DOS-кодировки в текстовый файл WIN-кодировку. Если можно, приведите пример.
Заранее очень благодарен.

← →
Smithson © (2004-04-15 12:51) [1]

OemToAnsi + F1

← →
TUser © (2004-04-15 13:00) [2]

См в кладовке

← →
Fay © (2004-04-15 14:07) [3]

procedure Jopa(FileName : string); const BSZ = 4096; var hr, hw, nr, nw : Cardinal; b : array[0..BSZ - 1] of Char; begin hw := CreateFile(PChar(FileName), GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0); if hw = INVALID_HANDLE_VALUE then begin ShowMessage("А ошибки обрабатывай сам 8)!"); Exit; end; hr := CreateFile(PChar(FileName), GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0); ReadFile(hr, b, BSZ, nr, nil); if nr <> 0 then repeat OemToAnsi(b, b); // в DOS //AnsiToOem(b, b); // из DOS-а WriteFile(hw, b, nr, nw, nil); ReadFile(hr, b, BSZ, nr, nil); until nr = 0; CloseHandle(hr); CloseHandle(hw); end; procedure TForm1.Button1Click(Sender : TObject); begin Jopa("c:\1.txt"); end;

Ваще-то не плохо было бы
b : array[0..BSZ] of Char;
и вот так
... b[nr] := #0; OemToAnsi(b, b); // в DOS ....
8)

правильнее пользоваться oemtochar chartooem, т.к. ansi аналоги устарели.

Перекодировка текстового файла из DOS в WIN Найти похожие ветки