Исправление ошибки с недопустимыми символами в названии файла при отправке через ElasticEmail в Delphi 2009

Delphi , Интернет и Сети , Браузер

При работе с компонентом Indy для Delphi 2009 и отправке файлов через API ElasticEmail, пользователи могут столкнуться с ошибкой "One of files has invalid characters in file name". Эта ошибка возникает из-за неправильного формата передачи файлов в составе многочастичного запроса TIdMultiPartFormDataStream.

Вот основные шаги для исправления этой ошибки:

1. Убедитесь, что пути к файлам не содержат лишних обратных слешей, которые могут быть неявно добавлены при работе с некоторыми языками программирования, но не требуются в Delphi.

2. При добавлении файлов в TIdMultiPartFormDataStream, используйте корректные имена полей, как это показано в примерах ElasticEmail. Вместо полного пути к файлу, используйте уникальные имена, например, file0, file1 и так далее.

3. Если вы пытались использовать AddFormField для добавления файлов, убедитесь, что вы передаете данные файла в параметр AFieldValue, а не в AFieldName.

4. Используйте метод AddFile для добавления файлов, который автоматически определит MIME-тип файла, если вы не передадите его явно.

5. Если filenames содержат не-ASCII символы, убедитесь, что они корректно закодированы для передачи по HTTP. TIdMultiPartFormDataStream по умолчанию использует RFC 2047 для кодировки, но если это не поддерживается вашим сервисом, вы можете отключить эту функцию и использовать свою собственную функцию кодирования.

Ниже приведен пример исправленной функции Upload, которая отправляет файлы вместе с другими параметрами:

function TForm1.Upload(url: string; params, filenames: TStrings): string;
var
  FormData : TIdMultiPartFormDataStream;
  ResponseText : string;
  i : integer;
begin
  FormData := TIdMultiPartFormDataStream.Create;
  try
    for i := 0 to params.Count - 1 do
      FormData.AddFormField(params.Names[i], params.ValueFromIndex[i]);

    for i := 0 to filenames.Count - 1 do
      FormData.AddFile('file' + IntToStr(i), filenames[i]);

    ResponseText := IdHTTP1.Post(url, FormData);
    Memo1.Text := ResponseText; //debug
  finally
    FormData.Free;
  end;
end;

Исправленный код для кнопки отправки электронной почты:

procedure TForm1.btnSendbyElastic(Sender: TObject);
var
  Params, Filenames : TStringList;
  url, Afilename : string;
begin
  Afilename := 'C:\Users\Admin\Documents\arrival and departure small.pdf';
  Params := TStringList.Create;
  try
    Params.Add('apikey=' + ELASTIC_MAIL_API_KEY);
    Params.Add('from=' + ELASTIC_EMAIL_FROM_EMAIL);
    Params.Add('fromname=' + ELASTIC_EMAIL_FROM_NAME);
    Params.Add('Subject=' + 'The Subject');
    Params.Add('bodyHtml=' + '<h1>Html Body</h1>');
    Params.Add('bodyText=' + 'Text Body');
    Params.Add('to=' + THE_RECIPIENT_ADDRESS);

    Filenames := TStringList.Create;
    try
      Filenames.Add(Afilename);

      url := ELASTIC_EMAIL_EMAIL_SEND;
      Upload(url, params, filenames);
    finally
      Filenames.Free;
    end;
  finally
    Params.Free;
  end;
end;

Не забудьте, что использование очень старой версии Indy (например, 10.2.5) может привести к проблемам. Рекомендуется обновиться до последней версии Indy для устранения возможных ошибок и улучшения совместимости со стандартами.

Создано по материалам из источника по ссылке.

При работе с компонентом Indy в Delphi 2009 для отправки файлов через ElasticEmail возникла ошибка из-за недопустимых символов в названии файла, которую нужно исправить, корректно обрабатывая пути к файлам и используя правильные метод

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Браузер ::