Question

在几个Delphi XE2项目中，我设置了Eurekalog，通过“HTTP上传”发送错误报告，效果很好，因为我使用PHP脚本来捕获错误报告，将其保存在目录中并通过以下方式发送给我电子邮件：

<?php

require 'PHPMailerAutoload.php';

foreach ($_FILES as $key => $value)
{
    $uploaded_file = $_FILES[$key]['tmp_name'];
    $server_dir = 'upload/';
    $server_file = $server_dir . date("Y-m-d H-i-s ") . basename($_FILES[$key]['name']);
    $ext = strtoupper(pathinfo($server_file, PATHINFO_EXTENSION));
    if ($ext != 'EL')
    {
        continue;
    }
    if (move_uploaded_file($uploaded_file, $server_file))
    {
        echo '<html>';
        echo '<head>';
        echo '<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="TEXT/HTML; CHARSET=UTF-8">';
        echo '<title>Bug submission</title>';
        echo '</head>';
        echo '<body>';
        echo 'Thank you!<br />';
        echo "<!--\n";
        echo "<EurekaLogReply>Thank you for your feedback!</EurekaLogReply>\n";        
        echo "-->";
        echo '</body>';
        echo '</html>';

        SendBugReportMessage('auserofmyprogram@usersofmyprogram.com',
                             'A User of my program',
                             'Eurekalog Bug Report',
                             'This is a bug report from Eurekalog.',
                             'eurekalog.bugreport@mysite.com',
                             $server_file,
                             basename($server_file)
                             );
    }    
}

function SendBugReportMessage($AFrom, $AFromName, $ASubject, $ABodyText, $ARecipient, $AFileToAttach, $ANameOfFile)
{
    $email = new PHPMailer();
    $email->From      = $AFrom;
    $email->FromName  = $AFromName;
    $email->Subject   = $ASubject;
    $email->Body      = $ABodyText;
    $email->AddAddress($ARecipient);
    $file_to_attach = $AFileToAttach;
    $email->AddAttachment($file_to_attach, $ANameOfFile);
    return $email->Send();
}

?>

现在我有几个程序使用这个相同的PHP脚本来上传他们的错误报告。但是，发送到此PHP脚本的错误报告始终具有名称“BugReport”。因此，在PHP脚本中，如何获取发送错误报告的程序的名称，因此我可以通过附加程序名称并将程序名称包含在邮件主题中来保存它？或者可以通过在Delphi代码一侧实现某些东西来解决问题？还是在Eurekalog？

Eurekalog版本是7.1.0.0

Answer 1

您可以使用网络字段。 EurekaLog具有OnCustomWebFieldsRequest事件处理程序，允许您更改任何基于Web的发送方法的Web字段（例如HTTP上载，使用HTTP API的错误跟踪器等）。

分配此类事件hanlder：

uses
  EEvents;

procedure AddApplicationName(const ACustom: Pointer; ASender: TObject { TELWebSender }; AWebFields: TStrings; var ACallNextHandler: Boolean);
begin
  AWebFields.Values['Application'] := AnsiLowerCase(ExtractFileName(ParamStr(0)));
end;

initialization
  RegisterEventCustomWebFieldsRequest(nil, AddApplicationName);
end.

然后，您可以访问新的＆＃34;应用程序＆＃34;脚本中的字段。对于PHP，它将是$ _REQUEST [＆＃34; Application＆＃34;]或$ _POST [＆＃34; Application＆＃34;]

Answer 2

对于此特定任务，您还可以使用OnCustomFileName event handler来更改用于发送的文件名。您对AFileType = ftZIP（如果要发送打包的.elp报告）或AFileType = ftBugReport（如果您要发送解压缩的.el报告）感兴趣。

Eurekalog“HTTP上传”：如何发送程序名称？

2 个答案: