| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Упаковка Paradox [D5, D6, Paradox]

konorl ©   (2002-05-08 05:49:00) 

При упаковке таблиц Paradox, имеющих русские имена DbiDoRestructure никак не хочет выдать DBIERR_NONE. Видимо проблема с кодировкой, видно по CurProps. Как решить вопрос?

---

Konorl   (2002-05-12 19:28:00) [1]

Ты сам то проверял то, что пишешь?
Не обижайся, но это все давно известно.
Если можешь чего сказать - прочитай вопрос.

---

gek   (2002-05-08 07:18:00) [2]


procedure PackPdoxTable (Table:TTable);
var
TableDesc: CRTblDesc;
WasActive: Boolean;
hDatabase: hDbiDB;
begin
WasActive := Table.Active;
Screen.Cursor := crHourglass;
try
// open if it was closed
// (to get the valid DBHandle)
if not WasActive then
Table.Open;
// get the database handle and close the table
hDatabase := Table.DBHandle;
Table.Close;
// fill the table descriptor
FillChar (TableDesc, SizeOf (CRTblDesc), 0);
with TableDesc do
begin
StrPCopy (szTblName, Table.TableName);
StrPCopy (szTblType, szParadox);
bPack := True;
end;
// restructure the table, packing it
if hDatabase <> nil then
Check (DBIDoRestructure (hDatabase, 1,
@TableDesc, nil, nil, nil, False))
else
ShowMessage ("Database handle is nil");
finally
Screen.Cursor := crDefault;
// eventually reopen
if WasActive then
Table.Open;
end;
end;



Marco Cantu

---

konorl   (2002-05-08 06:00:00) [3]

Довалю, что без русского имени не обойтись, а проблема серьезная - растет размер MB из-за BLOB.

---

Наверх