Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.01.2011, 16:29   #1
jskorvin
Пользователь
 
Регистрация: 27.09.2010
Сообщений: 16
Вопрос synapse кодировка(?) письма

Получаю письмо при помощи синапса
Исходник письма, переносы строк сохранены:
Код:
Return-path: <myaquaspace@packers.dreamhost.com>
Envelope-to: mymail@formymail.ru
Delivery-date: Mon, 03 Jan 2011 14:25:22 +0300
Received: from smarty.dreamhost.com ([208.113.175.8])
	by caro2.fastbighost.com with esmtp (Exim 4.69)
	(envelope-from <myaquaspace@packers.dreamhost.com>)
	id 1PZiXR-0004FK-U1
	for mymail@formymail.ru; Mon, 03 Jan 2011 14:25:21 +0300
Received: from packers.dreamhost.com (packers.dreamhost.com [69.163.150.202])
	by smarty.dreamhost.com (Postfix) with ESMTP id 116566E8064
	for <mymail@formymail.ru>; Mon,  3 Jan 2011 03:25:36 -0800 (PST)
Received: by packers.dreamhost.com (Postfix, from userid 9964439)
	id 10BA2311B5; Mon,  3 Jan 2011 03:25:36 -0800 (PST)
To: mymail@formymail.ru
Subject: =?UTF-8?B?Y2hlYXBlc3RfeGFuYXhfb25saW5lXzI0MDggcGxlYXNlIGNvbmZpcm0geW91?=
 =?UTF-8?B?ciBlbWFpbCBhZGRyZXNzIQ==?=
From: "A social networking site for aqua hobbyist" <admin@myaquaspace.com>
Content-Type: text/plain; charset=UTF-8; format=flowed
MIME-Version: 1.0
Message-Id: <20110103112536.10BA2311B5@packers.dreamhost.com>
Date: Mon,  3 Jan 2011 03:25:36 -0800 (PST)
Content-Transfer-Encoding: quoted-printable
X-Spam-Status: No, score=
X-Spam-Score:
X-Spam-Bar:
X-Spam-Report:
X-Spam-Flag: NO

Hi *******

Please confirm your email address by clicking on the link below:

http://www.myaquaspace.com/action/email/confirm?u=3D2239&c=3Decb09519b8d0=
603dd855706c0198919b
На форме кнопка и мемо
Код:
procedure TForm2.Button1Click(Sender: TObject);
var
pop: TPOP3Send;
begin
pop:=TPOP3Send.Create;

    pop.TargetHost  := 'mail.formymail.ru';    // Хост
    pop.UserName    := 'login@formymail.ru';       // юзер
    pop.Password    := 'pass';               // пароль

pop.Login;        // логинемся

  pop.Retr(1);      // скачиваем Первое письмо
  memo1.Lines.Add(pop.FullResult.Text);  // Полное тело письма

pop.Logout;  // Логаут



end;
Синапс ведет себя ровно как положено, но нужно больше..
Ожидается
Цитата:
_http://www.myaquaspace.com/action/email/confirm?u=2239&c=ecb09519b8d0603dd8 55706c0198919b
Через веб интерфейс почтовика именно эта ссылка.
В исходнике страницы веб интерфейса почтовика
Цитата:
_http://www.myaquaspace.com/action/email/confirm?u=2239&amp;c=ecb09519b8d0603dd855706c0198919b
Возможно это и не то, но в том месте.

Вопрос собственно как получить нормальную ссылку?
u=3D2239 вместо
u=2239 намекает на кодировку
это
c=3Decb09519b8d0=
603dd855706c0198919b
вместо этого
c=603dd855706c0198919b
Каааак?!(((

udp

Инди правильно понимает ссылку в письме, обидно однака..
Продолжая двигаться по направления подвижек не получил

Код:
procedure TForm2.Button1Click(Sender: TObject);
var
pop: TPOP3Send;
Mess: TMimeMess;
begin
pop:=TPOP3Send.Create;
Mess:=TMimeMess.Create;

    pop.TargetHost  := 'mail.formymail.ru';    // Хост
    pop.UserName    := 'login@formymail.ru';       // юзер
    pop.Password    := 'pass';               // пароль

pop.Login;        // логинемся

  pop.Retr(1);
          Mess.Clear;
          Mess.Lines.Assign(pop.FullResult);
       //   Mess.Header.CharsetCode := synachar.UTF_8;
          Mess.DecodeMessage;

 Memo1.Text:=Mess.MessagePart.PartBody.Text;
pop.Logout;  // Логаут
end;

Может по этому коду где явную ошибку делаю?

Последний раз редактировалось jskorvin; 03.01.2011 в 18:47.
jskorvin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Synapse + HTTPS = 404 chikaga Работа с сетью в Delphi 10 17.01.2014 23:03
отправка файла synapse Slimshaddy Работа с сетью в Delphi 3 30.07.2013 01:27
Работа с некоторомы функциями synapse nikolas0 Работа с сетью в Delphi 0 18.12.2010 20:58
Кривой synapse? chikaga Работа с сетью в Delphi 2 15.12.2010 12:03
Synapse FanRa3 Общие вопросы Delphi 1 09.12.2010 21:06