1

Есть связка БД mysql + dbgrid, dbgrid отображает данные (имя, размер, путь и т.д.) Есть 2 моих редактора (я учусь), через которые нужно открыть jpg или txt, а все остальное это уже диалоговое окно открыть "с помощью". Никак не получается реализовать, редакторы jpg, txt открываются сами, но не открывает сами файлы через эти редакторы, отдельно запускаю диалоговое окно открыть "с помощью", говорит что не удается найти...в 1й раз в жизни пишу вопрос на форуме...(вообще), не судите строго. Вот 2 куска кода, что наскреб:

procedure TForm1.DBGrid1CellClick(Column: TColumn);
var[![введите сюда описание изображения][1]][1]
  MyFile: String;
begin
  MyFile := DBGrid1.DataSource.DataSet.FieldByName('filename').AsString;
  ShellExecute(Application.Handle, nil, PChar('PhotoEitor.exe'),
  pchar(MyFile), nil, SW_RESTORE);
  //ИЛИ
  ShellExecute(Application.Handle, nil, PChar('rundll32.exe'),
  PChar('shell32.dll,OpenAs_RunDLL ' + MyFile), nil, SW_SHOWNORMAL);
end;
5
  • PhotoEitor.exe - в имено нет опечатки случайно?
    – Unick
    Commented 25 окт. 2017 в 16:52
  • Что записано в MyFile?
    – Unick
    Commented 25 окт. 2017 в 16:53
  • PhotoEditor.exe сидит в корневой папке проекта, обычный редактор типа paint
    – user242820
    Commented 25 окт. 2017 в 16:57
  • В MyFile записано имя первого столбца, такое же имя в мускуле бд
    – user242820
    Commented 25 окт. 2017 в 16:59
  • @Асхаттт - переведите :)
    – user176262
    Commented 25 окт. 2017 в 17:01

1 ответ 1

0

В этом вызове MyFile должен включать полный путь к файлу, который Вы хотите открыть для редактирования, а не только имя файла:

var
  filePath, fileName, fullName: String;
begin
  filePath := DBGrid1.DataSource.DataSet.FieldByName('filepath').AsString;
  fileName := DBGrid1.DataSource.DataSet.FieldByName('filename').AsString;
  fullName := IncludeTrailingPathDelimiter(filePath) + fileName;
  ShellExecute(Application.Handle, nil, PChar('PhotoEditor.exe'),
    PChar(fullName), nil, SW_RESTORE);
5
  • Вот тут и трабла, по щелчку на любую строку через shellexec открыть любой файл если предусмотрен моими редакторами в данном случае PhotoEditor.exe или диалог окно открыть с помощью и там уже выбирам mp3 и т.д. и т.п.
    – user242820
    Commented 25 окт. 2017 в 17:01
  • @Асхаттт Что есть "трабла"? У Вас полный путь к файлу где-нибудь хранится?
    – user176262
    Commented 25 окт. 2017 в 17:02
  • Что делает моя прога: 1. Сканирует по выбору директорию на имя, путь, размер, формат и т.д.
    – user242820
    Commented 25 окт. 2017 в 17:07
  • 2. Отправляет все это в бд мускул. 3. Далее нажимаем заполнить данные бд, выгружаются в наш dbgrid, сортируем как хотим. 4. Открываем любой файл из dbgrid, вот тут и встал
    – user242820
    Commented 25 окт. 2017 в 17:08
  • Помог Ваш код, спасибо, но для упрощения задачи привязал форм2 и там реализовал редакторы
    – user242820
    Commented 26 окт. 2017 в 15:50

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.