Prc uzantılı resmi büyütüp parcalara ayırıp print etmek

[guney]

Bir halı deseni ,çizim programı ile hazırlanıyor ve PRC uzantılı bir resim formatına çevriliyor.
Resmin boyutu bir A4 büyüklüğü gibi.

Programdan istenen resmi (*.prc uzantılı ) alıp desenler tam belli olsun diye 30 sayfaya döktürmek. Yanı resmi 30 kat büyütmek ve 30 parçaya bölüp her bir parçayı bir A4 çıktısı şeklinde print emek.

Bunu nasıl yapabilirim? cok acil.

[sadettinpolat]

biraz daha fazla bilgi verirseniz yardımcı olmaya çalışırız

prc formatı hakkında neler biliyorsunuz?
raster tabanlı mı yoksa bitmap tabanlı mı?
30 kat büyültülmesi lazım demişsiniz, prc fromatı bunu destekliyor mu?
v.s.vs.

[guney]

prc uzantısı hakkında bende fazla bilgim yok. dos tabanında çalışan ve prc uzantılı dosyaları print eden programı delphi de yeniden yazma durumu var.

prc Acdsee programının desteklediği bir format.

yapılmak istenen resmi parcalara ayırıp her bir parcayı büyütüp bir A4 boyutunda print etmek.

[gkimirti]

Dosya formatları icin faydalı bir site
http://www.wotsit.org/search.asp
bu sitede PRC diye aratınca
http://web.mit.edu/tytso/www/pilot/prc-format.html

[guney]

prc olayı bir şekilde çözülebilir. mesela jpeg yada bmp ye dönüştürülür.

Ancak yüksel cözünürlükteki bir resmi karelere (parcalara ) ayırıp bu parcaları büyütüp print etmek noktasında yardım edebilirseniz sevinirim.

[sadettinpolat]

aşağıdaki kod iki bitmapi pixel pixel karşılaştırıyor.
belki size bir fikir verebilir.

birde delphi ve grafik üzerine çok güzel bir site vardı ama şu an adresini hatırlamıyorum. google dan falan aratırsanız bulabilirsiniz. işinize yarayacak birşeyleri o sitede kesin bulursunuz.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject); 
var 
  b1, b2: TBitmap; 
  c1, c2: PByte; 
  x, y, i, 
  different: Integer; // Counter for different pixels 
begin 
  b1 := Image1.Picture.Bitmap; 
  b2 := Image2.Picture.Bitmap; 
  Assert(b1.PixelFormat = b2.PixelFormat); // they have to be equal 
  different := 0; 
  for y := 0 to b1.Height - 1 do 
  begin 
    c1 := b1.Scanline[y]; 
    c2 := b2.Scanline[y]; 
    for x := 0 to b1.Width - 1 do 
      for i := 0 to BytesPerPixel - 1 do // 1, to 4, dep. on pixelformat 
      begin 
        Inc(different, Integer(c1^ <> c2^)); 
        Inc(c1); 
        Inc(c2); 
      end; 
  end; 
end; 

[TRSoft]

http://homepages.borland.com/efg2lab/

[guney]

programla ilgili daha detaylı bilgi sunayım. (bende yeni öğrendim )

dos ta çalışan bir desen hazırlama programı. bu programda desenler hazırlanıp prx uzantılı olarak kaydediliyor.

sorun şurada başlıyor.

prc uzantılı dosyayı 10 x 10 gibi karelere ve herbir kareyi de 15 x 14 gibi pixellik alanlara parcalaamak gerekior. tabi resmin bütününü print ederken bir A4 resim bizim parcalanışımıza göre onlarca sayfada cıkıyor. böylece desen işleyecek elemanın elinde çok deatylı bir döküman oluyor.

yapmam gereken program şöyle olmalı diye düşünüyorum ;

pixel büyüklükleri girilecek sonra karalerin ebatları girilecek ve program resmi bu şekilde büyütüp kaç sayfaya çıkması gerekiyorsa kendisi print edecek.