Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

IdPOP3 или NMPOP3 что лучше использовать

Jonni_M © (2003-07-24 18:04:00)
Извиняюсь заранее ... но мне пришлось сменить тему сообщения что бы не вводить Вас всех в заблуждения. Простите новичка пожалуйсто. Впредь спешить не буду. Кто может поможет вот в таком случае

procedure TForm1.BitBtn2Click(Sender: TObject);
var
S: String;
M: Integer;
begin
if NMPOP31.MailCount > 0 then
begin
if InputQuery("Retrieve an E-Mail message", "Which message? (1-"+IntToStr(NMPOP31.MailCount)+")", S) then
begin
M := StrToIntDef(S, -1);
If (M < 0) or (M > NMPOP31.MailCount) then
ShowMessage("Invalid message index")
else
NMPOP31.GetMailMessage(M);
Memo1.Text := NMPOP31.MailMessage.Body.Text;
Edit1.Text := NMPOP31.MailMessage.Subject;
Edit2.Text := NMPOP31.MailMessage.From;
end;
end
else
( "No Messages to Get")
Извиняюсь заранее ... но мне пришлось сменить тему сообщения что бы не вводить Вас всех в заблуждения. Простите новичка пожалуйсто. Впредь спешить не буду. Кто может поможет вот в таком случае

procedure TForm1.BitBtn2Click(Sender: TObject);
var
S: String;
M: Integer;
begin
if NMPOP31.MailCount > 0 then
begin
if InputQuery("Retrieve an E-Mail message", "Which message? (1-"+IntToStr(NMPOP31.MailCount)+")", S) then
begin
M := StrToIntDef(S, -1);
If (M < 0) or (M > NMPOP31.MailCount) then
ShowMessage("Invalid message index")
else
NMPOP31.GetMailMessage(M);
Memo1.Text := NMPOP31.MailMessage.Body.Text;
Edit1.Text := NMPOP31.MailMessage.Subject;
Edit2.Text := NMPOP31.MailMessage.From;
end;
end
else
ShowMessage("No Messages to Get");
end;
это всё почти из книжки. Проблема в том что програмка пробует сохранять темповский файл на POP3 сервере. Отсюда ошибка. Как сделать по другому кто подскажет. Можно с примером!

Fay (2003-07-24 18:48:00) [1]

top?

Jonni_M (2003-07-24 18:25:00) [2]

Во кажись вопрос прорисовался полностью. Всё на самом деле, для Вас наверное, обстоит просто.. мне необходимо используя Делфи забрать заголовки писем с POP3 сервера и записать их в базу данных. Вот через 15 часов наконец то правильно сформулировал вопрос!

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »