инди никак не зависит от фреймворка, он один

function SendMail(const Address, Subject, MessageText: string): string;
var
 SMTP: TIdSMTP;
 MailMessage: TIdMessage;
begin
 Result := 'rsOK';
 try
  SMTP := TIdSMTP.Create(nil);
  try
   SMTP.Host := WebDataModule.MailHost;
   SMTP.Port := WebDataModule.MailPort;
   SMTP.Username := WebDataModule.MailLogin;
   SMTP.Password := WebDataModule.MailPass;
   MailMessage := TIdMessage.Create(nil);
   try
    MailMessage.OnInitializeISO := TDummyEncode.SetCharSet;
    MailMessage.CharSet := IdCharsetNames[idcs_UTF_8];
    MailMessage.ContentType := 'text/plain; charset=utf-8'; //2612
    MailMessage.From.Address := WebDataModule.MailFrom;
    MailMessage.Recipients.EMailAddresses :=
     Address + IfThen(WebDataModule.MailCopy <> '', ';' + WebDataModule.MailCopy);
    MailMessage.Subject := Subject;
    MailMessage.Body.Text := MessageText;
    MailMessage.Date := Now;
    try
     try
      SMTP.Connect;
     except
      Exit('rsCouldntRegUserConnError');
     end;
     if WebDataModule.MailNeedAuthentication then
     begin
      SMTP.AuthType := TIdSMTPAuthenticationType(WebDataModule.MailAuthType);
      try
       if not SMTP.Authenticate then
        Exit('rsCouldntRegUserAuthError');
      except
       Exit('rsCouldntRegUserAuthError');
      end;
     end;
     try
      SMTP.Send(MailMessage);
     except
      Exit('rsCouldntRegUserSmtpError');
     end;
    finally
     if SMTP.Connected then
      SMTP.Disconnect;
    end;
   finally
    FreeAndNil(MailMessage);
   end;
  finally
   FreeAndNil(SMTP);
  end;
 except
  Exit('rsCouldntRegUserOtherError');
 end;
end;

type
 TDummyEncode = class
 protected
  class procedure SetCharSet(var VHeaderEncoding: char; var VCharSet: string);
 end;

class procedure TDummyEncode.SetCharSet(var VHeaderEncoding: char; var VCharSet: string);
begin
 VCharSet := IdCharsetNames[idcs_UTF_8];
 VHeaderEncoding := 'B';
end;

убери только частные куски, должно работать

могу для синапса кинуть кусок, только что не уверен, что он с андроидом сработает. этот код, впрочем, тоже нужно тестить. но как начало, думаю, хватит

Для FreePascal есть XMailer, но он кстати от synapse зависит

Раскопал такую фигню, что FastMM в многопоточном приложении ставит блокировку на время каждого выделения / освобождения памяти. Чтобы не происходило конфликтов при одновременном обращении к аллокаторам. Но там сделано так, что если аллокатор занят, то используется следующий аллокатор (например, если занят аллокатор 160 байт, то следующий аллокатор 176 байт), и так далее. То есть меньше тормозит, но больше жрет памяти. Но при освобождении памяти будет ждать разблокировки нужного аллокатора, поэтому тормозить будет гарантировано.

Так что при многопоточности лучше не злоупотреблять освобождением памяти и обнулением строк, а по возможности использовать выделенную память повторно.

В какой-то версии вроде исправили, если освобождение памяти заблокировано, то оно не ждет разблокировки а добавляется в очередь и память как-нибудь потом освободится.

Какое последнее обновление Delphi Embarcadero?

10.3.3

А когда выйдет I0.3.4

никогда. следующая версия 10.4

Откуда информация

роадмап и закрытое бета тестирование

А

У меня стояло 10.3.3 но Висла сразу после запуска на 7x64 а на 10 летает

Но я не хочу переустановку делать

function SendMail(const Address, Subject, MessageText: string): string;
var
 SMTP: TIdSMTP;
 MailMessage: TIdMessage;
begin
 Result := 'rsOK';
 try
  SMTP := TIdSMTP.Create(nil);
  try
   SMTP.Host := WebDataModule.MailHost;
   SMTP.Port := WebDataModule.MailPort;
   SMTP.Username := WebDataModule.MailLogin;
   SMTP.Password := WebDataModule.MailPass;
   MailMessage := TIdMessage.Create(nil);
   try
    MailMessage.OnInitializeISO := TDummyEncode.SetCharSet;
    MailMessage.CharSet := IdCharsetNames[idcs_UTF_8];
    MailMessage.ContentType := 'text/plain; charset=utf-8'; //2612
    MailMessage.From.Address := WebDataModule.MailFrom;
    MailMessage.Recipients.EMailAddresses :=
     Address + IfThen(WebDataModule.MailCopy <> '', ';' + WebDataModule.MailCopy);
    MailMessage.Subject := Subject;
    MailMessage.Body.Text := MessageText;
    MailMessage.Date := Now;
    try
     try
      SMTP.Connect;
     except
      Exit('rsCouldntRegUserConnError');
     end;
     if WebDataModule.MailNeedAuthentication then
     begin
      SMTP.AuthType := TIdSMTPAuthenticationType(WebDataModule.MailAuthType);
      try
       if not SMTP.Authenticate then
        Exit('rsCouldntRegUserAuthError');
      except
       Exit('rsCouldntRegUserAuthError');
      end;
     end;
     try
      SMTP.Send(MailMessage);
     except
      Exit('rsCouldntRegUserSmtpError');
     end;
    finally
     if SMTP.Connected then
      SMTP.Disconnect;
    end;
   finally
    FreeAndNil(MailMessage);
   end;
  finally
   FreeAndNil(SMTP);
  end;
 except
  Exit('rsCouldntRegUserOtherError');
 end;
end;

type
 TDummyEncode = class
 protected
  class procedure SetCharSet(var VHeaderEncoding: char; var VCharSet: string);
 end;

class procedure TDummyEncode.SetCharSet(var VHeaderEncoding: char; var VCharSet: string);
begin
 VCharSet := IdCharsetNames[idcs_UTF_8];
 VHeaderEncoding := 'B';
end;

Сспсб

Ребята. Если в Си стоит присвоение переменной  a = <>

Как это же самое сделать в дельфи

напиши контекстный код, который рядом