Fórum Porta Serial Lenta #356156

  TEnviarThread = class(TThread) 
  private
    FDado: String;
  protected 
    procedure Execute(); override;
  public 
    constructor Create(Dado: String);
  end;


var
  Form1: TForm1;
  EnviarThreadSection: TCriticalSection;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
EnviarThreadSection:= TCriticalSection.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i:= 1 to 20 do
  TEnviarThread.Create(´Comando ´+IntToStr(i));
end;

constructor TEnviarThread.Create(Dado: String);
begin
inherited Create(False); 
Priority:= tpNormal; 
FreeOnTerminate:= True; 
FDado:= Dado;
end;

procedure TEnviarThread.Execute();
begin
EnviarThreadSection.Enter;
Form1.PortaSerial.SendString(Dado);
Sleep(50);
EnviarThreadSection.Leave;
end;

procedure TForm1.Button1Click(Sender: TObject); 
var 
i: Integer; 
begin 
for i:= 1 to 20 do 
  TEnviarThread.Create(´Comando ´+IntToStr(i)); 
  Application.ProcessMessages;
end

clock_t begin;// Declaração da variável do tipo clock_t
begin = clock();                // begin recebe o clock atual (valor em ms)
while (clock() - begin < 50);// fica em loop enquando não passar 50ms