Отправка файлов на почту...

[Progs1024]

нужно отправить несколько файлов по очереди.

procedure TForm1.Button4Click(Sender: TObject);
var s,n,e,u,t:string;
    j,i:integer;
begin
f:=TStringList.Create();
f.LoadFromFile(extractfilepath(paramstr(0))+'\data.set');
progressbar1.Max:=f.Count;
for i:=0 to f.Count-1 do begin
  se:=false;
  s:=f.Strings[i];
  t:=s[length(s)];
  for j:=1 to length(s) do begin
          if s[j]<>';' then
            n:=n+s[j]
          else
            break;
  end;
  inc(j);
  for j:=j to length(s) do begin
        if s[j]<>';' then
           p:=p+s[j]
        else
          break;
  end;
  inc(j);
  for j:=j to length(s) do begin
        if s[j]<>';' then
           e:=e+s[j]
        else
          break;
  end;
  inc(j);
  for j:=j to length(s) do begin
        if s[j]<>';' then
           u:=u+s[j]
        else
          break;
  end;

  f:=TStringList.Create();
  f.LoadFromFile(extractfilepath(paramstr(0))+'\set.set');
  IdSMTP1.Host := f.Strings[0];
  IdSMTP1.Username := f.Strings[1];
  IdSMTP1.Password := f.Strings[2];
  M:=TIdMessage.Create(Form1);
  M.Body.Text:='Оценки ученика '+u;
  M.From.Text :=f.Strings[3];
  M.Recipients.Add;
  M.Subject := f.Strings[4];
  m.Recipients.EMailAddresses:=e;
  m.IsEncoded:=true;
  f.Free;

  st:=TSendThread.Create(true);
  st.Resume;
  st.Priority:=tpLower;
end;
f.Free;
end;

поток:

unit TSendThreadUnit;

interface

uses
  Classes, SysUtils, IdMessage;

type
  TSendThread = class(TThread)
  private
    ATT:TIdAttachment;
    { Private declarations }
  protected
    procedure Execute; override;
  end;

implementation

uses Main;

procedure TSendThread.Execute;
begin
ATT:=TIdAttachment.Create(m.MessageParts,main.p);
try
   form1.IdSMTP1.Connect();
   if form1.IdSMTP1.Connected then begin
      form1.label8.Caption:='Статус: Отправляется';
      form1.IdSMTP1.Send(main.M);
      form1.Label8.Caption:='Статус: Отправлено';
      form1.ProgressBar1.Position:=form1.ProgressBar1.Position+1;
      sn:=true;
   end
   else begin
      form1.Label8.Caption:='Статус: Не удалось отправить';
      sn:=false;
      exit;
   end;
finally
  form1.IdSMTP1.Disconnect;
end;
att.free;
main.se:=true;
end;

end.

Вобщем надо чтобы пока не отправился один файл, другой не отправлялся. как это сделать?

[mihali4]

Смотрим вниз, на "Похожие темы".

[Progs1024]

Уважаемый Михалыч, в "похожих" темах нету ответа на мой вопрос

[mihali4]

Ну поставьте в цикл отправки проверку статуса и ждите, пока он не определен...

[Progs1024]

Хорошо, упрощу вопрос...
После кода

st:=TSendThread.Create(true);
st.Resume;
st.Priority:=tpLower;

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