Konuyu Oyla:
  • Derecelendirme: 4/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
TImage yazıcıdan çıktır alma hk.
#1
Merhaba arkadaşlar ben projemde kullandığım image nesnesinin içindeki resmi aşağıdaki kodla yazıcıdan çıkartmak istiyorum ama yazıcı boş sayfa çıkartıyor yardımcı olursanız çok sevinirim.

 var
  ScaleX, ScaleY: Integer;
  RR: TRect;
begin

  PrintDialog1.Execute;

  with Printer do
  begin
    BeginDoc;
    try
      ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
      ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
      RR := Rect(0, 0, Image1.picture.Width * scaleX, Image1.Picture.Height * ScaleY);
      Canvas.StretchDraw(RR, Image1.Picture.Graphic);
    finally
      EndDoc;   //Methode EndDoc beendet den aktuellen Druckauftrag und schließt die
    end;
Cevapla
#2
http://www.delphitricks.com/source-code/...image.html
Cevapla
#3
@Cyber ; verdiğiniz linke baktınız mı hiç acaba?
Çünkü soruda sorulanla bire bir aynı.
There's no place like 127.0.0.1
WWW
Cevapla
#4
(24-10-2016, Saat: 17:20)emrekilinc1984 Adlı Kullanıcıdan Alıntı: Merhaba arkadaşlar ben projemde kullandığım image nesnesinin içindeki resmi aşağıdaki kodla yazıcıdan çıkartmak istiyorum ama yazıcı boş sayfa çıkartıyor yardımcı olursanız çok sevinirim.

 var
  ScaleX, ScaleY: Integer;
  RR: TRect;
begin

  PrintDialog1.Execute;

  with Printer do
  begin
    BeginDoc;
    try
      ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
      ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
      RR := Rect(0, 0, Image1.picture.Width * scaleX, Image1.Picture.Height * ScaleY);
      Canvas.StretchDraw(RR, Image1.Picture.Graphic);
    finally
      EndDoc;   //Methode EndDoc beendet den aktuellen Druckauftrag und schließt die
    end;

Try Finally kısmını kaldırıp yazdırmayı denedinizmi ? Normalde yazdırması lazım bu kodun, boş verme sebebi TRect içersine hiçbişi almıyor olmasıdır büyük ihtimalle.
WWW
Cevapla
#5
teşekkürler arkadaşlar çözdüm ama şimdide büyük resmi yazdırmıyor yarısınız çıkartıyor sığmıyor sanırım bunu nasıl çözebilirim.
Cevapla
#6
Kağıdın dik yatay ayarlarından olabilir mi?
Ağlarsa kablosuz ağlar, gerisi yerel ağlar...
Cevapla
#7
fxreport kullansan olmaz mı ?
WWW
Cevapla
#8
frxreport ile 50-60 sayfaya kadar herbiri 300-400 kb resimden katalog yapmıştım runtime da dosyayolundan veya bir memtable a resimleri yükleyip frxreporta gösterebilirsiniz strech özeliğinden yararlanarakda sığdırma işlemi yapabilirsiniz.

“Do. Or do not. There is no try.”
Cevapla
#9
(24-10-2016, Saat: 21:56)emrekilinc1984 Adlı Kullanıcıdan Alıntı: teşekkürler arkadaşlar çözdüm ama şimdide büyük resmi yazdırmıyor yarısınız çıkartıyor sığmıyor sanırım bunu nasıl çözebilirim.

Merhaba,
Sorununuzun çözüldüğüne sevindim. Fakat nasıl çözüldüğünü ve düzelttiğiniz kısımları bizimle paylaşsaydınız daha iyi olacaktı. 
Eminim farkında olarak veya olmayarak bu sorununuzdan şöyle bir şey öğrenmişsinizdir:
Bilgiye ulaşmak ve tek başına birşeyleri öğrenmek ve kavramak çok zor. 
Bu anlamda sizin gibi bu sorunu yaşayacak olan üyelerimize bir faydanız olması açısından bu ve buna benzer sorunların çözümünü de paylaşmanızı rica ediyorum.
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#10
(24-10-2016, Saat: 17:49)SimaWB Adlı Kullanıcıdan Alıntı: @Cyber ; verdiğiniz linke baktınız mı hiç acaba?
Çünkü soruda sorulanla bire bir aynı.

Merhaba,
Hocam Tabikide kodları kontrol ettim. Ezbere, sırf cevap vermek için linki paylaşmadım. Henüz yolun başında olduğum için konulara cevap verirken bilgim dahilinde veriyorum.Bu yüzden benimle ilgili yanlış fikirlere kapılmanızı istemiyorum. Amacım doğru bildiklerimi paylaşıp, yanlışlarımı düzeltmek.

İyi çalışmalar.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Video TImage ve Sql narkotik 4 1.561 24-03-2020, Saat: 16:03
Son Yorum: itsmylife38
  Event Alerter İle Son kaydedilen veriyi alma eyln 7 741 18-02-2020, Saat: 13:31
Son Yorum: esistem
  WebDav ile Yandex Diskten Klasör ve Dosya Listesi Alma theSinan 2 426 13-02-2020, Saat: 19:58
Son Yorum: theSinan
  indy IdTCPServer1 data alma problemi lazarus sadikacar60 3 630 24-01-2020, Saat: 16:34
Son Yorum: sadikacar60
  Metre Sayacından Veri Alma bsogulcan 3 672 04-01-2020, Saat: 16:15
Son Yorum: QuAdR



Konuyu Okuyanlar: 1 Ziyaretçi