• From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Topic: Открытие файла. Как заставить это работать?

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

Post's attachments

Attachment icon LoadImage&FileFromDatabase.rar 1.16 mb, 490 downloads since 2014-11-19 

Не боги горшки лепят!
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Открытие файла. Как заставить это работать?

В вашем случае должно быть так:

procedure Form1_GridEmployees_OnCellClick (Sender: string; ACol, ARow: Integer);
var
    sFile: string;
begin
     Form1.DBImage1.Clear;
     Form1.DBImage1.LoadFromDatabase('employees', 'photo', Form1.GridEmployees.dbItemID);

     sFile := SQLExecute('SELECT path_filename FROM employees WHERE id=' + Form1.GridEmployees.sqlValue);
     if sFile <> '' then OpenFile(ExtractFileDir(Application.ExeName) + sFile) else ShowMessage('Файл отсутствует');
end;
Dmitry.
  • From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Re: Открытие файла. Как заставить это работать?

DriveSoft wrote:
procedure Form1_GridEmployees_OnCellClick (Sender: string; ACol, ARow: Integer);
var
    sFile: string;
begin
     Form1.DBImage1.Clear;
     Form1.DBImage1.LoadFromDatabase('employees', 'photo', Form1.GridEmployees.dbItemID);

     sFile := SQLExecute('SELECT path_filename FROM employees WHERE id=' + Form1.GridEmployees.sqlValue);
     if sFile <> '' then OpenFile(ExtractFileDir(Application.ExeName) + sFile) else ShowMessage('Файл отсутствует');
end;

Пишет, что не задекларирован sqlValue

Не боги горшки лепят!
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Открытие файла. Как заставить это работать?

Скачайте пожалуйста последнюю бета версию
https://www.dropbox.com/s/bhwao1izh5q4y … 7.zip?dl=0

Dmitry.
  • From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Re: Открытие файла. Как заставить это работать?

Спасибо, скачал. И в ней работает!

Не боги горшки лепят!