backup ettiğim bir vt yi restore ederken arithmetic exception, numeric overflow, or string truncation şeklinde bir hata alıyorum.yardımcı olursanız sevinirim.
restore kodu:
Kod: Tümünü seç
with IBRestoreService1 do begin
Active := True;
Screen.Cursor := crHourGlass;
try
BackupFile.Clear;
DatabaseName.Clear;
edit2.Text:= savedialog1.FileName;
edit1.Text:= OpenDialog1.FileName;
DatabaseName.Add(ExtractFilePath (savedialog1.FileName)+ ExtractFileName(Edit2.Text));
BackupFile.Add(ExtractFilepath (OpenDialog1.FileName)+ ExtractFileName(Edit1.Text));
ServiceStart;
While not Eof do
Memo1.Lines.Add(GetNextLine);
MessageDlg('Yedek Geri Alındı!', mtInformation, [mbOK], 0);
finally
Active := False;
Screen.Cursor := crDefault;
end;
end;