Переведите код Deplhi в C++ (резервное копирование базы данных)

@Витто-_- · Регистрация: 08.05.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте, может ктото перевести из Delphi в С++
Нашёл функцию в делфи для резервного копирования базы данных, а работаю в C++ Builder

C++

void __fastcall TForm1::Button4Click(TObject *Sender)
{
 
var Base_Pach,str_backup:string; // Их я обьявил уже в Unit1.h
begin // открытие скобки
 Base_Pach := Form1.ADOConnection1.Properties.Item['Data Source'].Value; // Сдесь уже не смог перевести начиная со свойства Properties , так как такого нет в Билдере, дальше тоже не лез
  str_backup := ExtractFilePath(ParamStr(0))+'Копии\'+StringReplace(DateTimeToStr(Now), ':', '-', [rfReplaceAll])+'.zip';
   if CopyFile(Pchar(Base_Pach),Pchar(str_backup),true) then ShowMessage('Выполнено архивирование')
}

@volvo · 30.05.2013, 18:39

Сообщение от Витто-_-

так как такого нет в Билдере

Чего это нет? Всё есть:

C++

    String Base_Pach, str_backup; // Их я обьявил уже в Unit1.h
    Base_Pach = Form1->ADOConnection1->Properties->Item["Data Source"]->Value;
    str_backup = ExtractFilePath(ParamStr(0)) + "Копии\\" +
        StringReplace(DateTimeToStr(Now()), ":", "-", TReplaceFlags() << rfReplaceAll) + ".zip";
    if(CopyFile(Base_Pach.c_str(), str_backup.c_str(), true))
        ShowMessage("Выполнено архивирование");

прекрасно компилируется.

@Витто-_- · 02.06.2013, 04:27 **[ТС]**

Здравствуйте, помогите пожалуйста, мне очень нужно "резервное копирование БД" (желательно, чтобы я мог выбрать "свою базу" в OpenDialog и потом при нажатии кнопки "копирование" мог выбрать путь и другое название, где будет сохранена копия этой базы) Базу использую Access. Очень нужна эта функция для диплома, всё реализовал уже, кроме копирования бд.

@Tim979 · 02.06.2013, 10:36

насколько я знаю БД Access выглядит в виде одного файла (только в универе и работал с ним). Необходимо просто реализовать копирование файла. Для чего правда нужен OpenDialog не понятно.

C++

//клик 1 кнопки 
if (OpenDialog1->Execute())
Edit1->Text=OpenDialog1->FileName;  //отобразим то что будем сохранять
 
 
//клик 2 кнопки 
if (SaveDialog1->Execute())
{
CopyFile(OpenDialog1->FileName.t_str(), SaveDialog1->FileName.t_str(), false);
}

@Ласковый котик · 21.09.2013, 16:25

Друзья, я перевел весь код, но после запуска выдает ошибку "Ошибки при копировании базы данных", место ошибки я знаю, но не знаю как исправить.... Помогите, пожалуйста, если несложно...

выкладываю фрагмент кода на Delphi:

Delphi

procedure TFormMain.BBackupClick(Sender: TObject);
var OldCursor: TCursor;
begin
  OldCursor := Screen.Cursor;
  Screen.Cursor := crHourGlass;
  BackupService1.DatabaseName := TDatabase.Text;
  BackupService1.Params.Clear;
  BackupService1.Params.Add('user_name=' + TUserName.Text);
  BackupService1.Params.Add('password=' + TPassword.Text);
  BackupService1.BackupFile.Clear;
  BackupService1.BackupFile.Add(TBackup.Text);
  Memo1.Clear;
  try
    BackupService1.Active := True;
    BackupService1.ServiceStart;
  except
    on E: EDatabaseError do
    begin
      BackupService1.Active := False;
      Screen.Cursor := OldCursor;
      Application.MessageBox(PAnsiChar('Ошибки при копировании базы данных'
        + #10#13 + E.Message),
        'Ошибки', MB_OK + MB_ICONSTOP);
      exit;
    end;
  end;
  BExit.Enabled := False;
  BBackup.Enabled := False;
  Memo1.Lines.Add(
    '==================== Начало копирования ====================');
  while not (BackupService1.Eof) do
    Memo1.Lines.Add(BackupService1.GetNextLine);
  BackupService1.Active := False;
  BExit.Enabled := True;
  BBackup.Enabled := True;
  Memo1.Lines.Add(
    '==================== Завершение копирования ================');
  Screen.Cursor := OldCursor;
end;

Ниже мой перевод на Builder C:

C++

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TCursor OldCursor;
    OldCursor=Screen->Cursor;
    Screen->Cursor=crHourGlass;
    IBBackupService1->DatabaseName=Edit3->Text;
    IBBackupService1->Params->Clear();
    IBBackupService1->Params->Add("user_name=" + Edit1->Text);
    IBBackupService1->Params->Add("password=" + Edit2->Text);
    IBBackupService1->BackupFile->Clear();
    IBBackupService1->BackupFile->Add(Edit3->Text);
    Memo1->Clear();
    try{    IBBackupService1->Active=true;
            IBBackupService1->ServiceStart();
        }catch(EDatabaseError &ex)  //catch(EDatabaseError &ex)
                {   IBBackupService1->Active=false;
                    Screen->Cursor=OldCursor;
                    MessageDlg("Ошибка при копировании базы данных.",
                            mtWarning,TMsgDlgButtons()<<mbYes,0);
                    return;
                }
     Button1->Enabled=false;
     Button2->Enabled=false;
     Memo1->Lines->Add("======Begin copy...======");
     while (!(IBBackupService1->Eof))
    /*do*/{ Memo1->Lines->Add(IBBackupService1->GetNextLine());
            IBBackupService1->Active=false;
            Button1->Enabled=true;
            Button2->Enabled=true;
            Memo1->Lines->Add("======End copy...======");
            Screen->Cursor=OldCursor;
              };
            //----------------------------------------------
}

Очень замучался с этим фрагментом кода (возможно неправильно я перевел...):

Delphi

try
    BackupService1.Active := True;
    BackupService1.ServiceStart;
  except
    on E: EDatabaseError do

Добавлено через 3 минуты
Если найдете ниже еще ошибки - поправьте, пожалуйста. Заранее благодарю.

Добавлено через 2 минуты
Забыл написать еще. Это код резервирования базы на Builder для работы с базой InterBase... Взят исходный рабочий пример на Delphi.

@Ласковый котик · 22.09.2013, 23:38

Похоже никто не знает..... Что за форум, что не могут ответить самую малость. Текст исходника есть. Что еще добавить ???? Хваленные спецы..... :-))))

@volvo · 22.09.2013, 23:57

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

Жди, зайдет кто-нибудь, кто пользуется IB - может и подскажет...

@Ласковый котик · 23.09.2013, 23:30

Сообщение от UI

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

Жди, зайдет кто-нибудь, кто пользуется IB - может и подскажет...

Я могу подкинуть тебе полный проект на Delhi и модифицированный для Builder..... + Архив установки InterBase с ключем. Чтобы тебе не набивать все сначала..... Подкинуть ???

@Витто-_- 0 / 0 / 0 Регистрация: 08.05.2013 Сообщений: 11
	02.06.2013, 04:27 [ТС]	3
	Здравствуйте, помогите пожалуйста, мне очень нужно "резервное копирование БД" (желательно, чтобы я мог выбрать "свою базу" в OpenDialog и потом при нажатии кнопки "копирование" мог выбрать путь и другое название, где будет сохранена копия этой базы) Базу использую Access. Очень нужна эта функция для диплома, всё реализовал уже, кроме копирования бд. 0

@Ласковый котик 0 / 0 / 0 Регистрация: 18.09.2013 Сообщений: 5
	22.09.2013, 23:38	6
	Похоже никто не знает..... Что за форум, что не могут ответить самую малость. Текст исходника есть. Что еще добавить ???? Хваленные спецы..... :-)))) 0

@volvo Супер-модератор 33003 / 21306 / 8183 Регистрация: 22.10.2011 Сообщений: 36,607 Записей в блоге: 8
	22.09.2013, 23:57	7
	То есть, я должен установить IB, и проверить, почему твой код не выполняет задачу, поставленную перед ним? Спасибо, я как-нибудь без этого поделия обойдусь... Жди, зайдет кто-нибудь, кто пользуется IB - может и подскажет... 1

@Ласковый котик 0 / 0 / 0 Регистрация: 18.09.2013 Сообщений: 5
	23.09.2013, 23:30	8
	Сообщение от UI То есть, я должен установить IB, и проверить, почему твой код не выполняет задачу, поставленную перед ним? Спасибо, я как-нибудь без этого поделия обойдусь... Жди, зайдет кто-нибудь, кто пользуется IB - может и подскажет... Я могу подкинуть тебе полный проект на Delhi и модифицированный для Builder..... + Архив установки InterBase с ключем. Чтобы тебе не набивать все сначала..... Подкинуть ??? 0