Форум: "Прочее";
Текущий архив: 2006.04.23;
Скачать: [xml.tar.bz2];
Внизmailto link Найти похожие ветки
← →
WondeRu © (2006-03-30 09:05) [0]Подскажите, пожалуйста, как указать русскую тему сообщения в ссылке mailto?
Делаю следующее:mailto:info@mail.ru?subject=Тема письма
но принажатии на ссылку, в оутлуке в поле темы появляется строка вида:%C2%EE%EF%F0%EE%F1%EF%
← →
КиТаЯц © (2006-03-30 09:41) [1]Так напиши в виде
mailto:info@mail.ru?subject=%C2%EE%EF%F0%EE%F1%EF%
будет появлятьсяТема письма
:)
← →
WondeRu © (2006-03-30 11:39) [2]так и сделал)
нашел даже визард подобной мути)
http://www.cmg02.com/cg2/mailto.htm
← →
КиТаЯц © (2006-03-30 12:08) [3]Держи, как замляку дарю :)
function StringReplaceAll (Text, Chto, Chem: string): string;
var IsPos : integer;
begin
if (not(Chto = Chem)) then begin
while pos(Chto, Text) > 0 do begin
IsPos := pos(Chto, text);
delete (Text, IsPos, length(Chto));
insert (Chem, Text, IsPos);
end;
end;
result := Text;
end;
function UrlString(InText: string): string;
begin
result:= InText;
result:= StringReplaceAll(result, _ , "%20");
result:= StringReplaceAll(result, "А", "%C0");
result:= StringReplaceAll(result, "Б", "%C1");
result:= StringReplaceAll(result, "В", "%C2");
result:= StringReplaceAll(result, "Г", "%C3");
result:= StringReplaceAll(result, "Д", "%C4");
result:= StringReplaceAll(result, "Е", "%C5");
result:= StringReplaceAll(result, "Ж", "%C6");
result:= StringReplaceAll(result, "З", "%C7");
result:= StringReplaceAll(result, "И", "%C8");
result:= StringReplaceAll(result, "Й", "%C9");
result:= StringReplaceAll(result, "К", "%CA");
result:= StringReplaceAll(result, "Л", "%CB");
result:= StringReplaceAll(result, "М", "%CC");
result:= StringReplaceAll(result, "Н", "%CD");
result:= StringReplaceAll(result, "О", "%CE");
result:= StringReplaceAll(result, "П", "%CF");
result:= StringReplaceAll(result, "Р", "%D0");
result:= StringReplaceAll(result, "С", "%D1");
result:= StringReplaceAll(result, "Т", "%D2");
result:= StringReplaceAll(result, "У", "%D3");
result:= StringReplaceAll(result, "Ф", "%D4");
result:= StringReplaceAll(result, "Х", "%D5");
result:= StringReplaceAll(result, "Ц", "%D6");
result:= StringReplaceAll(result, "Ч", "%D7");
result:= StringReplaceAll(result, "Ш", "%D8");
result:= StringReplaceAll(result, "Щ", "%D9");
result:= StringReplaceAll(result, "Ь", "%DA");
result:= StringReplaceAll(result, "Ы", "%DB");
result:= StringReplaceAll(result, "Ъ", "%DC");
result:= StringReplaceAll(result, "Э", "%DD");
result:= StringReplaceAll(result, "Ю", "%DE");
result:= StringReplaceAll(result, "Я", "%DF");
result:= StringReplaceAll(result, "а", "%E0");
result:= StringReplaceAll(result, "б", "%E1");
result:= StringReplaceAll(result, "в", "%E2");
result:= StringReplaceAll(result, "г", "%E3");
result:= StringReplaceAll(result, "д", "%E4");
result:= StringReplaceAll(result, "е", "%E5");
result:= StringReplaceAll(result, "ж", "%E6");
result:= StringReplaceAll(result, "з", "%E7");
result:= StringReplaceAll(result, "и", "%E8");
result:= StringReplaceAll(result, "й", "%E9");
result:= StringReplaceAll(result, "к", "%EA");
result:= StringReplaceAll(result, "л", "%EB");
result:= StringReplaceAll(result, "м", "%EC");
result:= StringReplaceAll(result, "н", "%ED");
result:= StringReplaceAll(result, "о", "%EE");
result:= StringReplaceAll(result, "п", "%EF");
result:= StringReplaceAll(result, "р", "%F0");
result:= StringReplaceAll(result, "с", "%F1");
result:= StringReplaceAll(result, "т", "%F2");
result:= StringReplaceAll(result, "у", "%F3");
result:= StringReplaceAll(result, "ф", "%F4");
result:= StringReplaceAll(result, "х", "%F5");
result:= StringReplaceAll(result, "ц", "%F6");
result:= StringReplaceAll(result, "ч", "%F7");
result:= StringReplaceAll(result, "ш", "%F8");
result:= StringReplaceAll(result, "щ", "%F9");
result:= StringReplaceAll(result, "ъ", "%FA");
result:= StringReplaceAll(result, "ы", "%FB");
result:= StringReplaceAll(result, "ь", "%FC");
result:= StringReplaceAll(result, "э", "%FD");
result:= StringReplaceAll(result, "ю", "%FE");
result:= StringReplaceAll(result, "я", "%FF");
end;
Пример:procedure TMainForm.AMailExecute(Sender: TObject);
begin
ShellExecute(handle,"OPEN" , PAnsiChar(UrlString("mailto:Автору проги<xxx@mail.ru>?subject=Касательно Вашей программы")), nil, nil, SW_SHOWNORMAL);
end;
← →
КиТаЯц © (2006-03-30 12:10) [4]Попроавочка...
"%20" это пробел. Убого, конечно, зато эффективно. :)
← →
Gero © (2006-03-30 12:12) [5]> [3] КиТаЯц © (30.03.06 12:08)
О ужас.
Для этих целей существует IntToHex.
← →
КиТаЯц © (2006-03-30 12:37) [6]
> Gero © (30.03.06 12:12) [5]
>
> > [3] КиТаЯц © (30.03.06 12:08)
>
> О ужас.
>
>Для этих целей существует IntToHex.
Да знаю :)
Я же и пишу - "убого". Сто лет назад еще юнит накорябал, все не переделаю.
← →
calm © (2006-03-30 12:41) [7]
> О ужас.
Да ладно...
Ему далеко до парня, который написал фукнкцию для прибавления к переменным типа TDataTime нужного количества дней :)
← →
Calm © (2006-03-30 12:43) [8]
> нашел даже визард подобной мути)
Вот только с кириллицей он нифига не работает.
← →
WondeRu © (2006-03-30 16:46) [9]Calm © (30.03.06 12:43) [8]
Вот только с кириллицей он нифига не работает.
работает! нажимает на кнопку генерации, появляется окошечко с ссылкой. потом копируем ссылку (я это в опере сделал) и все :)
← →
calm © (2006-03-30 16:56) [10]
работает! нажимает на кнопку генерации, появляется окошечко с ссылкой. потом копируем ссылку (я это в опере сделал) и все :)
Я даже нажимал в окошечке на эту самую ссылку. Ничего хорошего мой Outlook мне не показал, одни кракозябры.
← →
Romkin © (2006-03-30 16:59) [11]HTTPEncode :)
← →
antonn © (2006-03-30 18:40) [12]calm © (30.03.06 16:56) [10]
Я даже нажимал в окошечке на эту самую ссылку. Ничего хорошего мой Outlook мне не показал, одни кракозябры.
аналогично и Зе_Бат 1,62 в строке темы иероглифы
← →
WondeRu © (2006-03-30 18:54) [13]кстати, да, в Опере работает, а в Эксплорере жопа(
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2006.04.23;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.014 c