读书人

怎么获取图片里面的文字信息

发布时间: 2012-03-06 20:47:55 作者: rapoo

如何获取图片里面的文字信息
我用文本的方式打开个jpg文件 会出现大家所看到的乱码

我想得到的也是这些乱码 如何把这些乱码内容保存在个文本里起来 ?

我用MEMO loadfromfile只会得到个 ? 而已

[解决办法]
文本文件只能显示可见字符(ASCII码32以上的字符),要把二进制图像作为文本保存,可以转换为16进制字符保存,Delphi就是这样保存的。具体代码可参见以下:

Delphi(Pascal) code
procedure TForm1.Button1Click(Sender: TObject);var  si, so: TStream;  Buf: array[1..32] of Byte;  s: string;  Count, I, J: Integer;begin  si := TFileStream.Create('D:\VclLib\GdiplusDemo\Media\20041001.jpg', fmOpenRead);  so := TFileStream.Create('D:\VclLib\GdiplusDemo\Media\20041001.txt', fmCreate);  try    Count := 32;    while Count = 32 do    begin      Count := si.Read(Buf, 32);      s := '';      for I := 0 to Count - 1 do        s := s + IntToHex(Buf[I], 2);      s := s + #13 + #10;      so.Write(s[1], Count * 2 + 2);    end;  finally    si.Free;    so.Free;  end;end;
[解决办法]
将文件读到 TMemoryStream中,然后搜索 Date

读书人网 >.NET

热点推荐