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

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

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

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

C++
1
2
3
4
5
6
7
8
9
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++
1
2
3
4
5
6
    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
2
3
4
5
6
7
8
9
10
//клик 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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
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++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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
1
2
3
4
5
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 с ключем. Чтобы тебе не набивать все сначала..... Подкинуть ???

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	[В процессе разработки] SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

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

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

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