[AleD]

Решил сделать свою программку для проверки и вывода почты, но с сетью мало работал поэтому опыта вообще нету. У меня собственно 2 вопроса:
1) как получить число писем, затем каждое прочитать (от кого, кому, приложения и текст письма)
2) как получить буфер (или блок, не знаю как называется) файла (например 2 байта из позиции 10 байт) файла которые находится в интернете (http://.../file.dat)
кто понял что из моего сказанного помогите пли3зz

[AleD]

хм, вроде бы разорался как подключатся и получить список писем, но всё таки скажите как прочитать письма! (юзаю Indy)

[lmikle]

Через TIdPOP3.
Метод Retrive вытаскивает все письмо целиком, метод RetriveHeader - только заголовок (служебную часть, где указаны отправитель, получатель, тема, дата и т.д.)

[Rat]

А по мне так лучше сокетами пользоваться и непосредственно общаться с серваком. Ибо многие используемые поля с помощью инди не вставишь. Опять же с кирилицей в различных кодировках у инди косяки.

[AleD]

спасибо за внимание, но я сам разобрался :-D

[AleD]

Простите канеш , но почему то когда я "вытаскиваю" письма из почтовика свойство Mail.Body (TStringList) (знаю и пользуюсь Retrieve) совершенно пустое, хотя я точно уверен что письмо с текстом
и кстати, я так понял вытаскивать письма нужно начиная с 1 или с 0?

[ViktorXP]

В делфи все с нуля окромя строки.

Простите канеш , но почему то когда я "вытаскиваю" письма из почтовика свойство Mail.Body (TStringList) (знаю и пользуюсь Retrieve) совершенно пустое, хотя я точно уверен что письмо с текстом

Если писмо идет как HTML то тело будет лежать во вложении. (как прикрепленный файл). тип контента у него будет 'text/html'

А по мне так лучше сокетами пользоваться и непосредственно общаться с серваком. Ибо многие используемые поля с помощью инди не вставишь. Опять же с кирилицей в различных кодировках у инди косяки.

Ни разу небыло ни каких проблем. все великолепно перекодирует. (если канешно сервер на стандартах работает).
Но это все в десятой версии, ибо знаю не по наслышки что в восмой глюки сумашедшие (другие не юзал).

[ViktorXP]

гдето так

Код:

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;

[AleD]

ViktorXP - спасибо, про TIdText впервые узнал
как сделаю почтовик на этот сайт выложу, думаю кому нибудь то должен понравится