Создание дампа MySQL

[Dozent]

Доброго времени суток, возможно не в тот раздел пишу, вопрос такой.
Делаю резервное копирование базы данных MySQL через mysqldump.exe, который лежит в недрах MySQL перенёс данный ехе ближе к ехе файлу проекта, чото перестало собирать дамп базы, как то можно выдти из затруднения? Хочется положить этот инструмент рядом с ехе файлом и не лазить далеко в MySQL...

procedure TfrmBase.N11Click(Sender: TObject);
var
  S, SDir, TDir: AnsiString;
  ParamString: String;
  C: Cardinal;
begin
  // Сохранить все данные в архиве
  // Result := False;
  // S := ParamStr(0); // Путь к программе
  SDir := ExtractFilePath(Application.exename);
  TDir := SDir + 'Data\BackUp\';
  // Диалог для получения имени архива
  // if TDir = '' then
  // Exit;
  // if not ForceDirectories(TDir) then
  // Exit;
  S := adConnection.Params.Values['Database'];
  // ParamString := Format('--routines  -uroot -p$erver -all %s > "%s%s.sql"', [S, TDir, S]) + #0;
  ParamString :=
    Format('--routines -uroot -hlocalhost -p$erver  %s --result-file="%s%s.sql"',
    [S, TDir, S]) + #0;
  C := ShellExecute(0, nil, pchar(SDir + 'mysqldump.exe'),
    { '"C:\Program Files (x86)\MySQL\MySQL Workbench CE 6.0.6\mysqldump.exe"', }
    pwidechar(ParamString), nil, SW_HIDE);
  // Result := C > 0;
  ShowMessage('Резервная копия создана! ' + TDir + S + '.sql');
end;

[Stilet]

Задам нескромный вопрос: А почему на Делфи? Как раз в таких делах BAT файл проще всего.
Еще один нескромный: Зачем закоментировал Result := C > 0;? Проверка на ошибки в таких делах важна. Раскомментируй и поставь IF, получи сообщение об ошибке и проанализируй его.

[Dozent]

ну у меня возвращает 2, указаный файл не найден... Хотя он иммено там лежит...

[Dozent]

C := ShellExecute(0, nil, pchar(Format('%smysqldump.exe',[SDir])),  pwidechar(ParamString), nil, SW_HIDE);

вот так заработало

[Dozent]

) странно конечно, но рестор чото не хочет делатся...

procedure TfrmBase.Button1Click(Sender: TObject);
var
  C: Cardinal;
  SDir: AnsiString;
  FName, ParamString, S: string;
begin
  if odRestore.Execute then
  begin
    FName := odRestore.FileName;
    SDir := ExtractFilePath(Application.exename);
    S := adConnection.Params.Values['Database'];
    ParamString := Format(' -uroot -hlocalhost -p$erver %s < %s',
      [S, FName]) + #0;
    C := ShellExecute(0, nil, pchar(Format('%smysqldump.exe', [SDir])),
      pwidechar(ParamString), nil, SW_HIDE);
    adConnection.Connected := False;
    adConnection.Connected := True;
  end;

end;

ShellExecute возвращает 42, какбудто всё отработало правильно

[Stilet]

Говорю-же: сделай батник, заодно и почитаешь ошибки дампера.

[Dozent]

т.е. предлагаете делать рестор/бакап через батники?
Но и пароль там в батнике будет, мне не хочется этого

[Stilet]

Для проверки батник а не для эксплуатации.
Отработай на нем команду и возможные ошибки. Вдруг еще придется подключать пайпы, и получать ответ от дампера.

[Dozent]

ну а чем мне батник поможет?) я просто не пойму этого

[Stilet]

Ты пишешь что рестор не делается. Но ты не видишь ошибок, если бы ты запускал через CMD то ошибки вылезли на консоль, и можно было бы их почитать.