DBGrid

[Eugene_Stoun]

Всем доброго времени суток! Приношу свои извинения, если данная тема уже была. Вопрос таков: "Открытие файла из DBGrid". У меня имеется база сделанная в MS Access 2013, в ней есть поле "Изображение", тип этого поля OLE. Вывожу таблицу из базы в DBGrid, но файлы он мне не открывает по нажатию на значение поля. Вот код:

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
if Column.Field.FieldName='Изображение ' then
begin
ShellExecute(0,'Open',PChar(Column. Field.AsString),'','',SW_SHOWDEFAUL T);
end;
end;

[Stilet]

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
if Column.Field.FieldName='Изображение ' then
begin
 if ShellExecute(0,'Open',PChar(Column. Field.AsString),'','',SW_SHOWDEFAULT)<=32 then RaiseLastOSError;
end;
end;

И смотрим что за ошибку выводит

[Eugene_Stoun]

Спасибо, будем пробовать и смотреть, что delphi нам на это скажет

[Stilet]

будем пробовать и смотреть

... И кросспостов больше не делать на форумах

[Eugene_Stoun]

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

... И кросспостов больше не делать на форумах

Конечно не будем, но вопрос еще не закрыт, так как также ничего не происходит при нажатии, не открывает файлы

[Stilet]

Значит ставь туда точку прерывания и анализируй пошаговкой.
Отлаживать, надеюсь, умеешь?

[Yurk@]

перед тем как открыть файл с OLE-поля - его нужно куда-нибудь сохранить (память или диск), а потом уже открывать

[Eugene_Stoun]

Все бы хорошо, но столько сайтов уже пересмотрел, как передать файл в поток...Но сколько не пробывал все никак не выходит Добрый человек, помоги еще советом, буду признателен

[Yurk@]

по идее как-то так должно быть (в общем смысле)

if Column.Field.FieldName = 'Изображение' then
begin 
  TBlobField(Query.FieldByName('Изображение')).SaveToFile('c:\Temp\img.jpg');
  ShellExecute(0, 'open', PChar('c:\Temp\img.jpg'), nil, nil, SW_NORMAL);
end;

[Аватар]

Если картинка записана в базу средствами ACCESS-а, то так просто не получится. По этой ссылке можно почитать, насколько код там работоспособен не проверял
http://stackoverflow.com/questions/4...my-application