!!! oemtoansistr = С чем его едят ? =)

← →
NDR (2002-08-01 08:08) [0]

Копируя записи одной таблицы в другую, необходимо переводить их
в др.формат. использую "oemtoansistr"

Его(oemtoansistr) надо использовать, но он чето неопределяется.
это привилегия только компонента Excel97 ????
как без использования Excel97 воспользовааться такой функ как
(oemtoansistr)

С Уважением, NDR

← →
VAleksey © (2002-08-01 08:31) [1]

Используй
CharToOem(str,OemStr:Pchar) - перекодировка в дос.
OemToChar(Str,OemStr:Pchar; MaxLen:LongInt) - перекодировка в вин
и функцию PChar(str:string) - преодразование стринг в PChar.

← →
ЮЮ © (2002-08-01 08:37) [2]

oemtoansistr - это из StrUtils (D5), RxStrUtils (D6) из RxLib
для перевода из DOS-кодирвки в Windows:

function OemToAnsiStr(const OemStr: string): string;
begin
SetLength(Result, Length(OemStr));
if Length(Result) > 0 then
{$IFDEF WIN32}
OemToCharBuff(PChar(OemStr), PChar(Result), Length(Result));
{$ELSE}
OemToAnsiBuff(@OemStr[1], @Result[1], Length(Result));
{$ENDIF}
end;

← →
NDR (2002-08-01 11:34) [3]

ОООООООООООГРОМНОЕ СПАСИБО !

с Уважением и Неисчерпаемой Благодарностью, NDR

← →
NDR (2002-08-01 14:18) [4]

НЕРАБОТАЕТ ! БЛИН !
Вернее работает но делает не то что нужно !
Вообще немогу понять что не правильно, вроде всё правильно но не работает так как нужно. =((

Выгружаю рабочие базы в пустые-базы.
Затем др.программа(КОНВЕРТОР). Открывает Эти базы и использует их как справочники.

После Выгрузки всё тип-топ ! Всё видно и в Excele всё по русски.
но после открытия КОНВЕРТОРОМ, там полная туфта. всё в АСКИ кодах
(т.е. вертик. и гориз. линии). Что делать ?
Пробовал выгружать через предложенный "ЮЮ" метод.
ещё хуже получается =((

Вобщем непойму в чем прикол!

В базах для выгрузки
LanguageDriver=RUS 866
пробовал ставить
LanguageDriver=ASCII

Ничего непонимаю !
Помогите люди добрые.

с Уважением, NDR

!!! oemtoansistr = С чем его едят ? =) Найти похожие ветки