Здраствуйте профи! Расскажите основные принципы работы с POP3 через объект IdPOP3 и с SMTP через объект IdSMTP. В частности отправка и прием писем по електронной почте! Как например текст из Edit'a отправить на какой нибудь адрес!
Приветствую Вас, Кирилл! Очень просто! Берёшь справку и открываешь там раздел про эти компоненты. Там в примере есть РАБОЧИЙ пример почтовой программы. Если не найдёшь - пиши на почту, вышлю исходники. А вообще - скачаивай компоненты, так как Delphi'йские компоненты мягко говоря не очень. Посоветую InternetMailSuite(крэк на cracks.am) - сам использовал, оччень даже ничего! Ответ отправлен: 04.06.2003, 07:11 Отправитель: Stein
Вопрос № 704
Здраствуйте профи! Подскажите пожалуйста в чем ошибка кода котрый в приложении? Этот код по отпраке письма. Этот код я вставил в кнопу, т.е. когда нажимается кнопка, тогда выполняется этот код!
Доброе время суток, Кирилл! Вроде все правильно за исключением "NMSMTP1.Host := 'mail1.tut.by'" не правильно введен адрес, надо "NMSMTP1.Host := 'mail.tut.by'"
Ответ отправлен: 04.06.2003, 09:37 Отправитель: ART_43 Отвечает Stein
Здравствуйте, Кирилл! Пример не влезает в ответ... ПОСМОТРИ СПРАВКУ!!! ТАМ ЕСТЬ ПРИМЕР. У тебя неверный RCPT, если не ошибаюсь. Ответ отправлен: 04.06.2003, 07:28 Отправитель: Stein
Вопрос № 705
Приветствую Вас, уважаемые эксперты. Тут в Инете много раз встречал процедуру для динамического создания базы данных без Database Desktop. А как можно эту самую созданную в run-time базу сохранить на диск (лучше даже со всеми ее индексами) ??? Метод SaveToFile здесь применять же нельзя. Все комментарии по этому поводу привествуются :=). Заранее всем спасибо !!!
У меня щас Делфи не установлен, поэтому посмотреть не могу, но по-моему она сохраняется автоматически... или нет ? Ответ отправлен: 04.06.2003, 12:33 Отправитель: [MozgC] Отвечает baldr
Здравствуйте, SATAN aka NAPALM! Она сохраняется. Только учти, что по-умолчанию путь там задается прогой свой. Создай-ка ты алиас для базы и там задай путь - по нему все и будет лежать. Ответ отправлен: 05.06.2003, 21:58 Отправитель: baldr
Вопрос № 706
Здраствуйте профи! Пишу опять насщет отправки письма! Один из экспертов предположил что сдесь ошибка RCPT! Что это за ошибка и с чем её едят? А вот со справкой я не понимаю. Она на английском, но я скачал русскую демо-версию так она наполовину пустая! Адрес правильный 100%! Ошибка выдается на 4 строке!
Оговорюсь сразу: это не ответ - это предложение. Ты вправе его проигнорировать. В приложении (сохрани его в файле arch.eml и открой почтовиком) архив исходного кода, отправляющий простое письмо на указанный адрес. Переопредели константы SendFrom (твой почтовый ящик - многие провайдеры его контролируют), SendTo (адресат), MySmtp (имя или адрес твоего smtp-сервера), MySmtpPort (порт твоего smtp-сервера). Также переопредели const Timeout - она задаёт время ожидания данных с сервера, (для локальной сети 10 секунд хватает с головой, а для dial-up можно и побольше). Рекомендую воспользоваться комплектом программ для отладки высокоуровневых протоколов (можешь взять на моём сервере). Если что не так - пиши...
Приложение: Ответ отправлен: 04.06.2003, 13:11 Отправитель: Артём Шегеда Отвечает [MozgC]
И какую пишет ошибку ? Ответ отправлен: 04.06.2003, 12:34 Отправитель: [MozgC] Отвечает Stein
Добрый день, Кирилл! Это у меня delphi пишет, что такая ошибка, сам не вникал, что за ошибка. Скинул бы исходники, да адреса твоего не знаю! А чего там думать в справке?! Кладёшь компонент, нажимаешь F1, далее Methods и далее Example и всё! Ответ отправлен: 04.06.2003, 13:00 Отправитель: Stein
Вопрос № 707
Я пишу все по тому же вопросу! Ошибки выдает разные! "Already conected" "Look up failed"
Приветствую Вас, Кирилл! Alreadly connected - это типа уже есть соединение и надо его убить, чтобы заново законнектиться. Look up failed - чё-то не припомню... ДА МНЕ АДРЕС СВОЙ!!! Чем писать сюда, лучше я тебе вышлю исходники!!! Ответ отправлен: 04.06.2003, 13:14 Отправитель: Stein Отвечает [MozgC]
Ну насчет Already Connected просто проверяй соединен ли ты уже с сервером или нет. Если не соединен - то выполняй команду connect Ответ отправлен: 04.06.2003, 13:25 Отправитель: [MozgC]
Вопрос № 709
Привет всем экспертам! Я прошу прощение за столь часто отправляемые письма по одной и той же теме. Большое спасибо всем тем кто откликнулся. Я прада, во всех ответах уже запутался. Я вот спрошу по другому. Расскажите про основные принципы работы по отправке пием. Мне летом будет 14 лет, и я вот недано перешел а Pascal на Delphi. Основы конечно понял, но не понмаю дополнительные компоненты Delphi. У меня сейчас в планах написать почтовый клиент!
Если ты только перешел с Pascal на Delphi, то я думаю сотит начать с чегонить более легкого, и того, пример чего ты можешь найти, например нашел в книге или еще где пример написания какойнить несложной программы, и начинай ее делать, не подсматривая. А зачем тогда пример, если не подсматривая? А затем, что если зайдешь в тупик, то только тогда посмотришь как то, что тебе не понятно, реализовано в примере. Посмотрел и дальше сам. А тут у тебя ни примера нет, ни опыта не хватает. Мы же не сможем каждые 5 строчек тебе помогать. Вообщем мой совет, начни с чегонить полегче с примером уже готовым. Удачи. Ответ отправлен: 04.06.2003, 14:42 Отправитель: [MozgC] Отвечает Stein
Добрый день, Кирилл! Крутан! У меня в твоём возрасте были проблемы как вирус написать:) А для новичка - купи книгу! Ответ отправлен: 04.06.2003, 17:13 Отправитель: Stein
Вопрос № 710
Привет ещё раз! Эксперт [MozgC] говорит "начни с чего-нибудь полегче"! Ну а с чего можно начинать? Я уже сделал плейер, который проигрывает wav/midi файлы! Что может быть легче? И я все же хотел получить ответ на предиидущий вопрос!
Ладно, перефразирую, тогда не легче, но хотя бы с того, с чего есть пример, т.е. как я уже сказал, если ты стопорнешься, то ты сможешь посмотреть как это сделал кто-то другой в примере. Ну например находишь исходник, можено еще и с объяснениями, текстового редактора (он правда и так в примерах есть в Delphi) и начниаешь сам писать такой. тут у тебя например возникает вопрос, как сделать появления диалога открытия файла : ты просто смотришь в примере как это сделали и все, а не мучаешься. А когда будет больше опыта тогда делай че хошь, сам уже сможешь до всего дойти, докопаться. Ответ отправлен: 04.06.2003, 15:46 Отправитель: [MozgC] Отвечает Stein
Добрый день, Кирилл! А он всегда такие ответы даёт! Ты не удивляйся! Говорю, без книги - ничего не выйдет никуда:) Я лично слушал два раза курсы(пока в лицее учился) по Delphi, потом целое лето просидел за компьютером, пытаясь написать супервирус, НО благодаря этому я в совершенистве выучил Win32API САМ! Научился читать справки и т.д. так что - сиди и ковыряйся:):):):):)
Ответ отправлен: 04.06.2003, 17:18 Отправитель: Stein
Вопрос № 711
Сильно уважаемый эксперт! Редактор я уже сделал! И сделать появление диалога открытия файла легче простого! Что Вы меня за большого чайника держите? Ну что вам лень ответить на вопрос?
Я просто привел пример, по поводу самого первого вопроса, я уже ответил, что если пишет, что Already Connected то проверяй установлено ли соединение или нет, перед тем как выполнять команду connect Ответ отправлен: 04.06.2003, 17:45 Отправитель: [MozgC]
Вопрос № 712
Есть примеры с переумножением динамических массивов?
Здравствуйте, shal! Что это значит? Как "переумножить"? можно вот так:
var a : array of integer; b : array of integer; c : array of integer; begin setlength (a, ??); setlength (b, length (a)); setlength (c, length (a)); for i := 1 to length (a) do c [i] = a [i]*b [i]; end;
* EMan1.1: ---===*** Eternal power ***===---
Ответ отправлен: 04.06.2003, 19:20 Отправитель: Bob Johnson Отвечает [MozgC]
В каком языке программирования то ? Ответ отправлен: 04.06.2003, 17:46 Отправитель: [MozgC]
Вопрос № 713
Здравствуйте! Появилась необходимость связать окно richedit c текстовым файлом! Вот кусок кода. Что тут может быть неправильно?
Здравствуйте, Кирилл! ... ну вот я и в Delphi! ... заодно и программу свою проверю на две рассылки... 1. OpenDialog.Execute может вернуть false в случае, если пользователь нажал "отмена", и в этом случае filename будет неизвестно чем... поставь if: 2. > Opendialog1.FileName:=filename; А это вообще что??? А не наоборот? 3. У RichEdit нет свойства Text! Оно есть у встроенного в него объекта Lines! В общем, см. в приложении...
* EMan1.1: ---===*** Eternal power ***===---
Приложение: Ответ отправлен: 04.06.2003, 19:20 Отправитель: Bob Johnson Отвечает Stein
Добрый день, Кирилл! Старый добрый паскаль! В delphi делать надо так: If OpenDialog1.Execute then RichEdit1.Items.LoadFromFile(OpenDialog1.FileName); Если синтаксис не тот - по памяти пишу, но вроде всё правильно. Ответ отправлен: 05.06.2003, 06:41 Отправитель: Stein Отвечает ART_43
Приветствую Вас, Кирилл! ... >Opendialog1.FileName:=filename; filename:=Opendialog1.FileName; ... >while not eof(f) do begin >read(f,s); >end; >closefile(f); > richedit1.Text:=''; >richedit1.Text:=s; richedit1.Text:=''; while not eof(f) do begin read(f,s); RichEdit1.Lines.Add(s) end; end; а вообще это делается так if OpenDialog1.Execute then RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
Ответ отправлен: 04.06.2003, 17:54 Отправитель: ART_43 Отвечает [MozgC]
у тебя не задается строковая переменная filename Ответ отправлен: 04.06.2003, 17:44 Отправитель: [MozgC]
Вопрос № 714
Есть примеры с переумножением динамических массивов на Delphi?
Добрый день, shal! Я что тут сложного - берёшь и умножаешь, как обычные... Другое дело - как создать динамический массив. Ответ отправлен: 05.06.2003, 06:49 Отправитель: Stein Отвечает Vdr
Здравствуйте, shal! Примера нет, а в чем проблема? Ответ отправлен: 04.06.2003, 18:56 Отправитель: Vdr Отвечает vitya
Доброе время суток, shal!
Знаете, я почти уверен, что в природе они существуют. А вас что интересует? Поэлементное умножение, скалярное произведение, векторное произведение? Ответ отправлен: 04.06.2003, 18:12 Отправитель: vitya
Приложение: Ответ отправлен: 05.06.2003, 09:15 Отправитель: ART_43 Отвечает Stein
Добрый день, Кирилл! Дык у него есть свойство ScrollBars... Поиграйся с ним.
Ответ отправлен: 05.06.2003, 06:53 Отправитель: Stein Отвечает [MozgC]
Вообще-то у компонента TReachEdit есть свойство ScrollBars - его и меняй. Ответ отправлен: 04.06.2003, 23:52 Отправитель: [MozgC] Отвечает Bob Johnson
Добрый день, Кирилл! Он сам это может сделать. Свойство HideScrollBars определяет, показаны ли скроллбары, когда они не нужны. Свойство ScrollBars определяет, какие скроллбары вообще будут у RichEdit. Установи в ssBoth - получишь оба (и гориз. и верт.) или посмотри справку по типу TScrollStyle - там перечисляются еще 3 других.
* EMan1.1: ---===*** Eternal power ***===---
Ответ отправлен: 05.06.2003, 00:30 Отправитель: Bob Johnson
Вопрос № 716
Народ, объясните как и с помощью чего (желательно напрямую) можно подключится к MySQL 4.0.12 через Delphi 7. Скачал кучу компонентов, реально работающие тока "DAC for MySQL", но они не бесплатные. Пробывал компоненты Zeos, но при установке соединения дохнет диспетчер памятии и процесс убивается системой...
Здравствуйте, bogdan! Что еще за видеоглазок? Видеокамера или ИК-приемник? Если первое, то видимо никак, т.к. слишком большой объем информации. Если второе, то ничего сложного нет - подключаешь и скачиваешь программу, которая будет работать. Если хочешь сам - открываешь com-порт (CreateFile) и вперед.
* EMan1.1: ---===*** Eternal power ***===---
Ответ отправлен: 05.06.2003, 12:55 Отправитель: Bob Johnson
Вопрос № 718
Не могу найти нигде процедуру скалярного проихведения двух динамических массивов. Може твы поможете? Или простых моссивов. Есть документы по динамическим массивам? Сайты? A*X=b Нужна процедура нахождения иксов методом Гаусса или Зейделя или другим каким-нибудь. на Delphi или на Pascal
Про матрицы должен знать всё студент первого курса любого ВУЗа. Про динамические массивы достаточно подробно расписано в справке Delphi. Пример умножения матриц - в приложении.
Приложение: Ответ отправлен: 05.06.2003, 17:46 Отправитель: Артём Шегеда Отвечает [MozgC]
Поищи в инете, у меня в прошлом году было че-то похожее в институте, так я нашел, там процедур всяких миллион, надо только поискать. Ответ отправлен: 05.06.2003, 16:28 Отправитель: [MozgC]
Вопрос № 719
Не могу найти нигде процедуру скалярного проихведения двух динамических массивов. Може твы поможете? Или простых моссивов. Есть документы по динамическим массивам? Сайты? A*X=b Нужна процедура нахождения иксов методом Гаусса или Зейделя или другим каким-нибудь. на Delphi или на Pascal
Добрый день, shal! > Не могу найти нигде процедуру скалярного проихведения двух динамических массивов Ну а тут-то что сложного???
var a : array of integer; b : array of integer; r : integer; i : integer; begin ... r := 0; for i := 1 to length (a) do r := r + a [i]*b[i]; r - результат...
> Или простых моссивов Да какая разница? Почти одинаково.
* EMan1.1: ---===*** Eternal power ***===---
Ответ отправлен: 05.06.2003, 19:59 Отправитель: Bob Johnson Отвечает [MozgC]
Ты зачем по три раза посылаешь вопрос ? Достаточно одного раза... Ответ отправлен: 05.06.2003, 16:30 Отправитель: [MozgC]
Форма отправки вопроса
Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+
или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.