ЧАт - очень нужна по мощь!

[Ghost of Night]

procedure TList.Timer1Timer(Sender: TObject);
var
 me,ii:integer;
begin

repeat
 list.IdMessage1.Clear;
 list.listbox1.Clear;

 Try
  if spis then
   me:=list.IdPOP31.CheckMessages;
  for ii:=1 to me do
  begin
    list.IdPOP31.Retrieve(ii,list.IdMessage1);
      if DecodeStr(list.IdMessage1.Subject)=unit2.ip then {помннять = на <>}
        begin
          list.listbox1.Items.add('IP='+DecodeStr(list.IdMessage1.Subject));
        //чета еще
        end;
  end;
 Except
  //Application.MessageBox('Ошибка подключения: не удалось обновить список. Проверьте поделючение к Интернету','Ошибка подключения к Интернету',0);
  Timer1.Enabled := false;
  Exit;
 end;

until true;
end;

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

[Ghost of Night]

begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TSExit, SExit);
  Application.CreateForm(TTroy, Troy);
  Application.CreateForm(TAccess, Access);
  Application.CreateForm(TAlert, Alert);
  Application.CreateForm(Tstatysbusy, statysbusy);
  Application.CreateForm(TList, List);
  Application.CreateForm(TSettings, Settings);
  Application.CreateForm(TSmiles, Smiles);
  Application.CreateForm(Twait, wait);
  Application.Run;
end.

инициализация проги. Вместо Hide, лучше пользуйтесь свойством Visible.

[spydark91]

В вашем случае, вместо смайлика вставляется его текстовое обозначение. Поэтому в РичЕдит их можно вставить сколько угодно. Удалять их из сообщения не нужно. Вам нужно позаботиться об отображении этого смайлика как картинки, чтоб получатель видел не текст а сам смайлик

а как сделать чтобы они коректно отображались,можешь рассказаьб?

[spydark91]

2 - форма под название 'list' должна обновлять все сообщения с определенного адреса почты,(пока что там только тема сообщения). Это лучше вынести в отдельный поток?(если да,то как) или можно оставить в таймере,и он не будет тормозить работу приложения? (сообщений на адресе будет не больше 10 штук)
Да, лучше в отдельный поток.

для этого нужно создавать thread object или можно в том же юните(как,если можно)

[spydark91]

Код:

procedure TList.Timer1Timer(Sender: TObject);
var
me,ii:integer;
begin

repeat
list.IdMessage1.Clear;
list.listbox1.Clear;

Try
if spis then
me:=list.IdPOP31.CheckMessages;
for ii:=1 to me do
begin
list.IdPOP31.Retrieve(ii,list.IdMes sage1);
if DecodeStr(list.IdMessage1.Subject)= unit2.ip then {помннять = на <>}
begin
list.listbox1.Items.add('IP='+Decod eStr(list.IdMessage1.Subject));
//чета еще
end;
end;
Except
//Application.MessageBox('Ошибка подключения: не удалось обновить список. Проверьте поделючение к Интернету','Ошибка подключения к Интернету',0);
Timer1.Enabled := false;
Exit;
end;

until true;
end;

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

а что тут переработано..может не вижу?

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

[spydark91]

Они работают, просто Свойство ТОР у них равно 32767.

smiles=110
list=169
топ нормальный

[spydark91]

Цитата:
Они работают, просто Свойство ТОР у них равно 32767.
smiles=110
list=169
топ нормальный

понял,там настройки не те сохранились

[spydark91]

Except
//Application.MessageBox('Ошибка подключения: не удалось обновить список. Проверьте поделючение к Интернету','Ошибка подключения к Интернету',0);
Timer1.Enabled := false;
Exit;
end;

а точно,нашел

[spydark91]

сделал так

Except
application.MessageBox('Îøèáêà ïîäêëþ÷åíèÿ: íå óäàëîñü îáíîâèòü ñïèñîê. Ïðîâåðüòå ïîäåëþ÷åíèå ê Èíòåðíåòó','Îøèáêà ïîäêëþ÷åíèÿ ê Èíòåðíåòó',0);
timer1.enabled:=false;
break;
exit;

end;

но ошибка всеравно каждую секунду лезит

[Ghost of Night]

Я же писал, что сообщение должно вылазить после остановки

Except
 timer1.enabled:=false;
 break;
 exit; //это не нужно, иначе сообщения не будет вообще

end;
application.MessageBox(.........)