网络识图，delphi识别，百度图片
1、放置2个button，2个edit，2个image
2、button1的过程
var
ms:TMemoryStream;
jpg:TJPEGImage;
begin
try
jpg:=TJPEGImage.Create;
ms:=TMemoryStream.Create;
idhtp1.Get(edt1.Text,ms);
ms.Position:=0;
jpg.LoadFromStream(ms);
img1.Picture.Assign(jpg);
jpg.SaveToFile('c:\123.jpg');
except
ms.Free;
end;
3、button2的过程，即是识别图片过程，这个过程完全模拟百度上传图片识别
var
i:Integer;
pd:tstringlist;
s,sName,sUrljpg:string;
ms,ms1:TStringStream;
jpg:TJPEGImage;
// Cookies : TIdCookieManager;
mstrCookie: string;
begin
try
jpg:=TJPEGImage.Create;
ms:=TStringStream.Create('');
ms1:=TStringStream.Create('');
img1.Picture.Bitmap.SaveToStream(ms);
idhtp1.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.3; WOW64; Trident/7.0; rv:11.0) like Gecko';
idhtp1.Request.AcceptLanguage:='zh-Hans-CN,zh-Hans;q=0.8,en-US;q=0.7,en;q=0.5,es-DO;q=0.3,es;q=0.2';
begin
s:=(idhtp1.Post('http://image.baidu.com/pictureup/uploadshitu?'
+'fr=flash&fm=index&pos=upload',mps));
s:=(idhtp1.Get('http://image.baidu.com'+s));
sName:=GetStringBetween(s,'guessWord','.split') ;
sName:=Trim(StringReplace (sName,'''',
'', [rfReplaceAll]));
sName:=Trim(StringReplace (sName,':',
'', [rfReplaceAll]));
sUrljpg:=GetStringBetween(s,'<img class="guess-newbaike-left-img" src="','<div class="guess-newbaike-left-similarity">') ;
sUrljpg:=Trim(StringReplace (sUrljpg,'amp;',
'', [rfReplaceAll]));
sUrljpg:=Trim(StringReplace (sUrljpg,'</div>',
'', [rfReplaceAll]));
sUrljpg:=Trim(StringReplace (sUrljpg,'">',
'', [rfReplaceAll]));
// sUrljpg:=TIdURI.URLDecode(sUrljpg);
idhtp1.Request.UserAgent := '';
mstrCookie := 'aaa=5555&bb=12345';
idhtp1.Request.AcceptEncoding := '';
if mstrCookie <> '' then
begin
idhtp1.Request.CustomHeaders.Add('Cookie: ' + mstrCookie);
end;
idhtp1.Request.Referer:='https://www.baidu.com';
idhtp1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.3; WOW64; Trident/7.0; rv:11.0) like Gecko';
idhtp1.Get(sUrljpg,ms1);
ms1.Position:=0;
jpg.LoadFromStream(ms1);
img2.Picture.Assign(jpg);
edt2.Text:='我猜您的图片是:'+Utf8ToAnsi(sName);
// ShowMessage(sUrljpg);
end;
except
MPS.Free;
ms.Free;
ms1.Free;
end;
4、必要的过程，取字符串与字符串中间的字符
function GetStringBetween(const FullStr, StrLeft, StrRight: String): string;
var
idx_Start,idx_End,iStrCnt: Integer;
begin
Result:='';
idx_Start := Pos(StrLeft,FullStr)+Length(StrLeft);
idx_End:= Pos(StrRight,FullStr);
iStrCnt:= idx_End - idx_Start;
Result:=Copy(FullStr,idx_Start,iStrCnt);
end;
