DBGrid

[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;

Файл записывается на диск, только пишет, только программа, которая открывает его, выдает сообщение "Формат файла не определен"

[Yurk@]

только программа, которая открывает его, выдает сообщение "Формат файла не определен"

а обычным двойным щелчком удается его открыть?
и какой формат файла хранится в БД? может там вовсе и не jpg, а что-то другое

[Eugene_Stoun]

Файлы у меня хранятся в самой БД, формат их .tif, просто вместо jpg я прописываю tif, файл создается в папке с программой но не открывается, пишет формат файла не определен, хотя файл имеет вполне хороший размер, не могу разобраться в чем проблема, я уже пытался использовать потоки, но тоже самое происходит Даже двойным щелчком тоже самое сообщение, что формат файла не определен

[Stilet]

А если файл открыть в HEX редакторе будет там TIFF сигнатура?
Может ты их неправильно в БД засовываешь?

[Vapaamies]

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

Файл записывается на диск, только пишет, только программа, которая открывает его, выдает сообщение "Формат файла не определен"

И правильно, ибо нефиг. Читая тему, всё удивлялся использованию ShellExecute, думая что это какой-то незнакомый мне способ.

Если задачу нужно все же решить, советую перестать играть в бирюльки, засучить рукава и вдумчиво гуглить по теме хранения объектов OLE в таблицах Access. Там сделано немного нетривиально, насколько знаю.

Самому пользоваться не приходилось, поэтому точнее не подскажу. А всех советчиков-быдлокодеров из этой темы -- на кол!

[Stilet]

Eugene_Stoun

В нете такое рекомендуют: http://devdelphi.ru/?p=51

Читая тему, всё удивлялся использованию ShellExecute

Ну и чему же?

[Аватар]

Stilet, это не прокатит. Записанная средствами ACCESS-а картинка в OLE-поле отличается от двоичного представления того же jpg. Нужно плясать в сторону olecontainer. Вот если бы из дельфей записали, тогда можно. Но тогда ACCESS воспринимал бы как просто двоичное BLOB-поле и ни каких тебе jpg

[Stilet]

Записанная средствами ACCESS-а картинка

Я что-то пропустил, или автор это подтвердил

[Vapaamies]

Stilet, в первом же сообщении:

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

тип этого поля OLE.

Инквизиция помнит.

[Stilet]

Инквизиция помнит.

Та как-то не волнует твоя религия. OLE ни о чем не говорит. Как автор туда данные вбил эти три буквы никому не поведали.
И ты кстати уклонился от моего вопроса.

P.S. А пока тут не разгорелись костры экзекуторов скажу следующее.
Сделал базу на 2003-м акцессе, и проект.

unit Unit2;

interface

uses      shellapi,
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids,
  Data.DB, Data.Win.ADODB;

type
  TForm2 = class(TForm)
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
 TBlobField(ADOTable1.Fields[0]).SaveToFile('d:\1\q.jpg');
 ShellExecute(GetForegroundWindow,'open','d:\1\q.jpg','','d:\1\',0);
end;

end.

Поле типа OLE. Вставил чпег средствами акцесса. Все прекрасненько выгружается и работает из проги на Делфи.

Или я чето опять не так делаю? Ась?