更新动态库

This commit is contained in:
2024-07-11 13:49:36 +08:00
parent 97a753593e
commit fe3445e419
20 changed files with 76 additions and 29 deletions
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
Binary file not shown.
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
@@ -36,7 +36,7 @@ object bconfig_cmd_shower:t_bconfig_cmd_shower
align=alclient align=alclient
autogutterwidth=true autogutterwidth=true
caption="memo1" caption="memo1"
height=166 height=211
left=0 left=0
readonly=true readonly=true
top=0 top=0
@@ -1,19 +1,19 @@
object ed_script:t_compile_config object ed_script:t_compile_config
caption="编译选项设置" caption="编译选项设置"
height=634 height=681
left=618 left=618
minmaxbox=false minmaxbox=false
onclose=compile_config_close onclose=compile_config_close
top=180 top=180
width=502 width=502
wssizebox=false wssizebox=true
object bt_ok:tbtn object bt_ok:tbtn
caption="确定" caption="确定"
height=31 height=31
left=408 left=405
onclick=bt_ok_clk onclick=bt_ok_clk
parentcolor=false parentcolor=false
top=551 top=582
width=55 width=55
end end
object gp_dir:tgroupbox object gp_dir:tgroupbox
@@ -253,17 +253,17 @@ object ed_script:t_compile_config
object bt_cancel:tbtn object bt_cancel:tbtn
caption="取消" caption="取消"
height=31 height=31
left=335 left=332
onclick=bt_cancel_clk onclick=bt_cancel_clk
top=551 top=582
width=55 width=55
end end
object gp_other:tgroupbox object gp_other:tgroupbox
caption="其他" caption="其他"
height=100 height=129
left=28 left=27
parentcolor=true parentcolor=true
top=442 top=440
width=437 width=437
object ck_gui:tcheckbtn object ck_gui:tcheckbtn
caption="gui" caption="gui"
@@ -290,30 +290,44 @@ object ed_script:t_compile_config
end end
object lb_ico:tlabel object lb_ico:tlabel
left=17 left=17
top=64 top=59
width=39 width=66
height=25 height=25
caption="图标" caption=" 图 标:"
end end
object ed_ico:tedit object ed_ico:tedit
caption="edit3" caption="edit3"
height=25 height=25
left=63 left=94
top=64 top=58
width=249 width=277
end end
object bt_ico:tbtn object bt_ico:tbtn
caption="..." caption="..."
height=25 height=25
left=319 left=386
onclick=bt_ico_clk onclick=bt_ico_clk
top=64 top=58
width=22 width=22
end end
object l_namespace:tlabel
left=17
top=93
width=75
height=25
caption="namespace:"
end
object e_namespace:tedit
caption="edit1"
height=25
left=94
top=93
width=278
end
end end
object f_op:topenfileadlg object f_op:topenfileadlg
left=68 left=15
top=553 top=575
height=30 height=30
width=30 width=30
caption="openfileadlg1" caption="openfileadlg1"
@@ -346,9 +360,9 @@ object ed_script:t_compile_config
object bt_cmd:tbtn object bt_cmd:tbtn
caption="命令行" caption="命令行"
height=31 height=31
left=202 left=208
onclick=bt_cmd_clk onclick=bt_cmd_clk
top=551 top=582
width=92 width=92
end end
end end
+17 -5
View File
@@ -45,6 +45,8 @@ type t_compile_config=class(tdcreateform)
ed_tsg:tedit; ed_tsg:tedit;
bt_tsgadd:tbtn; bt_tsgadd:tbtn;
bt_cmd:tbtn; bt_cmd:tbtn;
l_namespace:tlabel;
e_namespace:tedit;
function Create(AOwner);override; //构造 function Create(AOwner);override; //构造
begin begin
f_sep := iofileseparator(); f_sep := iofileseparator();
@@ -114,6 +116,7 @@ type t_compile_config=class(tdcreateform)
ck_gui.Checked := r["buildgui"] ; ck_gui.Checked := r["buildgui"] ;
ed_ico.text := r["buildico"]; ed_ico.text := r["buildico"];
ed_tsg.text := r["pkg"]; ed_tsg.text := r["pkg"];
e_namespace.text := r["nspace"];
//ck_s_rp.Checked := r["resourcekeepdir"]; //ck_s_rp.Checked := r["resourcekeepdir"];
end end
function get_config(); function get_config();
@@ -138,7 +141,8 @@ type t_compile_config=class(tdcreateform)
r["buildgui"] := ck_gui.Checked; r["buildgui"] := ck_gui.Checked;
r["buildico"] := ed_ico.text; r["buildico"] := ed_ico.text;
r["resourcekeepdir"] := ck_s_rp.Checked; r["resourcekeepdir"] := ck_s_rp.Checked;
r["pgk"] := ed_tsg.text; r["pgk"] := trim(ed_tsg.text);
r["nspace"] := trim(e_namespace.text);
return r; return r;
end end
function clear_config();//清理 function clear_config();//清理
@@ -152,10 +156,11 @@ type t_compile_config=class(tdcreateform)
ed_s_dirs.text := ""; ed_s_dirs.text := "";
ed_s_type.text := ""; ed_s_type.text := "";
ed_include_s.text := ""; ed_include_s.text := "";
ck_strong.Checked := ""; ck_strong.Checked := false;
ck_gui.Checked := ""; ck_gui.Checked := false;
ed_ico.text := ""; ed_ico.text := "";
ck_s_rp.Checked := ""; ck_s_rp.Checked := false;
e_namespace.text := "";
flibpath := ""; flibpath := "";
end end
function bt_outputname_clk(o;e);virtual; function bt_outputname_clk(o;e);virtual;
@@ -395,6 +400,7 @@ type t_compile_config=class(tdcreateform)
function createoutputname(n); function createoutputname(n);
begin begin
tp := get_type(); tp := get_type();
sp := iofileseparator();
for i:= length(n) downto 1 do for i:= length(n) downto 1 do
begin begin
if n[i]="." and i>1 then if n[i]="." and i>1 then
@@ -403,7 +409,7 @@ type t_compile_config=class(tdcreateform)
break; break;
end end
end end
if not nv then nv := "."+iofileseparator()+"default"; if not nv then nv := "."+sp+"default";
return nv+tp; return nv+tp;
end end
function set_base_dir(v); function set_base_dir(v);
@@ -443,6 +449,12 @@ type t_compile_config=class(tdcreateform)
r +=format('--manifest="%s" ',d["buildfile"]+".manifest"); r +=format('--manifest="%s" ',d["buildfile"]+".manifest");
else r +=format('\r\n--manifest="%s" ',d["buildfile"]+".manifest"); else r +=format('\r\n--manifest="%s" ',d["buildfile"]+".manifest");
{$endif} {$endif}
if d["nspace"] then
begin
if r[length(r)]="\n" then r+=format("--setpkg2ns=%s ",d["nspace"]);
else
r+=format("\r\n--setpkg2ns=%s ",d["nspace"]);
end
return r; return r;
end end
function f_b_a_param(d,n); function f_b_a_param(d,n);
+4
View File
@@ -5104,6 +5104,10 @@ type TEditerEchoWnd=class(TSynMemoNorm) //
r +=format(' --manifest="%s" ',d["buildfile"]+".manifest"); r +=format(' --manifest="%s" ',d["buildfile"]+".manifest");
end end
{$endif} {$endif}
if d["nspace"] then
begin
r+=format("--setpkg2ns=%s ",d["nspace"]);
end
return r; return r;
end end
function f_b_a_param(d,n); function f_b_a_param(d,n);
Binary file not shown.
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
+17
View File
@@ -1,3 +1,20 @@
更新日志--------2024-07-10
升级:支持缺省加载tslpkg目录里的*.pkg.load包。
升级:TSL命令行支持--build=模式下将无命名空间的函数打包成指定namespace的函数。理论上多套应用包括同名公共函数均可以采用此模式独立打包。
升级:新增tslobjects函数获得内存里的对象信息,支持tslobjects(0)仅获得引用技术或者tslobjects(1)获得对象本身。
升级:LINUX下实现ts_moduleinfo。
升级:LINUX支持遇到严重错误时记录stacktrace以及模块信息等,和WINDOWS类似,但暂时未记录寄存器信息。
修正:极为特殊应用下的内核瑕疵。
修正:JDBC驱动链接模式下sqltable batchinsert时,在表无主键的情况下,生成SQL的列名时对列名的检测存在的问题。
修正:JDBC驱动链接模式下数据库中timestamp with time zone类型进行了修改,根据JVM中时区配置进行数据存取。
更新日志--------2024-07-08
修正:修正内核面向对象特殊应用的相关问题。
更新日志--------2024-07-05
升级:提供对obj.aaa++ --的支持,优化obj.aaa+=等的性能。
升级:UNIT中的变量和常量可能存调试器中手工输入变量输出的表现不正常的问题。
更新日志--------2024-07-02 更新日志--------2024-07-02
修正:TSL编辑器等本地调试因为协议升级造成的问题。 修正:TSL编辑器等本地调试因为协议升级造成的问题。