Имею: Простая таблица с БЛОБ полем.
На форме DBImage.
В поле ВЛОВ вставляю картинку.

Проблема: Не могу записать все картинки кроме *.bmp
Например *.jpg в базе не записывается? Помогите.
Использую Delphi7 с Interbase7.

to StarWind
to Малиновский Владимир

Не могли бы вы мне дать примеры ваших реализаций?
Сам я уже запутался, к сожалению.

to StarWind

Я этот и др. форумы все обшарил. Ни один пример не работает!
Ты то сам то пробовал?
У меня стоит Delphi7, Interbase7, ibx708del

to All

Неужели вот у всех оно работает? Ну дайте нормальный,
т.е. вами откомпилированный пример пожалуйста.
Мне кажется проблема в том, что Interbase7 глючит.

to StarWind

Твой пример говорит: "это будет выгрузка с БД в TImage.... "
-Я говорю что это не проблема для меня.

Мой вопрос говорит:
"В поле ВЛОВ вставляю картинку. Проблема: Не могу записать все картинки кроме *.bmp"

Ты говориш: "jpg в базу пишется..."

Я спрашиваю " КАК???"!!!!!!! Все варианты перепробовал.


Повторяю!!!! "демонстрации фотографий " - НЕ НАДО!!!
А надо: Записать картинку в БЛОБ поле.

PS. голова у меня для того чтобы носить шапку! А мозги, чтобы вдалбить тебе это.
PS2. Без обид! Ты сам начал оскарблять.


to _DmG_

Спасибо за пример, не сомневаюсь в том что он у вас работает.
Но у меня проблема именно в том, где идет непосредственное присвоение значения в базу.
т.е. не могли бы вы дать тот кусок примера хранимой процедуры, где значение
блоб поля записывается в поле базы Interbase.

Решил!

Основная проблема в том, что я подключая
uses windows...;
даже не думал о том что, важна очередность юнита windows:
в нем есть запись TBitmap = tagBITMAP;

поэтому так: uses windows, ...; - работает
a так: uses ..., windows; - не работает.

Ну а дальше все так:
В окне просмотра:

при DataSource1DataChange:

...
var Mo_Blob: TStream;
...
if DataSource.State=dsBrowse then
begin
try
Mo_Blob:= DataSet.CreateBlobStream(DataSet.FieldByName('B5'), bmRead);
if Mo_Blob.Size <> 0 then
begin
try
with DataSet do
begin
case FieldByName('B1').AsInteger of
1: E_B5.Picture.Bitmap.LoadFromStream(Mo_Blob);
2: E_B5.Picture.Icon.LoadFromStream(Mo_Blob);
3: E_B5.Picture.Metafile.LoadFromStream(Mo_Blob);
else
begin
E_B5.Picture.Graphic:=TJPEGImage.Create;
E_B5.Picture.Graphic.LoadFromStream(Mo_Blob);
end;
end;
end;
finally
Mo_Blob.Free;
end;
E_B5.Visible:= true;
end;
except
end;
end;

В окне редактирования:

procedure TFE_ListIn1.Mp_LoadImage;
var Mo_Blob: TStream;
begin
Mo_Blob:= DataSet.CreateBlobStream(DataSet.FieldByName('B5'), bmRead);
try
with DataSet do
begin
case FieldByName('B1').AsInteger of
1: E_B5.Picture.Bitmap.LoadFromStream(Mo_Blob);
2: E_B5.Picture.Icon.LoadFromStream(Mo_Blob);
3: E_B5.Picture.Metafile.LoadFromStream(Mo_Blob);
else
E_B5.Picture.Graphic.LoadFromStream(Mo_Blob);
end;
end;
finally
Mo_Blob.Free;
end;
end;

procedure TFE_ListIn1.Mp_SaveImage;
var Mo_Blob: TStream;
begin
Mo_Blob:= DataSet.CreateBlobStream(DataSet.FieldByName('B5'), bmWrite);
try
try
with DataSet do
if E_B5.Picture.Graphic is TBitmap then
begin
E_B5.Picture.Bitmap.SaveToStream(Mo_Blob);
FieldByName('B1').AsInteger:= 1;
end
else
if E_B5.Picture.Graphic is TIcon then
begin
E_B5.Picture.Icon.SaveToStream(Mo_Blob);
FieldByName('B1').AsInteger:= 2;
end
else
if E_B5.Picture.Graphic is TMetafile then
begin
E_B5.Picture.Metafile.SaveToStream(Mo_Blob);
FieldByName('B1').AsInteger:= 3;
end
else
begin
E_B5.Picture.Graphic.SaveToStream(Mo_Blob);
FieldByName('B1').AsInteger:= 4;
end;
except
with DataSet do
FieldByName('B1').AsInteger:= 0;
end;
finally
Mo_Blob.Free;
end;
end;

И еще проблема:
Я в обеих окнах в Image1 загрузил в десигн режиме картинки *.jpg
Они все равно перезаписываются, т.е. не показываются.
Но если мне этого не делать, то программа перестает работать в jpegами.

Хотя уже все у меня работает, т.е. уже не критично

Вот еще код, кому надо, чтение и запись в файл:

procedure TFE_ListIn1.Button_Picture1Click(Sender: TObject); begin
if OpenDialog_Picture.Execute then
begin
E_B5.Picture.LoadFromFile(OpenDialog_Picture.FileName);
Mp_SaveImage;
end;
end;

procedure TFE_ListIn1.Button_Picture2Click(Sender: TObject);
begin
E_B5.Refresh;
SaveDialog_Picture.DefaultExt:= '';
SaveDialog_Picture.FilterIndex:= 1;
SaveDialog_Picture.FileName:= '';
if E_B5.Picture.Graphic is TBitmap then
begin
SaveDialog_Picture.DefaultExt:= '*.bmp';
SaveDialog_Picture.FilterIndex:= 4;
end
else
if E_B5.Picture.Graphic is TIcon then
begin
SaveDialog_Picture.DefaultExt:= '*.ico';
SaveDialog_Picture.FilterIndex:= 5;
end
else
if E_B5.Picture.Graphic is TMetafile then
begin
SaveDialog_Picture.DefaultExt:= '*.wmf';
SaveDialog_Picture.FilterIndex:= 7;
end
else
begin
SaveDialog_Picture.DefaultExt:= '*.jpeg';
SaveDialog_Picture.FilterIndex:= 3;
end;
if SaveDialog_Picture.Execute then
begin
if FileExists(SaveDialog_Picture.FileName) then
if MessageDlg(Format(Mf_GetLangStr('zMyFilterG18',true), [SaveDialog_Picture.FileName]),
mtConfirmation, mbYesNoCancel, 0) <> idYes then Exit;
E_B5.Picture.SaveToFile(SaveDialog_Picture.FileName);
end;
end;

где фильтры SaveDialog_Picture и OpenDialog_Picture были такими:
All (*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)|*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf|JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf