掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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; ……ポインタは苦手です
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.