<div dir="ltr">2013/2/5 Mattias Gaertner <span dir="ltr"><<a href="mailto:nc-gaertnma@netcologne.de" target="_blank">nc-gaertnma@netcologne.de</a>></span><br><div class="gmail_extra"><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">

<div class="im">On Tue, 5 Feb 2013 12:37:24 -0200<br>
silvioprog <<a href="mailto:silvioprog@gmail.com">silvioprog@gmail.com</a>> wrote:<br>
<br>
> Hello friends,<br>
><br>
> I'm trying to extract the color data and alpha from a PNG image. In PHP it<br>
> is very easy to implement, but in FPC I don't know how to do it. I tried to<br>
> do it via "chunk.data", "ZData" etc., but, without success.<br>
><br>
> Attached two files to test it. To test the PHP code run this command in<br>
> your terminal:<br>
><br>
> php -f fpdf.php<br>
><br>
> The in FPC code is partially complete.<br>
<br>
</div>Have you tried fpimage?<br>
<br>
uses<br>
  fpreadpng, fpimage;<br>
<br>
var<br>
  image: TFPCustomImage;<br>
  reader: TFPCustomImageReader;<br>
  x,y: integer;<br>
  c: TFPColor;<br>
begin<br>
  Image := TFPMemoryImage.Create(0, 0);<br>
  Reader := TFPReaderPNG.Create;<br>
  Image.LoadFromFile(AFileName, Reader);<br>
  for y:=0 to Image.Height-1 do<br>
    for x:=0 to Image.Width-1 do begin<br>
      c:=Image.Colors[x,y];<br>
      writeln(c.Alpha,' ',c.Blue);<br>
    end;<br>
  //...<br>
<br>
Mattias</blockquote></div><div><br></div><div style>Yes, I tried it too, but, without success. :(</div><div style><br></div><div style>See my new code in attached. It generates the data, but with wrong content.</div><div style>

<br></div>-- <br>Silvio Clécio<br>My public projects - <a href="http://github.com/silvioprog" target="_blank">github.com/silvioprog</a>
</div></div>