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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.12.2010, 11:48   #1
WinMen
Пользователь
 
Регистрация: 07.11.2010
Сообщений: 28
По умолчанию Проблема с отправкой почты

Моя программа отправляет почту из текста Memo.
Все ок.
Ток у получателя почта нечитабельна (вместо букв знаки вопроса). что делать?
WinMen вне форума Ответить с цитированием
Старый 28.12.2010, 12:08   #2
shanluu
Пользователь
 
Аватар для shanluu
 
Регистрация: 05.10.2010
Сообщений: 53
По умолчанию

AnsitoUTF8() ?
shanluu вне форума Ответить с цитированием
Старый 28.12.2010, 12:09   #3
WinMen
Пользователь
 
Регистрация: 07.11.2010
Сообщений: 28
По умолчанию

Что??? Можна поподробней
WinMen вне форума Ответить с цитированием
Старый 28.12.2010, 12:14   #4
dosha
Форумчанин
 
Регистрация: 30.08.2010
Сообщений: 224
По умолчанию

измени кодировку функция AnsitoUTF8() переводит с Ansi в UTF8 , мб решит проблему
dosha вне форума Ответить с цитированием
Старый 28.12.2010, 12:28   #5
WinMen
Пользователь
 
Регистрация: 07.11.2010
Сообщений: 28
По умолчанию

Незнаю правильно ли я понял но я в Он Креате формы написал
Код:
 AnsitoUTF8(Memo1.Text);
 AnsitoUTF8(Edit7.Text);
 AnsitoUTF8(Edit8.Text);
 AnsitoUTF8(Edit9.Text);
 AnsitoUTF8(Edit10.Text);
 AnsitoUTF8(ComboBox1.Text);
 AnsitoUTF8(ComboBox2.Text);
не помогло
WinMen вне форума Ответить с цитированием
Старый 28.12.2010, 12:30   #6
dosha
Форумчанин
 
Регистрация: 30.08.2010
Сообщений: 224
По умолчанию

наф oncreate? перед самой отпрвкой почты сделай
dosha вне форума Ответить с цитированием
Старый 28.12.2010, 12:32   #7
_SERGEYX_
Участник клуба
 
Аватар для _SERGEYX_
 
Регистрация: 07.07.2007
Сообщений: 1,518
По умолчанию

Ты бы еще в OnClose написал.
Преобразуй текст в момент отправки
Код:
var s: string;
s:= Memo1.Text;//текст письма
а отправляй
Код:
AnsitoUTF8(s)
_SERGEYX_ вне форума Ответить с цитированием
Старый 28.12.2010, 12:33   #8
shanluu
Пользователь
 
Аватар для shanluu
 
Регистрация: 05.10.2010
Сообщений: 53
По умолчанию

надо писать там где ты отправляешь текст из memo1

c почтой не работал , но чтото типо

Код:
msg:=TIdMessage.Create(nil);
msg.Body.Add(AnsitoUTF8(memo1.text));
shanluu вне форума Ответить с цитированием
Старый 28.12.2010, 12:48   #9
WinMen
Пользователь
 
Регистрация: 07.11.2010
Сообщений: 28
По умолчанию

На строчку
Код:
M.Body.Assign(AnsitoUTF8(Memo1.Lines));
пишет ошибку
[DCC Error] Unit1.pas(84): E2010 Incompatible types: 'string' and 'TStrings'
WinMen вне форума Ответить с цитированием
Старый 28.12.2010, 12:52   #10
_Engine_
Форумчанин
 
Регистрация: 29.06.2008
Сообщений: 603
По умолчанию

Цитата:
Сообщение от WinMen Посмотреть сообщение
На строчку
Код:
M.Body.Assign(AnsitoUTF8(Memo1.Lines));
пишет ошибку
[DCC Error] Unit1.pas(84): E2010 Incompatible types: 'string' and 'TStrings'
Все правильно пишет
_Engine_ вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема с отправкой почты. DeDoK Работа с сетью в Delphi 0 12.12.2010 19:05
Проблема с отправкой письма. Mollerat Работа с сетью в Delphi 1 31.10.2010 20:21
Проблема с отправкой почты Genesis PHP 2 18.05.2009 15:35
Подскажите с отправкой почты Proof Работа с сетью в Delphi 2 19.08.2008 19:46