TcxImageCollectionItems'a resim nasıl eklenir [Çözüldü]

[adelphiforumz]

S.A.

Sql veri tabanı içerisinde kayıtlı olan jpg formatında resimlerim var

aşağıdaki şekilde bir işlem yapıyorum ve bu elimdeki Blob veriyi TcxImageCollectionItems nesnesine ekleyip bunları belli
zaman periyotlarında cxImage nesnesi üzerinde göstermeye çalışyorum

fakat bir türlü TcxImageCollectionItems nesnesine veri ekleyemedim.
acaba nerde hata yapıyor olabilirim.

Teşekkürler

Kod: Tümünü seç

    with DM.QryGenel do
    begin
        Close;
        SQL.Text := 'Select * from Resimler';
        Open;
        while Not(Eof) do
        begin
            _BlobStream := Tadoblobstream.Create(TGraphicField(FieldByName('Resim')), bmRead);
            cxImageCollection.Items.Add;
            cxImageCollection.Items[(cxImageCollection.Items.Count-1)].Picture.Graphic.Assign(TJpegGraphic(_BlobStream));
            _BlobStream.Free;
            DM.QryGenel.Next;
        end;
    end;

Buda collectiondan alıp kullandığım kod

Kod: Tümünü seç

  try
    cxImage.Picture := cxImageCollection.Items[iImageNo].Picture;
  except
  end;

[adelphiforumz]

Çözüldü

Kod: Tümünü seç

var
   _JPeg: TJPEGImage;
begin
            _JPeg := TJPEGImage.Create;
            _JPeg.Assign(TGraphicField(FieldByName('Resim')));
            cxImageCollection.Items.Add;
            cxImageCollection.Items[(cxImageCollection.Items.Count - 1)].Picture.Assign(_JPeg);
            _JPeg.Free;
end;

Kod: Tümünü seç

        cxImage1.Picture.Assign(cxImageCollection.Items[x].Picture);