diff --git a/复合检验管理/U_MJManageNewFDNew.pas b/复合检验管理/U_MJManageNewFDNew.pas index 987b01e..452cb8d 100644 --- a/复合检验管理/U_MJManageNewFDNew.pas +++ b/复合检验管理/U_MJManageNewFDNew.pas @@ -668,7 +668,7 @@ begin Th := LoadLibrary(Pchar(trim(DllName))); if Th > 0 then begin - try + try Tp := GetProcAddress(Th, 'CommOpen'); if Tp <> nil then begin @@ -822,10 +822,10 @@ begin OpenCom(DllName); if trim(JCYDLL) <> '' then OpenCom(JCYDLL); - if trim(DllNameT) <> '' then - OpenCom1(DllNameT); - if trim(JCYDLLT) <> '' then - OpenCom(JCYDLLT); +// if trim(DllNameT) <> '' then +// OpenCom1(DllNameT); +// if trim(JCYDLLT) <> '' then +// OpenCom(JCYDLLT); Edit7.Visible := true; Label35.Visible := true; Edit9.Visible := true;