Тип в Delphi
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Тип в Delphi - 2010-07-20 20:45:18.243333
|
|
|
NickDhash
Сообщений: 44
Оценки: 0
Присоединился: 2010-06-09 18:08:49.643333
|
Я пытаюсь загрузить список для рассылки и мне выдает вот это [Error] Unit1.pas(72): Incompatible types: 'TIdEMailAddressList' and 'String' якобы несовместимые типы. Какой нужен тип?
|
|
|
|
|
RE: Тип в Delphi - 2010-07-20 20:46:36.360000
|
|
|
Sunzer
Сообщений: 253
Оценки: 31190
Присоединился: 2007-06-15 19:23:32.436666
|
Код покажи, телепаты в отпуске
|
|
|
|
|
RE: Тип в Delphi - 2010-07-20 20:49:16.713333
|
|
|
NickDhash
Сообщений: 44
Оценки: 0
Присоединился: 2010-06-09 18:08:49.643333
|
procedure TForm1.Button3Click(Sender: TObject);
var
Spam:TStringList;
begin
Spam:=TStringList.Create;
Spam.LoadFromFile(Edit1.Text);
idSmtpp1.Host:='smtp.mail.ru';
idSmtpp1.Port:=25;
idSmtpp1.Username:=Edit2.Text;
idSmtpp1.Password:=Edit4.Text;
idMessage1.Body.Text:=Edit3.Text;
idMessage1.Subject:=Edit5.Text;
idMessage1.Resipient:=Spam;// здесь пишет ошибку
idSmtp1.Connect();
if idSmtp1.Connected=true then
idSmtp1.Send(idmessage1);
idSmtp1.Disconnect;
end;
end.
|
|
|
|
|
RE: Тип в Delphi - 2010-07-20 20:51:21.850000
|
|
|
Sunzer
Сообщений: 253
Оценки: 31190
Присоединился: 2007-06-15 19:23:32.436666
|
quote:
idMessage1.Resipient:=Spam;// здесь пишет ошибку
Что за Spam, тип String? а у idMessage1.Resipient какой тип?
Удерживая Ctrl нажми по строке idMessage1.Resipient
Qunned уже ответил, не сооброзил что за Spam когда постил.
|
|
|
|
|
RE: Тип в Delphi - 2010-07-20 21:04:41.840000
|
|
|
QunneD
Сообщений: 833
Оценки: 0
Присоединился: 2008-11-09 20:54:38.113333
|
quote:
idMessage1.Resipient:=Spam;
idMessage1.Resipient := Spam.Strings[0];
0 - ID строки
0: Первая строка в текстовом файле
1: Вторая
2: Третья
|
|
|
|
|
RE: Тип в Delphi - 2010-07-20 21:24:48.456666
|
|
|
NickDhash
Сообщений: 44
Оценки: 0
Присоединился: 2010-06-09 18:08:49.643333
|
procedure TForm1.Button3Click(Sender: TObject);
var
Spam:TStringList;
b:integer;
begin
Spam:=TStringList.Create; //Инициализирую переменную
Spam.LoadFromFile(Edit1.Text); // Загружаю в переменную список адресов
idSmtp1.Host:='smtp.mail.ru';
idSmtp1.Port:=25;
idSmtp1.Username:=Edit2.Text;
idSmtp1.Password:=Edit4.Text;
idMessage1.bоdу.Text:=Edit3.Text;
idMessage1.Subject:=Edit5.Text;
For B:=0 to Spam.Count-1 do
idMessage1.Recipients:=Spam.TStringList; // strings тоже пробывал все равно та же ялда
idSmtp1.Connect();
if idSmtp1.Connected=true then
idSmtp1.Send(idmessage1);
idSmtp1.Disconnect;
end;
end.
Вы уж извините за тупость, но я никак не могу понять в чем проблема толи в указание переменной то ли еще где!
|
|
|
|
|
RE: Тип в Delphi - 2010-07-20 22:03:35.853333
|
|
|
QunneD
Сообщений: 833
Оценки: 0
Присоединился: 2008-11-09 20:54:38.113333
|
procedure TForm1.Button1Click(Sender: TObject);
var
List : TStrings;
begin
idSMTP1.Host := 'smtp.mail.ru';
idSMTP1.Port := 25;
idSmtp1.AuthenticationType := atLogin;
idSmtp1.Username := 'мыло твое';
idSmtp1.Password := 'пасс';
idMessage1.Subject := 'Заголовок';
idMessage1.bоdу.Text := 'Вкусное говно';
idMessage1.From.Address := 'мыло твое';
idMessage1.IsEncoded := True;
List := TStringList.Create;
List.LoadFromFile('spamlist.txt');
idMessage1.Recipients.EMailAddresses := List.Text;
idSMTP1.Connect();
idSMTP1.Send(idMessage1);
idSMTP1.Disconnect;
idSMTP1.Free;
MessageBox(0, 'Рассылка завершенна!', 'Рассылка', 0);
List.Free;
end;
Чтобы не пришлось заменять все значения:
procedure TForm1.Button3Click(Sender: TObject);
var
Spam : TStrings;
begin
idSMTP1.Host := 'smtp.mail.ru';
idSMTP1.Port := 25;
idSmtp1.AuthenticationType := atLogin;
idSmtp1.Username := Edit2.Text;
idSmtp1.Password := Edit4.Text;
idMessage1.Subject := Edit5.Text;
idMessage1.bоdу.Text := Edit3.Text;
idMessage1.From.Address := Edit2.Text;
idMessage1.IsEncoded := True;
Spam := TStringList.Create;
Spam.LoadFromFile(Edit1.Text);
idMessage1.Recipients.EMailAddresses := Spam.Text;
idSMTP1.Connect();
idSMTP1.Send(idMessage1);
idSMTP1.Disconnect;
idSMTP1.Free;
MessageBox(0, 'Рассылка завершенна!', 'Рассылка', 0);
Spam.Free;
end;
|
|
|
|
|
RE: Тип в Delphi - 2010-07-20 22:12:19.310000
|
|
|
NickDhash
Сообщений: 44
Оценки: 0
Присоединился: 2010-06-09 18:08:49.643333
|
Спасибо! :):)
|
|
|
|
|
|
