Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

!!! oemtoansistr = С чем его едят ? =) [D5, dBase, FoxPro]

NDR © (2002-08-01 08:08:00)
Копируя записи одной таблицы в другую, необходимо переводить их
в др.формат. использую "oemtoansistr"

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

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

NDR (2002-08-01 14:18:00) [1]
НЕРАБОТАЕТ ! БЛИН !
Вернее работает но делает не то что нужно !
Вообще немогу понять что не правильно, вроде всё правильно но не работает так как нужно. =((

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

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

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

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

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

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

NDR (2002-08-01 11:34:00) [2]
ОООООООООООГРОМНОЕ СПАСИБО !

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

ЮЮ (2002-08-01 08:37:00) [3]
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;

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »