Fórum Problema com Thread #437079

unit Thread;

interface

uses
  Classes, spdNFe, ActiveX, FatNFE, clipbrd, SysUtils;

type
  Enviaemail = class(TThread)
  private
     Nfeenvia: TspdNFe;
     msg: String;
    { Private declarations }
  protected
    procedure Execute; override;
    procedure IncLabel; virtual;
  public
    constructor enviar(Nfe: TspdNFe; SID_nota, SID_Numero : String);
  end;

var
  SIdentificador, SNumero : string;

implementation

{ Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure Enviaemail.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ Enviaemail }

constructor Enviaemail.enviar(Nfe: TspdNFe; SID_nota, SID_Numero : String);
begin
  Create(False);
  Nfeenvia := Nfe;
  SIdentificador := SID_nota;
  SNumero        := SID_Numero;
  FreeOnTerminate := True;
end;

procedure Enviaemail.Execute;
begin
  CoInitialize(nil);
  Try
     Nfeenvia.EnviarNotaDestinatario(SIdentificador);
     msg := 'Email da Nota: '+SNumero+' enviado com sucesso  ';
     Synchronize(IncLabel);
     //Form_NFe.RzStatusPane_Informa.Caption := 'Email da Nota: '+SNumero+' enviado com sucesso  ';
     //Form_NFe.RzRichEdit_LogEmail.Lines.Add('Email da Nota: '+SNumero+' enviado com sucesso  ');
  Except
    on E: Exception do
    begin
      msg := 'Erro ao enviar o Email da Nota: '+SNumero+'  ';
      //Form_NFe.RzStatusPane_Informa.Caption := 'Erro ao enviar o Email da Nota: '+SNumero+'  ';
      //Form_NFe.RzRichEdit_LogEmail.Lines.Add('Erro ao enviar o Email da Nota: '+SNumero+'  ');
      Form_NFe.RzStatusPane_Informa.Blinking := True;
      Clipboard.AsText := E.message;
    end;
  end;
  { Place thread code here }
end;

procedure Enviaemail.IncLabel;
begin
   Form_NFe.RzStatusPane_Informa.Caption := msg;
   Form_NFe.RzRichEdit_LogEmail.Lines.Add(msg);
  { o Contador será executado em modo protegido por uma Seção Critica do Windows}
end;

end.