Считывание картинок из SQL

[Lisi4ka]

Есть таблица БД, содержащая картинки; процедуры на вставку, удаление строк работают нормально, возникла проблема с отображением имеющихся данных: я бы хотела, чтобы при перемещении курсора при наличии картинки в текущ. записи нужная картинка была отображена:

procedure TParts_form.DataSource1DataChange(Sender: TObject;
  Field: TField);
var 
     bitmap: TBitMap;
     BS:TStream;
begin
   ClientDataSet1.Active:=true;
   BS:=ClientDataSet1.CreateBlobStream(ClientDataSet1.FieldByName('Shema'),bmRead);
   if (BS.Size>0) then
   Showmessage('Stream');
   bitmap:=TBitmap.Create;
   bitmap.LoadFromStream(BS);
   Image1.Picture.Graphic:=bitmap;
end;

Возникает ошибка "Stream read error"
ClientDataSet1 отвечает за выборку всех данных из таблицы, в таблице картинки точно есть.

[soleil@mmc]

делай так

bitmap:=TBitmap.Create;
BS.Position:=0;
bitmap.LoadFromStream(BS);

[Lisi4ka]

soleil@mmc, вначале я тоже думала, что нужно тая, уже делала, но установка позиции потока в начало ничего не дает, та же самая ошибка((

[Lisi4ka]

и так тоже не работает:

 TMemoryStream(BS).Seek(0,soFromBeginning);

[Stilet]

А что DBImage уже отменили?

[Lisi4ka]

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

[Stilet]

Lisi4ka

Пробовала его? Если нет - марш пробовать.

[Lisi4ka]

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

Пробовала его? Если нет - марш пробовать.

Пробовала, результаты аналогичные

[soleil@mmc]

а так?

var 
     bitmap: TBitMap;
    MS: TMemoryStream;
begin
  ClientDataSet1.Active:=true;
  MS:=TMemoryStream.Create;
   Try      
      MS.Position:=0;
      TBlobField(ClientDataSet1.FieldByName('Shema')).SaveToStream(MS);
      if (MS.Size>0) then begin
        Showmessage('Stream');
        bitmap:=TBitmap.Create;
        MS.Position:=0;
        bitmap.LoadFromStream(MS);
        Image1.Picture.Graphic:=bitmap;
      end;
   Finally
      FreeAndNil(MS);
   End;
end;

[Lisi4ka]

Спасибо, К сожалению, вашим способом тоже не получается, как и у меня, ругается на

      bitmap.LoadFromStream(MS);

Возможно, сохранение данных в базу работает некорректно. Привожу код:

procedure TParts_form.Button1Click(Sender: TObject);
var MyStream:TMemoryStream;
begin
MyStream:=TMemoryStream.Create;
Image1.Picture.Bitmap.SaveToStream(MyStream);
Showmessage(IntToStr(MyStream.Size));
ClientDataSet2.CommandText:= 'Parts_ins';
ClientDataSet2.Params.Clear;
ClientDataSet2.Params.CreateParam(ftString, '@ID_I', ptInput).AsString := Trim(Edit1.Text);
ClientDataSet2.Params.CreateParam(ftString, '@NAME_I', ptInput).AsString := Trim(Edit2.Text);
ClientDataSet2.Params.CreateParam(ftGraphic, '@im', ptInput).LoadFromStream(MyStream,ftGraphic);
ClientDataSet2.Execute;
ClientDataSet1.Refresh;
DataSource1.Enabled:=true;
DbGrid1.Refresh;
end;

Размер потока, загружаемого в БД= 500 с лишним кб, если же посмотреть, что пытается считать поток из базы, его размер 3.