Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];

Вниз

ERangeError В чем может быть дело????   Найти похожие ветки 

 
Ryser   (2002-08-16 00:58) [0]

используемый код следующий
////////////////////
var
email,login:String;
begin
Query5.First;
while not Query5.Eof do
begin
NMSMTP1.ClearParameters;
email:=Query5.FieldByName("email").AsString;
Memo2.Clear;
Memo2.Lines.Add(email);
//Формирование тела письма
Memo1.Clear;
login:="Здравствуйте, уважаемый "+ Query5.FieldByName("email").AsString;
Memo1.Lines.Add(login);
login:="Это письмо прислано Вам роботом-рассыльщиком";
Memo1.Lines.Add(login);
login:="Остаток на вашем лицевом счете на " + DateToStr(Date()) + " составляет:";
Memo1.Lines.Add(login);
Login:= Query5.FieldByName("ost").AsString+ " условных едениц.";
Memo1.Lines.Add(login);
If NMSMTP1.Connected then
begin
NMSMTP1.Disconnect;
end
Else
begin
NMSMTP1.UserID := "Serg";
NMSMTP1.CharSet:="windows-1251";
NMSMTP1.PostMessage.Body.Assign(Memo1.Lines);
NMSMTP1.PostMessage.FromName := Edit1.Text;
NMSMTP1.PostMessage.ToAddress.Assign(Memo2.Lines);
NMSMTP1.PostMessage.FromAddress :=Edit2.Text;
NMSMTP1.Connect;
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
Query5.Next;
end;
end;

это работает до какого-то момента. Отсылаются несколько писем и вываливается на ошибку ERangeError with message "Range Check Error" В компиляторе отключал проверку - не помогает.


 
Ryser   (2002-08-16 16:34) [1]

А дело вот в чем.
В этом цикле письмо еще фактически не отправилось, а цикл крутится дальше. Вот и ошибка RangeError.
Проблема решилась проверкой действительной отправки сообщения.
И только уже после удачной отправки цикл "едет" дальше!
Вот так...



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.54 MB
Время: 0.029 c
14-56279
LStranger
2002-09-21 21:47
2002.10.17
Новая доктрина США: ударить первыми


3-55994
Виталий Панасенко
2002-09-26 09:19
2002.10.17
Refresh в FIBPlus


3-56011
Evladar
2002-09-26 17:00
2002.10.17
---|Ветка была без названия|---


6-56245
AlekseyK
2002-08-14 17:01
2002.10.17
Авторизация


14-56305
Николай Быков
2002-09-23 13:02
2002.10.17
Чей это IP адрес?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский