Как в компоненте memo сделать ...

[}{oт@бь)ч]

Добрый вечер!
Хотел узнать следуюшие!
Как в компоненте memo зделать так!
вписываю яшики почтовые
mail@mail.ru почтовый яшик
12345 пароль к нему
mail@mail.ru:12345
Вот таким образом вписываю яшики
вот скриншот

Как видете в компоненте memo1 почтовые яшики

А вот код программы

idSMTP1.Host :='smtp.mail.ru';
idSMTP1.Port:=25;
idSMTP1.AuthenticationType:=atLogin;
idSMTP1.Username:= memo1.Text; логин
idSMTP1.Password:= memo1.Text;  пароль
IdMessage1.Recipients.EMailAddresses :=edit4.text; 
IdMessage1.From.Text := memo1.text;
IdMessage1.Subject := 'rere'; // 
IdMessage1.Body.Text := 'test'; 
try
try
idSMTP1.Connect;
idSMTP1.Send(IdMessage1);

except on E:Exception do 
begin
form1.Caption:=E.Message;
end;
end;
finally
idSMTP1.Disconnect; 
end;

Вот компонент он выделен зеленым
Вот например у меня 10 яшиков и нужно чтобы при нажатии на кнопку эти 10 яшиков введеные в форму memo таким образом
mail@mail.ru:12345
fhgf@mail.ru:5434534
yuyuy@mail.ru:546456
hohh@mail.ru:5645646
Отправляли на 1 почтовый яшик одно и тоже письмо!
Тоесть должно прити 10 писем с разных яшиков на 1 яшик!
И очень прошу не закрывайте тему а помогите мне с этем компонентом!

[Dark_Spirit]

и что тут не работает?
я не особо силён в программировании для сети, но мне кажется что в ваши параметры:

idSMTP1.Username:= memo1.Text; логин
idSMTP1.Password:= memo1.Text; пароль

передадутся все строки с memo и соответственно эти два параметра у вас будут равны.
попробуйте поочерёдно считывать строки с memo, разбивать их на пароли и ящики отдельно и по очереди отправлять сообщение.

[}{oт@бь)ч]

Мне нужно конкретно именно то что я написал в первом топике!
Если хотите помочь пожалуйста приводите пример!
Пример на моем коде

[Dark_Spirit]

IdMessage1.From.Text := memo1.text;

вот тут ты отправишь всё что у тебя находится в memo. если я тебя правильно понял то должно быть не memo, а edit.
Дальше, сейчас нет времени писать код могу только подкинуть идейку:
построчно считываешь строки со своего memo, разбиваешь их на юзера и пароля, и потом передаёшь значения юзера и пароля в свои переменные и по очереди отправляешь что те нужно.

[}{oт@бь)ч]

Все с вами понятно вы почитайте сначало потом отвечайте
memo электроные адреса и пароли к ним там должны быть а не текст письма!

[r9m]

Все с вами понятно вы почитайте сначало потом отвечайте
memo электроные адреса и пароли к ним там должны быть а не текст письма!

Ты сначала сам прочитай чё ты сам написал а потом на людей ори. Сам ведь написал ахинею, а ещё и выпендривается...

idSMTP1.Username:= memo1.Text; логин
idSMTP1.Password:= memo1.Text; пароль

Вот это чудо - твоё. А человек правильно тебе сказал, что и как делать. Так что, не нужно тут строить из себя крутого хекера. Тебе уже сказали:

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

^^ Вот это как раз и правильно!

[}{oт@бь)ч]

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

Так люди я и прошу показать как делаетсо это!

[KORN]

думаем что нужно писать

var
  log, pass: string;
begin
  for i:=0 to memo.count-1 do
  begin
    log:=copy(memo1.lines.strings[i], 1, pos(':', memo1.lines.strings[i])-1);
    pass:=copy(memo1.lines.strings[i], pos(':', memo1.lines.strings[i])+1, length(memo1.lines.strings[i]));
  end;
end;

[goblinyara]

}{oт@бь)ч, я ж писал - учите циклы

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  idSMTP1.Host :='smtp.mail.ru';
  idSMTP1.Port:=25; // Порт
  idSMTP1.AuthenticationType:=atLogin;
  for i:=0 to memo.count-1 do
  begin
    idSMTP1.Username:= copy(memo1.lines.strings[i], 1, pos(':', memo1.lines.strings[i])-1);
    idSMTP1.Password:= copy(memo1.lines.strings[i], pos(':', memo1.lines.strings[i])+1, length(memo1.lines.strings[i]));
    IdMessage1.Recipients.EMailAddresses := edit1.Text;
    IdMessage1.From.Text := copy(memo1.lines.strings[i], 1, pos(':', memo1.lines.strings[i])-1);
    IdMessage1.Subject := edit2.Text;
    IdMessage1.Body.Text := edit3.text;
    try
      try
        idSMTP1.Connect; 
        idSMTP1.Send(IdMessage1);
      except on E:Exception do
      begin
        form1.Caption:=E.Message;
      end;
   end;
   finally
     idSMTP1.Disconnect;
   end;
  end;
end.

З.Ы. это переделанный ваш код из темы в другой ветке, с включением кода KORN'a... повторюсь ещё раз - УЧИТЕ ЦИКЛЫ!!!!! БЕЗ НИХ - НИКУДА!!!!!

[simka007]

мм
интересно
еще бы добавить 2 поля :
1 - где отображалось кол-во успешно подключившихся
2 - не подключившихся