|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Как получить почту (РОР3)
Решил сделать свою программку для проверки и вывода почты, но с сетью мало работал поэтому опыта вообще нету. У меня собственно 2 вопроса:
1) как получить число писем, затем каждое прочитать (от кого, кому, приложения и текст письма) 2) как получить буфер (или блок, не знаю как называется) файла (например 2 байта из позиции 10 байт) файла которые находится в интернете (http://.../file.dat) кто понял что из моего сказанного помогите пли3зz TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#2
|
||||
|
||||
хм, вроде бы разорался как подключатся и получить список писем, но всё таки скажите как прочитать письма! (юзаю Indy)
TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#3
|
|||
|
|||
Через TIdPOP3.
Метод Retrive вытаскивает все письмо целиком, метод RetriveHeader - только заголовок (служебную часть, где указаны отправитель, получатель, тема, дата и т.д.) |
#4
|
|||
|
|||
А по мне так лучше сокетами пользоваться и непосредственно общаться с серваком. Ибо многие используемые поля с помощью инди не вставишь. Опять же с кирилицей в различных кодировках у инди косяки.
|
#5
|
||||
|
||||
спасибо за внимание, но я сам разобрался :-D
TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#6
|
||||
|
||||
Простите канеш , но почему то когда я "вытаскиваю" письма из почтовика свойство Mail.Body (TStringList) (знаю и пользуюсь Retrieve) совершенно пустое, хотя я точно уверен что письмо с текстом
и кстати, я так понял вытаскивать письма нужно начиная с 1 или с 0? TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#7
|
||||
|
||||
В делфи все с нуля окромя строки.
Цитата:
Цитата:
Но это все в десятой версии, ибо знаю не по наслышки что в восмой глюки сумашедшие (другие не юзал). |
#8
|
||||
|
||||
гдето так
Код:
var I: Integer; begin for I := 0 to IdMessage1.MessageParts.Count - 1 do begin if IdMessage1.MessageParts[i].ContentType = 'text/html' then begin ShowMessage(TIdText(IdMessage1.MessageParts[i]).Body.Text); end; end; |
#9
|
||||
|
||||
ViktorXP - спасибо, про TIdText впервые узнал
как сделаю почтовик на этот сайт выложу, думаю кому нибудь то должен понравится TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |