FastReport ta çoklu resim gösterme

[Yavuz]

Merhabalar,
Fast reporta binlerce küçük resmi veritabanına ekleyerek raporluyordum. ama bu yol hız ve sistem kaynakları açısından sorun çıkarmaya başladı. Bu işi resmin yolunu saklayarak resimleri de bir klasörden çağırarak yapmam gerekiyor.
Ama resimler bir sayfada iki sütün halinde olacak ve sayfa sayısı birden fazla olabilecek, ayrıca resimlerin boyutları farklı olduğundan alt alta sıralandığında alararında örneğin 2 şer cm mesafe olacak (web te sayfalama gibi)
bunu tek bir image nesnesi kullanarak nasıl yapabilirim

Teşekkürler ... iyi çalışmalar ...

[Lost Soul]

veritabanında path leri tutup
fastreportta
image nesnesinin içeriğini çalışma anında yükleyebilirsiniz

ekteki

DPL.rar

(121.06 KiB) 279 kere indirildi

örnekte
ilk başta çalışma anında yükleme işini
raporun içinde aşağıdaki şekilde yaptım

Kod: Tümünü seç

procedure xyolOnAfterData(Sender: TfrxComponent);
begin                          
  resim.picture.loadfromfile(xyol.memo.text);                                   
end;

Unknown picture extension (.bmp) hatası verince uğraşmak istemedim.

ve şu şekilde yaptım.

Kod: Tümünü seç

procedure Tmain.dbconnNext(Sender: TObject);

  Var BM : TBitmap;
begin
  BM := TBitmap.Create;
  //DetectImage(TfrxMemoView(rapor.FindObject('xyol')).Value,BM);
  DetectImage(dbconn.DataSet.FieldByName('xpath').AsString,BM);
  TFrxPictureView(rapor.FindObject('resim')).Picture.Bitmap.Assign(bm);
  BM.Free;
end;

burada

Kod: Tümünü seç

TFrxPictureView(rapor.FindObject('resim')).Picture.Bitmap.Assign(bm)

yerine

Kod: Tümünü seç

TFrxPictureView(rapor.FindObject('resim')).Picture.LoadFromFile(TfrxMemoView(rapor.FindObject('xyol')).Value)

de kullanabilirsiniz.




ne hikmetse her resmi bir sonraki kayda atıyor
daha fazla uğraşmak için zamanım yok.
Siz kendinize göre çözsümler üretirsiniz artık.

veritabanı kaynağı olarak Jedi Memtable kullanılmıştır.

[Yavuz]

Çok teşekkürler
aradığım buydu

İyi çalışmalar dilerim ...