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

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

Сохранение БД [D6, Paradox]

Quart ©   (2007-09-26 12:39:00) 

Написал код для архивирования БД, но в скопированной базе нет самой последней измененной записи, а предыдущие есть. Почему так происходит?

procedure TForm1.FormDestroy(Sender: TObject);
var
a:string;
OpStruc: TSHFileOpStruct;
 frombuf, tobuf: Array [0..128] of Char;
begin
Table1.Refresh;
Table1.Active:=False;
a:=DateToStr(Date);
FillChar( frombuf, Sizeof(frombuf), 0 );
 FillChar( tobuf, Sizeof(tobuf), 0 );
 StrPCopy( frombuf, 'c:\1' );
SetCurrentDirectory( PChar( 'C:\' ) );
 StrPCopy( tobuf, a );
 with OpStruc do begin
   Wnd := Handle;
   wFunc := FO_COPY;
   pFrom := @frombuf;
   pTo := @tobuf;
   fFlags := FOF_MULTIDESTFILES or FOF_NOCONFIRMMKDIR or FOF_SILENT or FOF_NOCONFIRMATION;
   fAnyOperationsAborted := False;
   hNameMappings := Nil;
   lpszProgressTitle := Nil;
 end;
 ShFileOperation( OpStruc );

end;

---

Quart   (2007-09-26 14:03:00) [1]

Работает!!!  Спасибо

---

Германн   (2007-09-26 13:40:00) [2]

DbiSaveChanges

---

Desdechado   (2007-09-26 12:52:00) [3]

FlushBuffers
И не забывать закрывать TDatabase перед архивированием.

---

Наверх