fastreport resim gönderme

[erdogan]

Merhaba,

vt. aşağıdaki kod ile resim kaydediyorum ve kaydettiğim logoyu fastreport'a göndermeye çalıştığımda dizin hatası veriyor acaba nerede yanlış yapıyorum ?

Teşekkürler

    TfrxPictureView(ANA_SAYFA_PENCERE.frxReportADISYON_FISI.FindObject('Picture_LOGO')).Picture.LoadFromFile(
   Trim(DM.qryRS_AYARLAR.FieldByName('FIRMA_LOGO').Value)+'.jpg');

ve bu şekilde de denedim


   TfrxPictureView(ANA_SAYFA_PENCERE.frxReportADISYON_FISI.FindObject('Picture_LOGO')).Picture.LoadFromFile(
   Trim(DM.qryRS_AYARLAR.FieldByName('FIRMA_LOGO').Value));

procedure TAYARLAR_PENCERE.SpeedButton43Click(Sender: TObject);
var
 Field: TBlobField;
 Stream: TStream;
begin
 QRY_RESTORAN_AYARLAR.Edit;
 Field := TBlobField(QRY_RESTORAN_AYARLAR.FieldByName('FIRMA_LOGO'));
 Stream := QRY_RESTORAN_AYARLAR.CreateBlobStream(Field, bmWrite);
 try
   ImageFIRMA_LOGO.Picture.SaveToStream(Stream);
 finally
   Stream.Free;
 end;
 QRY_RESTORAN_AYARLAR.Post;
end;

---

Merhaba,

aşağıdaki kod ile yapıyorum ama daha kısa bir yolu varmı acaba ?

Teşekkürler.

     if  DM.qryRS_AYARLAR.FieldByName('FIRMA_LOGO').AsString <> '' then
   begin

     Jpeg := TJpegImage.Create();
     try
       Stream := TMemoryStream.Create();
       try
         TBlobField(DM.qryRS_AYARLAR.FieldByName('FIRMA_LOGO')).SaveToStream(Stream);
         Stream.Position := 0;
         Jpeg.LoadFromStream(Stream);

         TfrxPictureView(
         ANA_SAYFA_PENCERE.frxReportADISYON_FISI.FindObject('Picture_LOGO')
         ).Picture.Assign(Jpeg);
        // ImageFIRMA_LOGO.Picture.Assign(Jpeg);
       finally
         Stream.Free();
       end;
     finally
       Jpeg.Free();
     end;
    end;

[bibilen]

(09-10-2020, Saat: 22:52)erdogan Adlı Kullanıcıdan Alıntı: Merhaba,

vt. aşağıdaki kod ile resim kaydediyorum ve kaydettiğim logoyu fastreport'a göndermeye çalıştığımda dizin hatası veriyor acaba nerede yanlış yapıyorum ?

Teşekkürler

    TfrxPictureView(ANA_SAYFA_PENCERE.frxReportADISYON_FISI.FindObject('Picture_LOGO')).Picture.LoadFromFile(
   Trim(DM.qryRS_AYARLAR.FieldByName('FIRMA_LOGO').Value)+'.jpg');

ve bu şekilde de denedim


   TfrxPictureView(ANA_SAYFA_PENCERE.frxReportADISYON_FISI.FindObject('Picture_LOGO')).Picture.LoadFromFile(
   Trim(DM.qryRS_AYARLAR.FieldByName('FIRMA_LOGO').Value));

procedure TAYARLAR_PENCERE.SpeedButton43Click(Sender: TObject);
var
 Field: TBlobField;
 Stream: TStream;
begin
 QRY_RESTORAN_AYARLAR.Edit;
 Field := TBlobField(QRY_RESTORAN_AYARLAR.FieldByName('FIRMA_LOGO'));
 Stream := QRY_RESTORAN_AYARLAR.CreateBlobStream(Field, bmWrite);
 try
   ImageFIRMA_LOGO.Picture.SaveToStream(Stream);
 finally
   Stream.Free;
 end;
 QRY_RESTORAN_AYARLAR.Post;
end;

---

Merhaba,

aşağıdaki kod ile yapıyorum ama daha kısa bir yolu varmı acaba ?

Teşekkürler.

     if  DM.qryRS_AYARLAR.FieldByName('FIRMA_LOGO').AsString <> '' then
   begin

     Jpeg := TJpegImage.Create();
     try
       Stream := TMemoryStream.Create();
       try
         TBlobField(DM.qryRS_AYARLAR.FieldByName('FIRMA_LOGO')).SaveToStream(Stream);
         Stream.Position := 0;
         Jpeg.LoadFromStream(Stream);

         TfrxPictureView(
         ANA_SAYFA_PENCERE.frxReportADISYON_FISI.FindObject('Picture_LOGO')
         ).Picture.Assign(Jpeg);
        // ImageFIRMA_LOGO.Picture.Assign(Jpeg);
       finally
         Stream.Free();
       end;
     finally
       Jpeg.Free();
     end;
    end;

resim zaten veritabanında kayıtlı ise neden dosyaya yazıp tekrar dosyadan okumaya çalışıyorsun ki. fastreporttaki PictureView nesnesi zaten doğrudan veritabanından okur.
PictureView nesnesinin DataSet ve DataField özelliklerini set et, yukarıdaki kodların hiç birine gerek yok.