截圖模塊代碼
.版本 2.子程序 開始截圖, 邏輯型, 公開, 截圖成功返回真,圖片被自動保存到剪貼板。失敗或放棄截圖則返回假。.參數 是否截取鼠標, 邏輯型, 可空.參數 調節框顏色, 整數型, 可空, 默認:Red=10,Green=100,Blue=130 .參數 矩形信息框顏色, 整數型, 可空, 默認黑色.參數 矩形信息字體顏色, 整數型, 可空, 默認黑色.子程序 取剪貼板位圖, 字節集, 公開
表格圖片轉表格源碼
此功能需要加載精易模塊5.6
.版本 2.支持庫 edroptarget.支持庫 shellEx.支持庫 eImgConverter.支持庫 iext.支持庫 EThread.支持庫 spec.支持庫 HtmlView.程序集 窗口程序集_啟動窗口.程序集變量 request_id, 文本型.程序集變量 壓縮率, 整數型.程序集變量 路徑, 文本型.程序集變量 a, 整數型.子程序 __啟動窗口_創建完畢拖放對象1.注冊拖放控件 (取窗口句柄 ())a = 注冊熱鍵 (取窗口句柄 (), 標簽1.取窗口句柄 (), 0, #F4鍵)文件_刪除 (取運行目錄 () + “/123.jpg”)壓縮率 = 滑塊條1.位置編輯框1.內容 = 讀配置項 (取運行目錄 () + “/表格配置.ini”, “配置”, “Token”, ).子程序 _拖放對象1_得到文件.參數 接收到的文件路徑, 文本型路徑 = 接收到的文件路徑轉換到JPG (接收到的文件路徑, 取運行目錄 () + “/123.jpg”, 假, 壓縮率, 真, 0)處理事件 ()圖片框1.圖片 = 讀入文件 (取運行目錄 () + “/123.jpg”)透明標簽1.標題 = 到文本 (取字節集長度 (圖片框1.圖片)).子程序 _滑塊條1_位置被改變壓縮率 = 滑塊條1.位置轉換到JPG (路徑, 取運行目錄 () + “/123.jpg”, 假, 壓縮率, 真, 0)處理事件 ()圖片框1.圖片 = 讀入文件 (取運行目錄 () + “/123.jpg”)透明標簽1.標題 = 到文本 (取字節集長度 (圖片框1.圖片)).子程序 _標簽1_反饋事件, 整數型.參數 參數一, 整數型.參數 參數二, 整數型.局部變量 jpg, 字節集.如果真 (參數一 = a) .如果真 (開始截圖 ()) 滑塊條1.禁止 = 真 路徑 = 取運行目錄 () + “/1234.jpg” 寫到文件 (路徑, 剪輯板_取圖片 (取窗口句柄 ())) 處理事件 () 圖片_轉換 (讀入文件 (取運行目錄 () + “/1234.jpg”), 2, 取運行目錄 () + “/123.jpg”, jpg) 處理事件 () 圖片框1.圖片 = 讀入文件 (取運行目錄 () + “/123.jpg”) 透明標簽1.標題 = 到文本 (取字節集長度 (圖片框1.圖片)) .如果真結束.如果真結束.子程序 _按鈕1_被單擊編輯框1.可視 = 假.如果真 (取字節集長度 (圖片框1.圖片) = 0) _啟動窗口.標題 = “拖入圖片再轉換” 返回 ().如果真結束.如果真 (取字節集長度 (圖片框1.圖片) > 150000) .如果真 (信息框 (“當前圖片較大,轉換時間較長”, 1, , _啟動窗口) = #取消鈕) 返回 () .如果真結束.如果真結束按鈕1.禁止 = 真滑塊條1.禁止 = 假圖片框2.可視 = 真_啟動窗口.標題 = “正在上傳圖片”啟動線程 (&上傳圖像, , ).子程序 上傳圖像.局部變量 地址, 文本型.局部變量 數據, 文本型.局部變量 圖片, 文本型.局部變量 Json, 類_json.局部變量 str, 文本型.局部變量 返回, 文本型.局部變量 jpg, 字節集圖片框2.圖片 = 讀入文件 (“C:/Users/wyz/Desktop/ICO/timg (1).gif”)圖片 = 編碼_URL編碼 (編碼_BASE64編碼 (圖片框1.圖片), 真, 真)地址 = “https://aip.baidubce.com/rest/2.0/solution/v1/form_ocr/request?access_token=” + 編輯框1.內容數據 = “image=” + 圖片 + “&”返回 = 到文本 (網頁_訪問 (地址, 1, 數據)).如果真 (尋找文本 (返回, “Access token expired”, , 假) ≠ -1) _啟動窗口.標題 = “訪問令牌已過期” 圖片框2.可視 = 假 按鈕1.禁止 = 假.如果真結束.如果真 (尋找文本 (返回, “Access token invalid or no longer valid”, , 假) ≠ -1) _啟動窗口.標題 = “訪問令牌無效或不再有效” 圖片框2.可視 = 假 按鈕1.禁止 = 假.如果真結束Json.解析 (返回)str = Json.取通用屬性 (“result[0].request_id”, 真)request_id = 文本_替換 (str, , , , #引號, “”).如果真 (request_id ≠ “”) _啟動窗口.標題 = “正在處理,請稍等” 啟動線程 (&分析圖像, , ).如果真結束.子程序 分析圖像.局部變量 地址1, 文本型.局部變量 數據1, 文本型.局部變量 選擇, 文本型.局部變量 返回1, 文本型.局部變量 Json1, 類_json.局部變量 str1, 文本型地址1 = “https://aip.baidubce.com/rest/2.0/solution/v1/form_ocr/get_request_result?access_token=” + 編輯框1.內容數據1 = “request_id=” + request_id + “&result_type=excel&”返回1 = 到文本 (網頁_訪問 (地址1, 1, 數據1))返回1 = 編碼_URL解碼 (返回1, 真)調試輸出 (返回1).如果真 (尋找文本 (返回1, “未開始”, , 假) ≠ -1) 程序_延時 (3000) 啟動線程 (&分析圖像, , ) 返回 ().如果真結束.如果真 (尋找文本 (返回1, “進行中”, , 假) ≠ -1) 程序_延時 (3000) 啟動線程 (&分析圖像, , ) 返回 ().如果真結束.如果真 (尋找文本 (返回1, “image recognize error”, , 假) ≠ -1) _啟動窗口.標題 = “不屬于表格圖像” 圖片框2.可視 = 假 按鈕1.禁止 = 假 返回 ().如果真結束Json1.解析 (返回1)str1 = 文本_替換 (Json1.取通用屬性 (“result.result_data”, 真), , , , #引號, “”)_啟動窗口.標題 = “圖像分析完成”按鈕1.禁止 = 假圖片框2.可視 = 假超文本瀏覽框1.地址 = str1文件_刪除 (取運行目錄 () + “/123.jpg”)文件_刪除 (取運行目錄 () + “/1234.jpg”).子程序 __啟動窗口_被雙擊, 邏輯型.參數 橫向位置, 整數型.參數 縱向位置, 整數型.參數 功能鍵狀態, 整數型編輯框1.可視 = 真.子程序 _圖片框1_被雙擊, 邏輯型.參數 橫向位置, 整數型.參數 縱向位置, 整數型.參數 功能鍵狀態, 整數型.如果真 (取字節集長度 (圖片框1.圖片) = 0) 返回 ().如果真結束載入 (窗口1, , 假).子程序 __啟動窗口_將被銷毀文件_刪除 (取運行目錄 () + “/123.jpg”)文件_刪除 (取運行目錄 () + “/1234.jpg”).子程序 _編輯框1_內容被改變寫配置項 (取運行目錄 () + “/表格配置.ini”, “配置”, “Token”, 編輯框1.內容)
運行結果:
總結
以上就是這篇文章的全部內容了,希望本文的內容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對VeVb武林網的支持。
新聞熱點
疑難解答