原创 Delphi SuperObject 字符串增加到數組

var     aJson, bJson: ISuperObject;     aSuperArray: TSuperArray;  begin             aJson := SO(CodeStr);            

原创 ACCESS的truncate正確姿勢

ACCESS這老玩意不支持truncate,網絡上大多是Alter TABLE UserTB Alter COLUMN [ID] COUNTER(1,1) 執行過程中會提示 “無效的字段數據類型” 反覆嘗試,問題點是出在不能一次提交,需要

原创 DataSnap

看到網友的觀點,切下來做個記號,最近研習 我補充一點點: 我買過李維的所有的書。通過李維的書入門多層架構後,也在幾個比較大的項目上實際運用過。談談我的實際經驗。 1. COM Based 的架構:其實這種架構,如果採用 COM ,效率是非

原创 我的中間層開發,我的 DataSnap

歷史篇 DataSnap 和 MIDAS 應用程式和資料庫的關係演變 為什麼要用 DataSnap?--兩層的優缺點 為什麼要用 DataSnap?--DataSnap 解決兩層問題的方法 緣起篇 一層非常好用,BDE 的採用 新奇的技術

原创 DataSnap之000

剛開始接觸DataSnap,跟着李維老溼的[DelphiXE2DataSnap開發實戰篇_李維]做個DEMO可是卡在測試的URL上了,如下: http://localhost:8080/DataSnap/Rest/TServerMetho

原创 鼠標指針的隱藏

問題來源於 ComBox.DroppedDown := True;這樣可以彈出下拉框,但鼠標指針會消失,嘗試使用ShowCursor(False); //隱藏光標ShowCursor(True); //顯示光標SendMessage(Co

原创 C# 調用C結構體

 C++dll函數代碼如下: 結構體原形: typedef struct MY_DATA { int DataFlag; char *DataBuff; } MY_DATATYPE; 結構體變量聲明賦值: