Доработанный плагин Mail.spm

В этом разделе размещены плагины и дополнительные утилиты.
Ответить
kain151
Ас
Сообщения: 305
Зарегистрирован: Ср июн 24, 2009 4:12 am
Благодарил (а): 8 раз
Поблагодарили: 4 раза

Доработанный плагин Mail.spm

Сообщение kain151 » Чт мар 15, 2018 10:24 pm

Добрый день!

Поскольку у Алекса не хватает времени, знакомый программист доработал почтовый плагин, чтобы не возникало проблем, если в названии файла оказывается управляющий символ.

Если в названии оказывался управляющий символ, в логе выдавало такую ошибку:
Exception: Cannot create file "D:\1x\4\Mails\Прямой - 18 сентября - 24сенте". Синтаксическая ошибка в имени файла, имени папки или метке тома
При этом останавливался прием писем из почтового ящика и приходилось письмо из почты удалять руками, чтобы можно было принимать письма.

Добавлен следующий код:

Добавлено
// замена управляющих символов на _ в случае если остается пустая строка или начинающаяся на точку иначе управляющие символы удаляем
function ReplUpr_Sm(x:string):string;
var i, lenx : Integer;
retZ, retD : string;
begin

lenx:=Length(x);
if lenx > 0 then
begin

retZ:=x;
retD:='';
for i:=1 to lenx do
begin
// какие символы будет считать управляющими
if ((ord(x)>=0) and (ord(x)<=31)) or ((ord(x)>=127) and (ord(x)<=159)) then
retZ:='_' // замена а для retD получаем пропуск
else retD := retD + x;
end;

if Length(retD)=0 then
begin
Result:=retZ;
end
else if retD[1]='.' then
begin
Result:=retZ;
end
else Result:=retD;

end
else Result := x;

end;


Ну и эту функцию использовал также для замены директории
s := ReplUpr_Sm(s);
AttachDir := ReplUpr_Sm(AttachDir);

Прилагаю файлы, если кому-то нужно или Алекс решит использовать доработанный вариант в основной версии программы.
Вместе с плагином прикреплен AT.spma, так как после компилирования в дизайнере в нет также произошли какие-то изменения.
Вложения
PluginMail_1503_1v.zip
(45.82 КБ) 419 скачиваний

Ответить

Вернуться в «Плагины и программы-дополнения»