原创 rtsp視頻源的播放
一些攝像頭品牌支持rtsp地址的視頻預覽，但是其SDK沒有rtsp方式的視頻播放，（海康大華的SDK是有的，一些新進的小品牌是沒有的，），因此這段時間就嘗試讀取 這裏我臨時使用海康的攝像頭作爲視頻信號來源： rtsp://admin:ab
2020-02-20 15:39:09
2
原创 模塊多條碼掃描程序（工業相機）
之前看到邁德威視做的一個多條碼掃描程序，軟件+硬件(2000萬像素相機+鏡頭+光源)單個售價快2.5萬（含稅），有點小貴。 其功能就是靜態掃描圖片中的多個二維碼，並按指定順序將結果發送到第三方的程序中（就是下圖這個）。 我這邊增加了一些
2020-02-20 15:39:08
原创 海康SDK基礎工作--高清工位檢查
好幾年沒有碰海康的東西了，當前海康的SDK也已經升級到6.0版本了， 花了兩天的時間重新看了一下以前的關於SDK的東西，轉換了一下HCNetSDK.h裏的常量部分，話說Delphi真的是越來越不流行了，要調用海康SDK得轉換頭文件，繁瑣得
2019-08-28 13:34:57
原创 新篇章
我覺得工作得快樂，得有成就感，特別是不怎麼賺錢的工作更是需要有這些，否則就換更賺錢的工作，看在錢的份上，勉強一下自己吧，^_^ 我現在做的就是一份不怎麼賺錢的工作，買不了房，換不了車，拉了行業平均水平，萬
2019-08-25 13:34:08
原创 create_local_deformable_model (Operator)
create_local_deformable_model (Operator) Name create_local_deformable_model — Creates a deformable model for local, def
2019-06-20 13:32:10
16
原创 定時器Timer
Timer procedure TForm1.btn1Click(Sender: TObject); begin tmr1.interval:=1000; tmr1.Enabled:=True; mmo1.Lines.Add(
2018-09-03 18:40:07
原创 EDOfficeLib_TLB
unit EDOfficeLib_TLB; // ************************************************************** // // WARNING // ——- // The
2018-09-03 18:40:07
26
原创 ADOConnection
var ts:TStringList; ts:=TStringList.Create; AdoConnection1.ConnectionString := '數據庫連接字符串'; AdoConnection1.Connected :=
2018-09-03 18:40:05
原创 文件文件夾路徑
//非空文件夾刪除 uses ShellApi； function DelDirectory(const Source: string): boolean; var fo: TSHFILEOPSTRUCT; begin FillC
2018-09-03 18:40:05
原创 halcon標定板製作
gen_caltab(::XNum,YNum,MarkDist,DiameterRatio,CalTabDescrFile,CalTabPSFile :) 算子來製作一個標定板 XNum
2018-09-03 18:40:05
原创 idhttp控件Post含中文返回值的解析
使用indy中的idhttp控件在D7和XE平臺下，對於接收含中文返回值的解析 網頁使用的是UTF8 參考代碼來源 http://bbs.csdn.net/topics/391077242 http://www.cnblogs.c
2018-09-03 18:40:05
原创 一些常用的第三方控件
1、UniDAC：通用數據訪問組件，是一個組件庫，提供了直接訪問Oracle，Microsoft SQL Server，MySQL，InterBase，Firebird，PostgreSQL，SQLite，DB2，Microsoft Ac
2018-09-03 18:40:05
原创 web/移動端控件
OrangeUI： 支持全平臺（IOS、Android、Mac、Windows）全設備，一個界面到處運行，免費卻又強大的UI控件 http://www.orangeui.cn/index.php WebPascal： WebPas
2018-09-03 18:40:05
原创 idftp
//連接FTP var i:integer; tr : Tstrings; IdFTP1.Quit; tr := TStringlist.Create; IdFTP1.Host := hostTxt.Text;
2018-09-03 18:40:05
原创 CheckBox
勾選設置CheckBox的Checked屬性時，不觸發OnClick事件 procedure SBPort1Click(Sender: TObject); begin if not TCheckBox(Sender).Focused
2018-09-03 18:40:05