VPF::Самый, самый простой SMTP почтовик.

_hunter

Дата 31.8.2006, 13:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98

Цитата(Lence @ 31.8.2006, 13:26

)

Соединение с сервером POP3 удачно

ты ничего не перепутал, случайно? ;)

--------------------

Tempora mutantur, et nos mutamur in illis...

Lence

Дата 31.8.2006, 14:23 (ссылка)

(нет голосов)

Загрузка ...

Чухарадземадзупэ

Профиль
Группа: Участник
Сообщений: 209
Регистрация: 9.5.2006
Где: Ташкент

Репутация: нет
Всего: 3

Цитата(_hunter @ 31.8.2006, 13:31)

Цитата(Lence @ 31.8.2006, 13:26

)

Соединение с сервером POP3 удачно

ты ничего не перепутал, случайно? ;)

что я мог напутать ???? я дал лог программы ... это она мне дала это сообщение.... )))))

--------------------

Шуруп, забитый молотком, крепче сидит чем гвоздь, закрученный отверткой ....

Matematik

Дата 31.8.2006, 16:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

Код в сообщении Дата 2.6.2006, 19:56 плохой
ошибка раз в
Проверка на ip адрес таким кодом

Код


    if name[4]='.' then
      InAddr.s_addr := inet_addr(PChar(name))
    else

так лучше

Код


  {Определение IP-адреса по доменному имени }
  function LookupName(name:String): TInAddr;
  var
    HostEnt: PHostEnt;
    InAddr: TInAddr;
  begin
    HostEnt := gethostbyname(PChar(name));
    FillChar(InAddr, SizeOf(InAddr), 0);
    if HostEnt <> nil then
    begin
      with InAddr, HostEnt^ do
      begin
        S_un_b.s_b1 := h_addr^[0];
        S_un_b.s_b2 := h_addr^[1];
        S_un_b.s_b3 := h_addr^[2];
        S_un_b.s_b4 := h_addr^[3];
      end;
    end;
    Result := InAddr;
  end;

И главное, отправка почты с авторизацией на POP3 сервере бред

Добавлено @ 16:22
Сам код не плохой, только добавить авторизацию и все будет супер

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »