под win используется две таблицы символов - одна для оконных приложений (Ansi), другая для консоли (Oem, в частности DOS). Так же есть функция (на winapi) для конвертирования между этими кодировками и eom-unicode.
- Код: Выделить всё
uses windows;
function AnsiToDos(text: string): string;
var
p: PChar;
Len: Integer;
begin
Len := Length(text);
GetMem(p, Len);
CharToOemBuff(PChar(text), p, Len);
SetString(Result, p, Len);
FreeMem(p);
end;
Не проще ли блобы хранить в unicode кодировке? (utf-8, utf-16...)