易語(yǔ)言采集淘寶數(shù)據(jù)怎么寫,易語(yǔ)言網(wǎng)頁(yè)采集教程?

大家好,我是公眾號(hào)3分鐘學(xué)堂的郭立員~

前段時(shí)間發(fā)過(guò)一篇文章是關(guān)于中文識(shí)別的api接口,接口是別人免費(fèi)放出來(lái)的,可是這段時(shí)間看留言,接口已經(jīng)廢了。。。

既然已經(jīng)廢了,那就就用百度飛漿做個(gè)本地識(shí)別吧;

先到網(wǎng)上找個(gè)現(xiàn)成的源碼,源碼是易語(yǔ)言,并且有現(xiàn)成的封裝軟件,我們可以直接用,運(yùn)行效果如下圖所示:


我們是在安卓端,所以并不用這個(gè),而是用它開(kāi)啟的接口:


在這四種方式中,我們選擇第4種方式:

把圖片轉(zhuǎn)成base64數(shù)據(jù)傳到電腦上,還有一點(diǎn)需要注意的是ip問(wèn)題,在示例中ip是127.0.0.1這是電腦本地ip,在按鍵上要使用ipv4地址;


接口地址:http://192.168.1.5:19811/ocr_data_2

這ip不要直接用,每個(gè)人的電腦不一定一樣。

關(guān)于涉及到的命令,大家直接看文末的代碼:

測(cè)試效果:



按鍵精靈安卓版代碼如下:使用代碼記得更換你自己電腦ip

Import "shanhai.lua"
Dim ret,json
Dim path="/sdcard/pictures/pic.png"
SnapShot path,31,136,499,387
Dim data=shanhai.ReadFileBase(path)
Do
    json = URL.Post("http://192.168.1.5:19811/ocr_data_2", data)
    If Len(json) > 0 Then 
        ret= shanhai.Unicode2Utf8(json)
        Exit Do
    End If
    Delay 1000
Loop
TracePrint ret
Dim tb=encode.JsonToTable(ret)
For Each k In tb["PaddleOCR"]
  TracePrint k["ttxt"]
Next


=正文完=

好了,這篇文章的內(nèi)容發(fā)貨聯(lián)盟就和大家分享到這里,如果大家網(wǎng)絡(luò)推廣引流創(chuàng)業(yè)感興趣,可以添加微信:80709525  備注:發(fā)貨聯(lián)盟引流學(xué)習(xí); 我拉你進(jìn)直播課程學(xué)習(xí)群,每周135晚上都是有實(shí)戰(zhàn)干貨的推廣引流技術(shù)課程免費(fèi)分享!


版權(quán)聲明:本文內(nèi)容由互聯(lián)網(wǎng)用戶自發(fā)貢獻(xiàn),該文觀點(diǎn)僅代表作者本人。本站僅提供信息存儲(chǔ)空間服務(wù),不擁有所有權(quán),不承擔(dān)相關(guān)法律責(zé)任。如發(fā)現(xiàn)本站有涉嫌抄襲侵權(quán)/違法違規(guī)的內(nèi)容, 請(qǐng)發(fā)送郵件至 sumchina520@foxmail.com 舉報(bào),一經(jīng)查實(shí),本站將立刻刪除。

您可能還會(huì)喜歡:

發(fā)表評(píng)論

◎歡迎參與討論,請(qǐng)?jiān)谶@里發(fā)表您的看法、交流您的觀點(diǎn)。