dbiCopyTable()

← →
Pat © (2003-01-17 01:19) [0]

Как заставить эту гадость понимать русские символы? Т.е. я имею ввиду следующее:
procedure TForm1.Button1Click(Sender: TObject); var Path:string; begin Path:="c:\привет\"; ForceDirectories(Path); Path:=Path+Table.TableName; Check(DbiCopyTable(Table.dbhandle, True, pchar(Table.TableName), nil, PChar(Path))) end;
Если в Path содержатся русские буквы - выдается ошибка Path not found...как лечить??? :-(((((((((

← →
sniknik © (2003-01-17 02:12) [1]

виндовс нестандартные имена (с пробелами, в локальной кодировке) в кавычки "пакует" попробуй может выйдет
"D:\Progra m Files\Microsof t Office\Office10\MSACCESS.EXE "

← →
Pat © (2003-01-17 03:10) [2]

К сожалению, не помогло :-(((
Invalid File Name

← →
Pat © (2003-01-17 08:21) [3]

Опытным путем (естественно, из-за моей ошибки :-))) нашел, что все русские символы "сдвигаются"...т.е.
а = р
б = с
в = т
.......
Есть бредовая идея сдвигать это все...А можно просто кодировка какая-нибудь не та испльзуется?

← →
a_k_v (2003-01-17 12:17) [4]

Попробуй так:

var Path: PChar;
P2: PChar;
begin
P2 :="f:\Привет\";
ForceDirectories(P2);
CharToOem(P2, Path);

Path:=PChar(Path + Table1.TableName);

caption := P2;
Check(DbiCopyTable(Table1.dbhandle, True,
pchar(Table1.TableName), nil,
PChar(Path)))
end;

← →
Anatoly Podgoretsky © (2003-01-17 12:21) [5]

Так ясно, почему то функция работает с OEM вместо ANSI

← →
a_k_v (2003-01-17 13:37) [6]

Да-с, абсолютное безобразие :)

Вау!!!!! Рулез!!! БО-О-О-О-ОЛЬ-ШОЕ СПАСИБО!!!
Обыскал весь инет...у многих такая же проблема..решение нигде не было предложено...А здесь помогли.. :-))))

dbiCopyTable() Найти похожие ветки