更新动态库

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
autogutterwidth=true
caption="memo1"
height=166
height=211
left=0
readonly=true
top=0
@@ -1,19 +1,19 @@
object ed_script:t_compile_config
caption="编译选项设置"
height=634
height=681
left=618
minmaxbox=false
onclose=compile_config_close
top=180
width=502
wssizebox=false
wssizebox=true
object bt_ok:tbtn
caption="确定"
height=31
left=408
left=405
onclick=bt_ok_clk
parentcolor=false
top=551
top=582
width=55
end
object gp_dir:tgroupbox
@@ -253,17 +253,17 @@ object ed_script:t_compile_config
object bt_cancel:tbtn
caption="取消"
height=31
left=335
left=332
onclick=bt_cancel_clk
top=551
top=582
width=55
end
object gp_other:tgroupbox
caption="其他"
height=100
left=28
height=129
left=27
parentcolor=true
top=442
top=440
width=437
object ck_gui:tcheckbtn
caption="gui"
@@ -290,30 +290,44 @@ object ed_script:t_compile_config
end
object lb_ico:tlabel
left=17
top=64
width=39
top=59
width=66
height=25
caption="图标"
caption=" 图 标:"
end
object ed_ico:tedit
caption="edit3"
height=25
left=63
top=64
width=249
left=94
top=58
width=277
end
object bt_ico:tbtn
caption="..."
height=25
left=319
left=386
onclick=bt_ico_clk
top=64
top=58
width=22
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
object f_op:topenfileadlg
left=68
top=553
left=15
top=575
height=30
width=30
caption="openfileadlg1"
@@ -346,9 +360,9 @@ object ed_script:t_compile_config
object bt_cmd:tbtn
caption="命令行"
height=31
left=202
left=208
onclick=bt_cmd_clk
top=551
top=582
width=92
end
end
+18 -6
View File
@@ -45,6 +45,8 @@ type t_compile_config=class(tdcreateform)
ed_tsg:tedit;
bt_tsgadd:tbtn;
bt_cmd:tbtn;
l_namespace:tlabel;
e_namespace:tedit;
function Create(AOwner);override; //构造
begin
f_sep := iofileseparator();
@@ -114,6 +116,7 @@ type t_compile_config=class(tdcreateform)
ck_gui.Checked := r["buildgui"] ;
ed_ico.text := r["buildico"];
ed_tsg.text := r["pkg"];
e_namespace.text := r["nspace"];
//ck_s_rp.Checked := r["resourcekeepdir"];
end
function get_config();
@@ -138,7 +141,8 @@ type t_compile_config=class(tdcreateform)
r["buildgui"] := ck_gui.Checked;
r["buildico"] := ed_ico.text;
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;
end
function clear_config();//清理
@@ -152,10 +156,11 @@ type t_compile_config=class(tdcreateform)
ed_s_dirs.text := "";
ed_s_type.text := "";
ed_include_s.text := "";
ck_strong.Checked := "";
ck_gui.Checked := "";
ck_strong.Checked := false;
ck_gui.Checked := false;
ed_ico.text := "";
ck_s_rp.Checked := "";
ck_s_rp.Checked := false;
e_namespace.text := "";
flibpath := "";
end
function bt_outputname_clk(o;e);virtual;
@@ -395,6 +400,7 @@ type t_compile_config=class(tdcreateform)
function createoutputname(n);
begin
tp := get_type();
sp := iofileseparator();
for i:= length(n) downto 1 do
begin
if n[i]="." and i>1 then
@@ -403,7 +409,7 @@ type t_compile_config=class(tdcreateform)
break;
end
end
if not nv then nv := "."+iofileseparator()+"default";
if not nv then nv := "."+sp+"default";
return nv+tp;
end
function set_base_dir(v);
@@ -442,7 +448,13 @@ type t_compile_config=class(tdcreateform)
if r[length(r)]="\n" then
r +=format('--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;
end
function f_b_a_param(d,n);
+5 -1
View File
@@ -5103,7 +5103,11 @@ type TEditerEchoWnd=class(TSynMemoNorm) //
begin
r +=format(' --manifest="%s" ',d["buildfile"]+".manifest");
end
{$endif}
{$endif}
if d["nspace"] then
begin
r+=format("--setpkg2ns=%s ",d["nspace"]);
end
return r;
end
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
修正:TSL编辑器等本地调试因为协议升级造成的问题。