أنشئ حسابًا أو سجّل الدخول للانضمام إلى مجتمعك المهني.
CommHandle := forms_ole.get_interface_pointer('b_main_prospect_info.mscomm_ocx');
OLE2.SET_PROPERTY(CommHandle, 'PortOpen',1);
weights := OLE2.GET_CHAR_PROPERTY(CommHandle, 'Input');
OLE2.SET_PROPERTY(CommHandle, 'PortOpen',0);
OLE2.release_obj(CommHandle);