Форум: "Базы";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];

Вниз

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]

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

---

← →
Pat   (2003-01-17 14:22) [7]

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

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c