Windows – Delphi App与程序通信偶尔崩溃 – 供应商责备我的Del

>让客户满意.
>不要以为它不是你的dll,它可能是.即使“其他人以相同的方式使用软件从未经历过崩溃”,也可能是因为使用不同的数据,它会做出不同的事情……
>我建议您在“特殊”诊断版本中设置日志文件.
>记录所有内容,参数,异常以及您要经历的步骤.甚至可能是每个功能的开始和结束,以及其他每一行.

这是它看起来的样子……

Loaded DLL
Started MyFunction1 with parameters: 1,4,hello
   1
   2
   ...
   500
Ended MyFunction1

为了那个,我设置了一些功能(在他们自己的单元中)：

// opens a text file (fixed name),and appends to it.
function InitializeLog; 

// closes the file
function CloseLog;      

//add a log line.
function Log(message:string='',startNewFunction:boolean:False);

你会这样称呼它：

function MyFunction1(Integer,Integer,String);
begin
  try
    Log('Loaded DLL');

    //use inttostr and do some string concats to get the params
    Log('Started MyFunction1 with parameters: 1,hello',true); 

    //Then every other line:
    Log; 
    //this would increment a global variable FuncLine:Integer
    //and write it to the file.    

  except
    On E:Exception (Log('***'+E.Message));
  end;
end;

这样的东西应该有{$DEFINE}来启用这些日志记录功能,以启用/禁用诊断日志记录.

This could also be useful.