Преобразовать файл из OEM в ANSIDelphi , Синтаксис , ПреобразованияПреобразовать файл из OEM в ANSI
Оформил: DeeCo procedure ConvertFile(const FileName: string; fromCodepage: Integer); var ms: TMemoryStream; begin if getOEMCP <> fromCodepage then raise Exception.Create('ConvertFile: Codepage doesn''t match!'); ms := TMemoryStream.Create; try ms.LoadFromFile(FileName); // make backup ms.Position := 0; ms.SaveToFile(ChangeFileExt(FileName, '.BAK')); // convert text OEMToCharBuff(ms.Memory, ms.Memory, ms.Size); // save back to original file ms.Position := 0; ms.SaveToFile(FileName); finally ms.Free; end; end; Статья Преобразовать файл из OEM в ANSI раздела Синтаксис Преобразования может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Преобразования ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |