Resimden Karaktere

Mesaj gönderen **mege** » 18 Haz 2004 02:48

geçenlerde forumda başka bir iş için verilen kodu biraz modifiye edip
verdiğiniz bitmap resmi karakter olarak renkli html sayfa yapan bir hale getirdim.
sonuç çok güzel, bakınız benim resmim

http://members.lycos.co.uk/mtngndz/dosyalar/a.html

formunuza bir adet image nesnesi atın ve bmp resim yükleyin.
bir de buton.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
  b1: TBitmap;
  c1: PByteArray;
  x, y: Integer;
  s:string;
begin
try
  list := TStringList.Create;
  list.Clear;
  list.Add('<html>');
  list.Add('<FONT SIZE=1><FONT FACE="Arial">');
  b1 := Image1.Picture.Bitmap;
  for y := 0 to b1.Height - 1 do
  begin
    c1 := b1.Scanline[y];
    s:='';
    for x := 0 to (b1.Width - 1)*3 do
       if (x mod 3) = 2 then
         s:= s+ '<span style="color: rgb('+ inttostr(c1[x])+','+inttostr(c1[x])+','+inttostr(c1[x])+');">M</span>';
    list.Add(s+'<BR>');
  end;
  list.Add('</FONT>');
  list.Add('</html>');
  list.SaveToFile('c:\a.html');
finally
  list.Free;
end;
end;

renk kodlamayla ilgili problem olablir. resmin rengi mat çıkıyor. bilien bi arkadaş ilgilenirse sevinirim

Mesaj gönderen **husonet** » 18 Haz 2004 03:41

Metin Dostum güzel olmuş eline sağlık bunu geliştirmek lazım

Mesaj gönderen **mussimsek** » 18 Haz 2004 03:44

geçen gün ben benzer bir program görmüştüm. Çok güzel olmuş

Eline sağlık.

Kolay gelsin.

Mesaj gönderen **mege** » 18 Haz 2004 05:39

hocam bi eilm boşalsın düzeltiriz bunu..
aklıma gelen karakter satırları arasındaki boşluğu azaltmak onuda buldum ama vakit yok inşallah haftaya betayı salarız

başa bunu ekleyince işlem tamam..

Kod: Tümünü seç

<P STYLE="margin-bottom: -0.5cm">

Mesaj gönderen **fahrettin** » 18 Haz 2004 05:54

waaay... Hocam çok güzel ve ilginç olmuş.....

Mesaj gönderen **freeman35** » 18 Haz 2004 09:31

Bravo, Tebrik ediyorum, çok güzel olmuş

Kolay gele

Mesaj gönderen **rsimsek** » 19 Haz 2004 04:13

yine döktürmüşsün

mege

Mesaj gönderen **name** » 19 Haz 2004 07:10

Bende tebrik ederim. Gayet güzel olmuş

Mesaj gönderen **name** » 19 Haz 2004 07:28

Kod: Tümünü seç

<span style="color: rgb('+ inttostr(c1[x])+','+inttostr(c1[x])+','+inttostr(c1[x])+');">M</span>

Burada x değeri üç renk (red,green,blue) içinde aynı değeri alıyor. Bundan dolayı gri ve gri tonlarında renkler oluşuyor.

Mesaj gönderen **mege** » 21 Haz 2004 12:04

@name e teşekkürler dediğin gibiymiş

örnek : http://members.lycos.co.uk/mtngndz/dosyalar/a.html

Kodun son hali sadece x ler x x-1 ve x-2 yaptım renkler geldi

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
  b1: TBitmap;
  c1: PByteArray;
  x, y: Integer;
  s:string;
begin
try
  list := TStringList.Create;
  list.Clear;
  list.Add('<html>');
  list.Add('<FONT SIZE=1><FONT FACE="Arial">');
  b1 := Image1.Picture.Bitmap;
  for y := 0 to b1.Height - 1 do
  begin
    c1 := b1.Scanline[y];
    s:='';
    for x := 0 to (b1.Width - 1)*3 do
       if (x mod 3) = 2 then
         s:= s+ '<span style="color: rgb('+ inttostr(c1[x])+','+inttostr(c1[x-1])+','+inttostr(c1[x-2])+');">M</span>';
    list.Add(s+'<BR>');
  end;
  list.Add('</FONT>');
  list.Add('</html>');
  list.SaveToFile('c:\a.html');
finally
  list.Free;
end;
end;

Mesaj gönderen **husonet** » 21 Haz 2004 12:17

Vay bu haliyle çok daha güzel. Tekrar eline sağlık Hocam.