PNG-Info (ID:151462)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ありがとうございます
「é」もちゃんと取得出来ました

最初にてテストしていた日本語混じりの時が UTF8 だったので決めつけていました
その日本語混じりの画像の方
参照画像：https://files.catbox.moe/cbdhu3.png
では if C is TChunkTEXT then を通らなかったので調べると
こちらの Chunk.Name は 「iTXt」で iTXt チャンクという別物なのですね

取りあえず夜も更けてきましたのでやっつけで読み込めました
var
    I,J,K: Integer;
    PNG: TPNGImage;
    C: TChunk;
    T: TChunktEXt;
    U: UnicodeString;
    P: Char;
    PB:PByte;
    U8:UTF8String;
    B:TBytes;

if C.Name ='tEXt' then
        begin
          T  := TChunktEXt(C);
          U := '';
          for J := 1 to ByteLength(T.Text) do
          begin
            U := U + Chr(Byte(T.TEXT[J]));
          end;
          Memo1.Lines.Add(U);
        end else
        if C.Name ='iTXt' then
        begin
          SetLength(B,C.DataSize);
          PB:=C.Data;
          for J := 1 to C.DataSize do
          begin
            if PB^<>$00 then//何故かヌル文字入ってる
            begin
              B[K]:= Byte(PB^);
              Inc(K);
            end;
            Inc(PB);
          end;

Memo1.Text:=TEncoding.UTF8.GetString(B);
        end;
……ポインタは苦手です

←解決時は質問者本人がここをチェックしてください。

戻る