原创 c實現AES 128位加解密
//對應java的SecureRandom隨機密鑰 bool sha1prng_key(string str,char *out) { unsigned char result[20]; SHA1((unsigned char*)
2020-07-08 01:39:13
15
原创 神經網絡如何根據輸出信號判斷樣本類別？
人類認識、熟悉某些事物，就是一個分類的過程，比如認識一個人，包括：不同的照片、本人形象（變化的身高、體重、髮型、服裝）等，圖像信息通過眼睛進入大腦，不斷的更新記憶，形成對該人的一個確定印象模式，從而再次見到時立即能夠識別出來。 神經網絡的
2020-06-15 13:53:32
1
原创 樹莓派 RGB led wata
某寶淘到RGB Led幾隻，查看售後說明，共陽，最長一根爲高電平（3v3、5v），其他爲GPIO（控制高低電平）輸入，瞬間點亮，心情大好（之前測試雙74HC595驅動芯片共陽4位段選數碼管一直失敗）。代碼參考coolwriter大神文
2019-03-03 16:04:46
7
原创 樹莓派+溫控+風扇+wata
購進樹莓派3b+，把玩開始，安裝centos版本，速度較慢，卸載之，安裝了官方提供的debian arm版，運行效果不錯，陸續在某寶上購進J13009三極管（做開關用），管腳說明，面對有文字說明的一面，從左到右：B C E，1k電容（
2019-03-03 16:04:46
2
原创 python3.6+django+uwsgi+nginx+wata
參考一些前輩文章，不一一列舉，在此感謝！ 1單獨安裝python3.6，不要動系統中原來的python 使用make altinstall 2安裝Django cd /user/local/python/bin ./pip3.6 inst
2019-02-20 17:26:00
1
原创 UniDAC55在DelphiXE7中的使用說明
本文參考了各路大神文章，在這裏表示感謝，項目要求連接oracle數據庫，不安裝oracle客戶端，同時支持32位和64位應用程序，試驗多次整理而成。 1、執行\UniDAC55src\Source\Delphi21\Make.bat。2、
2018-08-26 01:13:00
8
原创 歡迎使用CSDN-markdown編輯器
歡迎使用Markdown編輯器寫博客 本Markdown編輯器使用StackEdit修改而來，用它寫博客，將會帶來全新的體驗哦： Markdown和擴展Markdown簡潔的語法 代碼塊高亮 圖片鏈接和圖片上傳 LaTex數學公式 UM
2018-08-26 01:13:00
4
原创 ie下jpg轉base64編碼
function GetBase64_IE(photoFileName) {var xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");//IE瀏覽器支持的創建方式xmlHttp.open("
2018-08-26 01:13:00
原创 delphi7 ide擴展，類似vc6，通過編譯指令控制多項目工程編譯輸出
參考《Delphi Open Tools Api實例研究（一）》http://www.xuebuyuan.com/zh-tw/1275460.html，在此特別表示感謝！！！ //本單元文件，根據compile.inc編譯指令文件中的不
2018-08-26 01:13:00
12
原创 delphiXE webbroker 開發,解決 Response 返回中文亂碼問題
procedure TWebModule1.WebModuleBeforeDispatch(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Hand
2018-08-26 01:13:00
2
原创 firefox下jpg轉base64編碼
//參考了某位大蝦的文章，暫時找不到源址，請見諒，分享快樂！ function GetBase64_FF(photoFileName) { var req = new XMLHttpRequest();//FireFox、Opera等瀏覽
2018-08-26 01:13:00
1
原创 使用存儲過程參數傳遞BLOB字段時，大小不能超過32K
使用存儲過程參數傳遞BLOB字段時，大小不能超過32K，如果要傳送大數據，通常的做法是使用sql語句參數傳遞的方式： dmmain.SQLQuery1.SQL.Add('insert into id_pic_000(sno,pic) va
2018-08-26 01:13:00
2
原创 delphiXE 使用json對象時只釋放容器對象即可，子對象不用釋放，釋放子對象會出現異常。
var aa: TJsonArray; bb, cc: TJSONObject; i, j, k: integer; begin //for i := 0 to 1000 do beg
2018-08-26 01:12:58
2