quickrep export .jpg

[hark]

herkese kolay gelsin
arama yaptiysamda tam aradigimi bulamadim,
quickreport taki raporlarimi jpg formatinda nasil kayıt edebilirim
ilginiz icin simdiden tesekurler

[mussimsek]

Merhaba,

Qr Export VCL : http://www.gnostice.com
TExtraFilters : http://www.waler.com

Detaylar için bkz : delphiturkiye.com 1. Arşiv CD'si.

Kolay gelsin.

[husonet]

Bmp Formatına çevirsek olmazmı JPG ile hiç uğraşmadımda.

[mussimsek]

olur hocam, .bmp'den .jpeg yapması kolay. İpuçlarında ve forumda birçok örnek var.

Kolay gelsin.

[husonet]

Merhaba işlem tamamdır.

Öncelikle Uses kısmına QUICKRPT unitini ekliyoruz.

Ardından Aşğıda yazdığım kodu düzenliyoruz.

Kod: Tümünü seç

procedure TCariKartlarFrm.Button6Click(Sender: TObject);
var BMP: TBitMap;
 StoredUnits: TQRUnit;
   i: integer;
   StoreDir: string;
begin
 StoreDir:='';
 EtiketBasFrm.QuickRep1.Prepare;
   StoredUnits:=EtiketBasFrm.QuickRep1.Units;
   EtiketBasFrm.QuickRep1.Units:=Pixels;
   try
      for i:=1 to EtiketBasFrm.QuickRep1.QRPrinter.PageCount do begin
         BMP:=TBitMap.Create;
         try
            BMP.Width:=Round(EtiketBasFrm.QuickRep1.Page.Width);
            BMP.Height:=Round(EtiketBasFrm.QuickRep1.Page.Length);
            EtiketBasFrm.QuickRep1.QRPrinter.PageNumber:=i;
            BMP.Canvas.Draw(0, 0, EtiketBasFrm.QuickRep1.QRPrinter.Page);
            BMP.SaveToFile(StoreDir+'Page'+IntToStr(i)+'.bmp');
         finally
            BMP.Free;
         end;
      end;
   finally
      EtiketBasFrm.QuickRep1.Units:=StoredUnits;
   end;
end;

Kolay Gelsin...

[husonet]

Kod test edilmiştir.

Bir rekor daha 17 dk. Sonuç.

[mege]

Ellerine sağlık hüseyin hocam
http://www.delphiturkiye.com/ipobjpas.htm#bmp_to_jpeg
bizimde tuzumuz bulunsun dimi

Kod: Tümünü seç

procedure TCariKartlarFrm.Button6Click(Sender: TObject);
var BMP: TBitMap;
   MyJPEG : TJPEGImage;
   StoredUnits: TQRUnit;
   i: integer;
   StoreDir: string;
begin
 StoreDir:='';
 EtiketBasFrm.QuickRep1.Prepare;
   StoredUnits:=EtiketBasFrm.QuickRep1.Units;
   EtiketBasFrm.QuickRep1.Units:=Pixels;
   try
      for i:=1 to EtiketBasFrm.QuickRep1.QRPrinter.PageCount do begin
         BMP:=TBitMap.Create;
         MyJPEG := TJPEGImage.Create;
         try
            BMP.Width:=Round(EtiketBasFrm.QuickRep1.Page.Width);
            BMP.Height:=Round(EtiketBasFrm.QuickRep1.Page.Length);
            EtiketBasFrm.QuickRep1.QRPrinter.PageNumber:=i;
            BMP.Canvas.Draw(0, 0, EtiketBasFrm.QuickRep1.QRPrinter.Page);
            //BMP.SaveToFile(StoreDir+'Page'+IntToStr(i)+'.bmp');
            MyJPEG.Assign(BMP);
            MyJPEG.SaveToFile(StoreDir+'Page'+IntToStr(i)+'.jpg');            
         finally
            BMP.Free;
            MyJPEG.Free;
         end;
      end;
   finally
      EtiketBasFrm.QuickRep1.Units:=StoredUnits;
   end;
end;

Kolay Gelsin...

test edilmemiştir

[husonet]

@Mege nin yapmış olduğu değişikliğide test ettim çalışıyor.

Hayırlı Olsun

[SieS]

Emeği geçen herkesten ALLAH Razı olsun .
Beni öylebir yükten kurtardıki anlatamam.

İyiki varsınız.