Tech Story - Page 917 of 942 - Technology & Software Download

Convert OEM to ANSI

Convert OEM to ANSI 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); // …