怎样进行图象识别？（过江项羽）

luhongjun 2002-07-23 02:53:58

以前灌水，有网友做了一个《水军提督》软件，里面把图象变成字符图象。这是怎样实现的？做过的网友希望不吝指教，学生这里有礼了，没作过的帮想想办法。没有时间也没做过的，帮住推推帖子，贴主再此表示感谢。

...全文

116 30 打赏收藏转发到动态举报

写回复

用AI写文章

30 条回复

切换为时间正序

请发表友善的回复…

发表回复

「已注销」 2002-07-24

打赏
举报

关注吧

lining_cumt985 2002-07-24

打赏
举报

做个标记。

abomb 2002-07-24

打赏
举报

UP、UP，高手出招，就是不一样哇

luhongjun 2002-07-24

打赏
举报

问题这么快就解决了，谢谢朋友们的帮助。
尤其感谢ALNG(?) 兄的鼎立帮忙。

Canvas 2002-07-24

打赏
举报

热闹

wangxd 2002-07-24

打赏
举报

够了

勉励前行 2002-07-24

打赏
举报

向這麼多位學習，學習。

孩皮妞野 2002-07-24

打赏
举报

测试通过。

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Memo1->Font->Name="Fixedsys";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(OpenDialog1->Execute()){
Graphics::TBitmap * bmp = new Graphics::TBitmap;
try{
bmp->LoadFromFile(OpenDialog1->FileName);
ConvertToText(bmp,Memo1->Lines);
}catch(...){
ShowMessage("Error proccessing the file!");
}
delete bmp;
}

}
//---------------------------------------------------------------------------
void TForm1::ConvertToText( const Graphics::TBitmap *const bmp, TStrings * sl)
{
static char *map="#M@HX$%+/;:=-,. ";

sl->Clear();
Graphics::TBitmap * tmp = new Graphics::TBitmap;
tmp->Assign(const_cast<Graphics::TBitmap *>(bmp));
tmp->PixelFormat = pf24bit;
for (int y = 0; y < tmp->Height; y++)
{
String s;
BYTE *ptr =(BYTE *) tmp->ScanLine[y];
for (int x = 0; x < tmp->Width*3; x+=3){
long Gray=(30*ptr[x+2]+59*ptr[x+1]
+11*ptr[x])/1594;
s += map[Gray];
}
sl->Add(s);
}
delete tmp;

}
//---------------------------------------------------------------------------

wjzhuang 2002-07-24