Вопросы и помощь по написанию софта

[Laszle]

Т.к в теме Brute Help началась анархия по поводу помощи в написании,я решил сделать эту тему,т.к Brute Help тема для вопросов плана "Где купить прокси?" или "Какой брут лучше",но ни как не для вопрос как написать софт!
Вопросы по Delphi
ФЛУД,МАТ,РЕКЛАМА ЗАПРЕЩЕНЫ!Выдаю плюшки от предупреждия до баллов​

 

[PaZiTiVe]

Вопросы можно задавать по всем языкам?) Укажи в теме какие языки знаешь.

 

[Laszle]

Вопросы можно задавать по всем языкам?) Укажи в теме какие языки знаешь.

Знаю 4, но можно только по Delphi т.к с другими языками давно не работал могу и ошибиться в совете

 

[Backword]

Дай пример кода поиска писем по почтам.

 

[Laszle]

Дай пример кода поиска писем по почтам.

Подключаешь idSMTP, idMessage (из вкладки Indy и Indy Misc)
Потом этот код:
IdSMTP1.Host:='smtp.mail.ru'; \\ адрес smtp
IdSMTP1.Port:=25; \\ порт smtp
IdSMTP1.Username:='мыло@mail.ru'; \\ мыло отправителя
IdSMTP1.Password:='пароль'; \\ пароль отправителя
IdSMTP1.AuthenticationType:=atLogin; \\ с авторизацией
with IdMessage1 do
begin
Body.add('asdf'); \\ текст письма
From.Text := 'мыло@mail.ru'; \\ от кого
Recipients.EMailAddresses := 'мыло@mail.ru'; \\ кому
Subject := 'Programmersclub.ru'; \\ тема (зайди на этот сайтик, оттуда этот код)
TIdAttachment.Create(IdMessage1.MessageParts, 'путь к файлу'); \\ прикрепить файл
end;
IdSMTP1.Connect; \\ присоединиться
try
IdSMTP1.Send(IdMessage1); \\ передать
finally
IdSMTP1.Disconnect; \\ отсоединиться
end;

P.S код не мой!

 

[Backword]

Подключаешь idSMTP, idMessage (из вкладки Indy и Indy Misc)
Потом этот код:
IdSMTP1.Host:='smtp.mail.ru'; \\ адрес smtp
IdSMTP1.Port:=25; \\ порт smtp
IdSMTP1.Username:='мыло@mail.ru'; \\ мыло отправителя
IdSMTP1.Password:='пароль'; \\ пароль отправителя
IdSMTP1.AuthenticationType:=atLogin; \\ с авторизацией
with IdMessage1 do
begin
Body.add('asdf'); \\ текст письма
From.Text := 'мыло@mail.ru'; \\ от кого
Recipients.EMailAddresses := 'мыло@mail.ru'; \\ кому
Subject := 'Programmersclub.ru'; \\ тема (зайди на этот сайтик, оттуда этот код)
TIdAttachment.Create(IdMessage1.MessageParts, 'путь к файлу'); \\ прикрепить файл
end;
IdSMTP1.Connect; \\ присоединиться
try
IdSMTP1.Send(IdMessage1); \\ передать
finally
IdSMTP1.Disconnect; \\ отсоединиться
end;

P.S код не мой!

Это отправка.

Я спрашиваю, как сделать типа letersearch'а, только уже с указанной в коде запросом.

 

[Laszle]

Это отправка.

Я спрашиваю, как сделать типа letersearch'а, только уже с указанной в коде запросом.

Я понял о чем говоришь, пытался это сделать у меня не получилось,я думаю гугл тебе поможет,попробуй на киберфоруме спросить там ребята матерые сидят,думаю помогут.