Group_99/D7DJjinchao
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-11 16:21:29 +08:00
parent a664e47800
commit 64b6d1c9e7
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
复合检验管理/U_MJManageNewFDNew.pas
View File

@ -668,7 +668,7 @@ begin
Th := LoadLibrary(Pchar(trim(DllName))); Th := LoadLibrary(Pchar(trim(DllName)));
if Th > 0 then if Th > 0 then
begin begin
try try
Tp := GetProcAddress(Th, 'CommOpen'); Tp := GetProcAddress(Th, 'CommOpen');
if Tp <> nil then if Tp <> nil then
begin begin
@ -822,10 +822,10 @@ begin
OpenCom(DllName); OpenCom(DllName);
if trim(JCYDLL) <> '' then if trim(JCYDLL) <> '' then
OpenCom(JCYDLL); OpenCom(JCYDLL);
if trim(DllNameT) <> '' then // if trim(DllNameT) <> '' then
OpenCom1(DllNameT); // OpenCom1(DllNameT);
if trim(JCYDLLT) <> '' then // if trim(JCYDLLT) <> '' then
OpenCom(JCYDLLT); // OpenCom(JCYDLLT);
Edit7.Visible := true; Edit7.Visible := true;
Label35.Visible := true; Label35.Visible := true;
Edit9.Visible := true; Edit9.Visible := true;