程序功能失效后，如何重新载入这一段代码？

2018-11-17 01:07:17 471 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

转运中心设计CAD插件工具箱：载入方式与核心命令全解析在工业与物流工程设计领域，CAD制图是承载工艺构思的基础语言。面对转运中心、分拨中心这类以物流工艺为核心的复杂项目，普通建筑绘图方式难以高效表达分拣机、胶带机、滑槽等设备布局。参数化设计思想将重复绘图操作转化为命令调用与参数生成，从而显著提升制图效率与图纸规范性。此类工具的价值在于，既能统一图层、线型和标注标准，降低团队协作成本，又能支持方案迭代时的快速调整。在转运中心工艺设计中，从设备平面布置到格口统计与自检，均需要专业化的CAD插件支撑。一套专用的CAD插件工具箱，其程序载入方式、自动加载配置及核心命令阅读详情

function TForm2.ReadFromPipe(Pipe: THandle): string;
const
ReadBuffer = 4096;
var
Buffer: PAnsiChar;
BytesRead: DWORD;
begin
Result := '';
if GetFileSize(Pipe, nil) = 0 then
Exit;

代码省略100行。。。
。。。。
。。。。
。。。。
。。。。
由于某种功能使用后导致该代码失效，只能重启程序来使用，
问题：
程序功能失效后，如何重新载入这一段代码？需要详细的。
function TForm2.ReadFromPipe(Pipe: THandle): string;

做成一个按钮，点了就能重载，这样。

...全文

从“破解”到应用：三菱数控系统M80协议逆向分析与工业数据采集网关搭建指南本文深入解析三菱数控系统M80协议的逆向分析方法与工业数据采集网关搭建技术。通过TCP协议实现跨平台通信，详细介绍了M80协议的数据包结构、多语言实现方案（C#、Java、C/C++）以及Linux数据采集网关的架构设计与容器化部署。为工业自动化领域的开发者提供从协议分析到企业级数据采集落地的完整解决方案。阅读详情

chujoy

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

lyhoo163 2019-01-08

打赏
举报

代码的重启，首先要对错码出错，进行判断，是功能性还是坏死性的错误。
功能性错误，是由于环境造成的，可以定时反复，测试执行。否则不能重复的。
比较好的方式：
try
...
except
... // 出错处理
end;

morninggood 2018-12-30

打赏
举报

线程中处理是可以的。

doloopcn 2018-12-17

打赏
举报

将代码放入线程，
建立线程使用时间状态字：timeuse:Double;
新建监控线程，判断if timeuse>timeout then begin t1.termiante; t1:=Tt1.create; t1.resume; end;

Frank.WU 2018-12-12

打赏
举报

try ... except ... //此处处理 end;

BlueStorm 2018-12-11

打赏
举报

源代码应该有问题，你还不如先解决源代码的问题，而不是只是想着怎么自动重启。下面的代码仅供参考：


function ReadPipe(Pipe: THandle; var BytesRemain: Integer): AnsiString;
  //通过管道读取Cmd控制台的输出，BytesRemain为未读的字节数
var
  TextBuffer: array[1..32767] of AnsiChar;
  BytesRead : LongWord;
  PipeSize  : Cardinal;
begin
  Result := '';
  PipeSize := Sizeof(TextBuffer);
  //检查管道是否有东西可读
  PeekNamedPipe(Pipe, nil, PipeSize, @BytesRead, @PipeSize, @BytesRemain);
  if BytesRead > 0 then
  begin
    ReadFile(Pipe, TextBuffer, PipeSize, BytesRead, nil);
    Result := AnsiString(TextBuffer); //TextBuffer内含的是AnsiString字符串
    SetLength(Result, BytesRead);
  end;
end;

p47655255 2018-12-11

打赏
举报

界面上放一个button 然后双击在buttonclick 里面写ReadFromPipe(Pipe）；
是这意思吗？

ooolinux 2018-11-17

打赏
举报

try。。。catch？

chujoy 2018-11-17

打赏
举报

做一个按钮，点击一下就能重载那样，，

就是重新载入一次function TForm2.ReadFromPipe(Pipe: THandle): string;

程序功能失效后，如何重新载入这一段代码？

相关推荐