[alexeysms]

Пересмотрел весь форум, помогите.
Загружаю файл на винт, а как теперь вытащить вложенный файл из тела письма? Delphi 2007.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.Button1Click(Sender: TObject); begin   IdPop31.Connect;   if IdPop31.connected then    begin     if IdPop31.CheckMessages<>0 then       begin         IdMessage1.Clear;         IdPop31.Retrieve(1,IdMessage1);         Memo1.Lines:=IdMessage1.Body;         Label1.Caption:=IdMessage1.From.Address;         Label2.Caption:=IdMessage1.Subject;         IdMessage1.SaveToFile('c:\test_ppp.txt');         IdPop31.Delete(1);       end;     IdPop31.Disconnect;    end; end;

Admin: Пользуемся тегами!

Заранее спасибо.