| Код | procedure TfData.CheckDatabase (ADest: TClientDataSet; RetrieveData: boolean; ASource: TDataSet);
begin
if not FileExists (ADest.FileName) then begin
ADest.CreateDataSet;
if RetrieveData then begin
ASource.Active := TRUE;
UpdateLocalCopy (ASource, ADest);
ASource.Active := FALSE;
end;
end;
ADest.Active := TRUE;
end; |
FileName указан, поля прописаны, StoreDefs включено, при записи MergeChangeLog делается.
при запуске вылетат ошибка - missing provider or data packet, следом за ним - эксепшн. на диске создаётся файл нулевой длины. убиваем файл, запускаем ещё раз - всё нормально, но теперь эксепшн вылетает при закрытии. оставляя за собой нулевой файл. |