摘要：
本文参考了http://superlevin.ifengyuan.tw/delphi-change-vcl-style/在项目的工程文件中勾选主题，设置缺省主题为Windows部分代码如下：uses Vcl.Themes;procedure TfrmMain.Button1Click(Sender: TObject);begin TStyleManager.SetStyle(ComboBox1.Text);end;procedure TfrmMain.FormCreate(Sender: TObject);Var StyleName : string;begin ComboBox1.I... 阅读全文
摘要：
试过了MSSQL的分块读取Blob字段，又尝试在Oracle下完成，发现还是可行的。首先建立一个存储过程：create or replace procedure PRO_GET_BLOB( I_PKGID IN INTEGER, --文件ID I_MOUNT IN INTEGER, --复制数据数量（Byte） I_OFFSET IN INTEGER, --起始位置 B_RESULT IN OUT BLOB) --返还结果 is B_TEMP BLOB; begin --将BLOB数据读取到变量，其实是传递了一个指针 SELECT FILE_DATA INTO B_TEMP F... 阅读全文