2

この（テスト）コードを使用して、PNGからtEXtチャンクを読み取ります。

procedure TForm1.Button1Click(Sender: TObject);
var
  PngVar: TPngImage;
  n: Integer;
begin
  PngVar := TPNGImage.Create;
  PngVar.LoadFromFile('C:\test.png');
  for n := 0 to pred(PngVar.Chunks.count) do
  if PngVar.Chunks.item[n].Name='tEXt' then
  with PngVar.Chunks.item[n] as TChunkTEXT do
  memo1.lines.add(KeyWord+'='+Text);
end;

このコードは、TPNGObjectの元の作成者による例からのものであり、embercardoのWebサイトからダウンロードされました。KeyWordには、tEXtチャンクの値（この場合はコメント）が含まれています。テキストには、必要なテキストが含まれています。これはAnsiStringであり、区切りがあるはずですが、AnsiStringからUnicodeにキャストすると、それらは失われ、行の終わりと始まりの間にスペースさえない1つの文字列になります。

デバッガーをステップスルーすると、各行が一重引用符で囲まれ、行の間に＃$ Aがあります。これは、16進数でチェックインした場合に何らかの制御文字であると想定しています。

comment = PunkBusterスクリーンショット（ñ）BF3レベル/ MP_017 / MP_017'＃$ A'1135998 31.204.131.11：25530 GoTBF3.nl＃4 | 32p | TDM運河のみ| 500チケット'＃$ A'geawtaw46y4w63a46a34643a BorislavFatsolka'＃$ A'試行：w = 320 X h = 240 at（x = 50％、y = 50％）'＃$ A'結果：w = 320 X h=200サンプル= 1 '

サンプル画像 http://www.pbbans.com/pbss_evidence/bf3/31.204.131.11:25530/5d00a95d22fae4a287bd510c076db1bf-2e36c3b4.png これがサンプルです。私がやっていることは、パンクバスターの画像からデータを読み取って、コミュニティデータベースで検索できるようにすることです。ただし、画像とIDの横に情報を表示して、改行したり、行がいつ終了するかを確認したりします。

メモや文字列リストに直接配置すると、次のようにすべて1行になります。

comment = PunkBusterスクリーンショット（ñ）BF3レベル/MP_017/MP_017113599831.204.131.11:25530 GoTBF3.nl＃4 | 32p | TDM運河のみ| 500チケット*geawtaw46y4w63a46a34643a* BorislavFatsolka試行：w = 320 X h = 240 at（x = 50％、y = 50％）結果：w = 320 X h=200サンプル=1

質問

元の画像からのものであるこのansistringを処理するための最良の方法は何ですか、またはTPNGImageには実際の選択肢はありません。ブレークをそのままにして、メモ、リッチエディット、または文字列リストに入れます。

最初に頭に浮かぶのはおそらく非効率的であり、それをバイト配列などに入れて、行マークの終わりで各行をバイトごとにカットして読み取るだけです。

例からのより多くのデータ 例の画像をダウンロードすることでこれを見ることができるはずですが、これは16進エディターでの外観です（ファイルの最初の部分はそのまま、pngヘッダー、tEXtチャンクヘッダーキーワードなど）。

‰PNG........IHDR...Ž...2.....ûŒÆ$....tEXtcomment.PunkBuster Screenshot (ñ) BF3  Levels/MP_017/MP_017.1135998 31.204.131.11:25530 GoTBF3.nl #4 | 32p | TDM Canals Only | 500 Tickets.*geawtaw46y4w63a46a34643a* BorislavFatsolka.Attempted: w=320 X h=240 at (x=50%,y=50%).Resulting: w=320 X h=200 sample=1.

89 50 4E 47 0D 0A 1A 0A 00 00 00 0D 49 48 44 52 00 00 02 8E 00 00 01 32 08 02 00 00 00 FB 8C C6 24 00 00 01 03 74 45 58 74 63 6F 6D 6D 65 6E 74 00 50 75 6E 6B 42 75 73 74 65 72 20 53 63 72 65 65 6E 73 68 6F 74 20 28 F1 29 20 42 46 33 20 20 4C 65 76 65 6C 73 2F 4D 50 5F 30 31 37 2F 4D 50 5F 30 31 37 0A 31 31 33 35 39 39 38 20 33 31 2E 32 30 34 2E 31 33 31 2E 31 31 3A 32 35 35 33 30 20 47 6F 54 42 46 33 2E 6E 6C 20 23 34 20 7C 20 33 32 70 20 7C 20 54 44 4D 20 43 61 6E 61 6C 73 20 4F 6E 6C 79 20 7C 20 35 30 30 20 54 69 63 6B 65 74 73 0A 2A 67 65 61 77 74 61 77 34 36 79 34 77 36 33 61 34 36 61 33 34 36 34 33 61 2A 20 42 6F 72 69 73 6C 61 76 46 61 74 73 6F 6C 6B 61 0A 41 74 74 65 6D 70 74 65 64 3A 20 77 3D 33 32 30 20 58 20 68 3D 32 34 30 20 61 74 20 28 78 3D 35 30 25 2C 79 3D 35 30 25 29 0A 52 65 73 75 6C 74 69 6E 67 3A 20 77 3D 33 32 30 20 58 20 68 3D 32 30 30 20 73 61 6D 70 6C 65 3D 31 0A

その他の結果 チャンク（PngVar.Chunks.item [n] .SaveToStream）をダンプすると、基本的に16進エディターで見つけたものが得られます。制御文字は0Aです。＃$ Aが変換前か後かはわかりませんが、pngimageコードが原因である可能性があります。

4

2 に答える 2

2

試す：

memo1.lines.add(KeyWord+'='+StringReplace(Text,#10,sLineBreak,[rfReplaceAll]));
于 2013-01-25T05:30:31.300 に答える
1

別のアプローチはJediCodeLibです

sl := TJclStringList.Create;
sl.Split(Text, #10);
sl[0] := 'Keyword=' +sl[0]
memo1.lines.AddStrings(sl);
sl.Free;
于 2013-01-25T07:42:14.193 に答える