Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 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.48 MB
Время: 0.305 c
15-1143701676
balepa
2006-03-30 10:54
2006.04.23
Try if and GetLastError


4-1138802484
DDDiM
2006-02-01 17:01
2006.04.23
шпион за com портом


15-1143469162
Piter
2006-03-27 18:19
2006.04.23
Программа для определения mp3


6-1136916833
vladik
2006-01-10 21:13
2006.04.23
FTP на базе сокетов


1-1142156181
TStas
2006-03-12 12:36
2006.04.23
КАк программно распаковать папку?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский