Вверх ↑
Этот топик читают: Гость
Ответов: 3514
Рейтинг: 184
#46: 2009-04-03 12:55:30 ЛС | профиль | цитата
nesco, я сейчас счастлив всему
карма: 0
0
Разработчик
Ответов: 26163
Рейтинг: 2127
#47: 2009-04-03 13:00:27 ЛС | профиль | цитата
Астрамак, зайди в реестр и посмотри назначение с_1252.nls, если стоит = c_1251.nls, то работать не будет
карма: 22

0
Ответов: 3514
Рейтинг: 184
#48: 2009-04-03 18:58:16 ЛС | профиль | цитата

------------ Дoбавленo:

И?..
карма: 0
0
Ответов: 294
Рейтинг: 64
#49: 2009-04-03 23:38:24 ЛС | профиль | цитата
Астрамак писал(а):
Quest, скинул в личку.

Я конечно извиняюсь, но никаких оповещений не получил, а где на этом форуме помотреть личку - без понятия... Или это привелегия, которую надо заслужить потом, кровью и флудом?
моя почта: otstoy собака pochta ру.
карма: 0

1
Голосовали:Астрамак
Ответов: 3514
Рейтинг: 184
#50: 2009-04-04 08:27:16 ЛС | профиль | цитата
Отправил
карма: 0
0
Ответов: 294
Рейтинг: 64
#51: 2009-04-04 18:35:49 ЛС | профиль | цитата
Астрамак писал(а):
Отправил

Получил.
У меня работает при отсылке post_а, с предварительным переводом заголовка и текста ANSI-UTF8.
В схеме изменены IP, хост и мэйл. Попутно замечен момент - отправка происходит только при двойной команде отправить...
Схемка на скорую руку - исключительно для примера.


#sha
Add(MainForm,9339444,203,196)
{
Width=916
Height=595
Position=1
Point(onClose)
}
Add(TCP_Client,5470849,315,322)
{
Port=80
IP="127.0.0.1"
Point(onError)
link(onRead,2846002:doAdd,[])
link(onConnect,5346244:In,[(369,335)(369,377)])
link(onDisconnect,6905387:doMessage,[(362,342)(362,412)(305,412)(305,426)])
link(Data,6363591:Text,[(328,302)(405,302)])
link(onError,8613749:doMessage,[(355,349)(355,361)(302,361)(302,377)])
}
Add(Button,11399255,252,322)
{
Left=15
Top=60
Caption="Send"
link(onClick,5470849:doOpen,[])
}
Add(RichEdit,2846002,378,322)
{
Left=160
Top=355
Width=735
Height=205
ScrollBars=3
}
Add(Message,8613749,315,371)
{
Message="error"
}
Add(Message,6905387,315,420)
{
Message="disconnect"
}
Add(StrList,6363591,399,238)
{
Strings=#27:POST /publish/text HTTP/1.1|229:Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/x-silverlight, application/x-ms-application, application/x-ms-xbap, application/vnd.ms-xpsdocument, application/xaml+xml, */*|39:Referer: http://xxx.xxx.ru/publish/text|19:Accept-Language: ru|84:Content-Type: multipart/form-data; boundary=---------------------------7d92232d4032e|11:UA-CPU: x86|30:Accept-Encoding: gzip, deflate|131:User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; FDM)|16:Host: xxx.xxx.ru|19:Content-Length: 738|22:Connection: Keep-Alive|23:Cache-Control: no-cache|222:Cookie: tlogs-112=BAh7BzoMdXNlcl9pZGkCZiciCmZsYXNoSUM6J0FjdGlvbkNvbnRyb2xsZXI6%0AOkZsYXNoOjpGbGFzaEhhc2h7AAY6CkB1c2VkewA%3D--c1a2751bfe15d9324fce04d035c361541314e620; login_field_value=pochta%40pochta.ru; comment_identity=|0:|42:-----------------------------7d92232d4032e|50:Content-Disposition: form-data; name="entry[type]"|0:|9:TextEntry|42:-----------------------------7d92232d4032e|57:Content-Disposition: form-data; name="entry[data_part_2]"|
}
Add(FormatStr,14416741,357,238)
{
Mask="
%1
-----------------------------7d92232d4032e
Content-Disposition: form-data; name="entry[data_part_1]"

%2
-----------------------------7d92232d4032e
Content-Disposition: form-data; name="entry[visibility]"

private
-----------------------------7d92232d4032e
Content-Disposition: form-data; name="entry[tag_list]"


-----------------------------7d92232d4032e
Content-Disposition: form-data; name="commit"

Сохранить
-----------------------------7d92232d4032e--"
link(onFString,6363591:doAdd,[])
link(Str1,4455110:Text,[])
link(Str2,2236576:Text,[(370,219)(454,219)])
}
Add(Edit,7469034,315,91)
{
Left=80
Top=5
Width=210
Text="Заголовок"
}
Add(Charset,7061800,315,133)
{
Type=6
link(onCharset,4455110:doText,[])
link(Text,7469034:Text,[])
}
Add(Edit,4455110,357,133)
{
Left=305
Top=5
Width=250
}
Add(Edit,5352256,406,119)
{
Left=80
Top=30
Width=210
Text="Текст"
}
Add(Edit,2236576,448,168)
{
Left=305
Top=30
Width=250
}
Add(Charset,12920198,406,168)
{
Type=6
link(onCharset,2236576:doText,[])
link(Text,5352256:Text,[])
}
Add(Hub,14200659,266,161)
{
OutCount=5
link(onEvent1,7061800:doCharset,[(294,167)(294,139)])
link(onEvent2,12920198:doCharset,[])
link(onEvent3,14416741:doString,[(312,181)(312,244)])
link(onEvent4,13911226:doWork2,[(291,188)(291,272)])
link(onEvent5,13911226:doWork3,[(285,195)(285,290)(298,290)])
}
Add(LineBreak,3525692,189,161)
{
Caption="onConnect"
link(Out,14200659:doEvent1,[])
Primary=[5346244,189,210]
}
Add(HubEx,13911226,294,259)
{
link(onEvent,5470849:doSend,[(309,272)(309,342)])
}


карма: 0

1
Голосовали:Астрамак
Ответов: 3514
Рейтинг: 184
#52: 2009-04-04 18:45:35 ЛС | профиль | цитата
Quest, неужели публикуется латиница? (я кстати для всего этого свой компонент заделал.. свой post)
карма: 0
0
Ответов: 294
Рейтинг: 64
#53: 2009-04-04 18:48:42 ЛС | профиль | цитата
Да, публикуется. Сначала пробовал переводить весь Post ANSI-UTF8 - не хочет, а если только кирилицу - работает.
После копирования схемы из форума в HiAsm "плывут" \r\n
Могу выслать на почту *.sha *.exe и свой логин/пароль (мне оно там все равно ни к чему).
карма: 0

1
Голосовали:Астрамак
Ответов: 3514
Рейтинг: 184
#54: 2009-04-04 18:58:54 ЛС | профиль | цитата
Quest, спасибо большое! Давай, отсылай.
Примного благодарен
карма: 0
0
Ответов: 387
Рейтинг: 34
#55: 2009-04-05 15:42:23 ЛС | профиль | цитата
Quest писал(а):
Я конечно извиняюсь, но никаких оповещений не получил, а где на этом форуме помотреть личку - без понятия...

твой статус Участник не позволяет тебе видеть(хотя они существуют) личные сообщения...
карма: 0

0
Ответов: 294
Рейтинг: 64
#56: 2009-04-05 15:46:51 ЛС | профиль | цитата
Karl писал(а):
твой статус Участник не позволяет тебе видеть


Я так и предположил:

Quest писал(а):
... Или это привелегия, которую надо заслужить потом, кровью и флудом?


Честно говоря не совсем понятна целесообразность... В случае с размещением файлов - оправдано, а в случае с личкой - можно было бы после 10 сообщений включать возможность, ибо злостных спамеров можно забанить до этого.
карма: 0

1
Голосовали:Konst
Ответов: 387
Рейтинг: 34
#57: 2009-04-05 15:53:46 ЛС | профиль | цитата
Согласен, на личные сообщения и избранное правила надобы доработать...
карма: 0

0
Ответов: 463
Рейтинг: 9
#58: 2009-05-16 12:39:54 ЛС | профиль | цитата
nesco писал(а):
Номер кодовой страницы UTF-8 -- 65001, Win-1252 -- 1252
Если не затруднит, ПОЖАЛУЙСТА! Дайте табличку значений название кодировки = число для элемента charset
------------ Дoбавленo в 12.44:
Below is a table of code page IDs, see the web site of Torsten Mohrin for possible updates on this table.
CP ID Char Set Name (or something...) IANA Char Set ID Src. Remarks
037 EBCDIC IBM037 1
290 IBM Extended English Katakana IBM290 6 EBCDIC?, SNA Server TrnsDT, =20290
300 IBM Japanese Character Sets (?) ? 6 EBCDIC?, SNA Server TrnsDT
437 MS-DOS United States IBM437 1
500 EBCDIC "500V1" IBM500 1
708 Arabic (ASMO 708) ISO-8859-6 1
709 Arabic (ASMO 449+, BCON V4) ASMO_449 1
710 MS-DOS Arabic (Transparent Arabic) ? 1
711 Arabic (Nafitha Enhanced) ? 2
720 Arabic (Transparent ASMO) ? 1
737 MS-DOS Greek (formerly 437G) ? 1
775 MS-DOS Baltic IBM775 1
833 IBM Hangul Extended Single-Byte (?) ? 6 EBCDIC?, SNA Server TrnsDT
834 Korean Host Double-byte ? 6 EBCDIC?, SNA Server TrnsDT
835 IBM Traditional Chinese Character Sets (?) ? 6 EBCDIC?, SNA Server TrnsDT
836 Simplified Chinese Single-Byte (?) ? 6 EBCDIC?, SNA Server TrnsDT
837 IBM Simplified Chinese Character Sets (?) ? 6 EBCDIC?, SNA Server TrnsDT
850 MS-DOS Multilingual (Latin I) IBM850 1
852 MS-DOS Slavic (Latin II) IBM852 1
855 IBM Cyrillic (primarily Russian) IBM855 1 MS-DOS
857 IBM Turkish IBM857 1 MS-DOS
860 MS-DOS Portuguese IBM860 1
861 MS-DOS Icelandic IBM861 1
862 MS-DOS Hebrew IBM862 1
863 MS-DOS Canadian-French IBM863 1
864 MS-DOS Arabic IBM864 1
865 MS-DOS Nordic IBM865 1
866 MS-DOS Russian, Cyrillic IBM866 1
869 IBM Modern Greek IBM869 1 MS-DOS
870 IBM EBCDIC Latin-2 IBM870 ?
874 Thai ? 1 Windows/MS-DOS
875 IBM Greek EBCDIC IBM423 (?) 1
932 Japanese ? 1 MS-DOS, Shift-JIS(?)
936 Chinese (China, Singapore) GB_2312-80 1 MS-DOS, (Simplified Chinese)
949 Korean (Wansung) KS_C_5601-1987 1 MS-DOS, (Unified Hangul)
950 Chinese (Taiwan) Big5 1 MS-DOS, (Traditional Chinese)
1026 IBM Turkish EBCDIC IBM1026 3
1027 IBM Extended Lowercase English ? 6 EBCDIC?, SNA Server TrnsDT
1200 Universal Alphabet (Unicode) (ISO-10646-UCS-2) 1 Little Endian
1201 Universal Alphabet (Unicode) (ISO-10646-UCS-2) 1 Big Endian
1250 Windows Central European windows-1250 1
1251 Windows Cyrillic windows-1251 1
1252 Windows Western European/US windows-1252 1
1253 Windows Greek windows-1253 1
1254 Windows Turkish windows-1254 1
1255 Windows Hebrew windows-1255 1
1256 Windows Arabic windows-1256 1
1257 Windows Baltic windows-1257 1
1258 Windows Vietnamese windows-1258 1 +MS-DOS
1361 Windows Korean KS_C_5601-1992 (?) 1
10000 Macintosh Roman ? 1
10001 Macintosh Japanese ? 1
10002 Macintosh Chinese ? ?
10003 Macintosh Korean ? ?
10004 Macintosh Arabic ? ?
10005 Macintosh Hebrew ? ?
10006 Macintosh Greek 1 ? 1
10007 Macintosh Cyrillic ? 1
10008 Macintosh ? ? ?
10010 Macintosh Romanian ? ?
10017 Macintosh Ukrainian ? ?
10029 Macintosh Latin 2 ? 1
10079 Macintosh Icelandic ? 1
10081 Macintosh Turkish ? 1
10082 Macintosh Croatian ? ?
20105 IA5 IRV DIN_66003 4
20106 IA6 (German) DIN_66003 4
20107 IA6 (Swedish) SEN_850200_B 4
20108 IA6 (Norwegian) NS_4551-1 4
20261 T.61 T.61-8bit 5 Teletext
20269 ISO-6937 ? ?
20273 IBM EBCDIC Germany IBM273 (?) 6
20277 IBM EBCDIC Denmark/Norway IBM277 (?) 6
20278 IBM EBCDIC Finland/Sweden IBM278 (?) 6
20280 IBM EBCDIC Italy IBM280 (?) 6
20284 IBM EBCDIC Latin America/Spain IBM284 (?) 6
20285 IBM EBCDIC United Kingdom IBM285 (?) 6
20290 IBM EBCDIC Japanese IBM290 ? Kana, =290
20297 IBM EBCDIC France IBM297 6
20420 IBM EBCDIC Arabic IBM420 6
20423 IBM EBCDIC Greek IBM423 6
20833 Korean (IBM EBCDIC?) ? ?
20838 IBM EBCDIC Thai IBM-Thai 6
20866 Russian - KOI8-R KOI8-R 4
20871 IBM EBCDIC Icelandic IBM871 6
20880 IBM EBCDIC Cyrillic IBM880 6
20905 IBM EBCDIC Turkish IBM905 6
21025 IBM EBCDIC Cyrillic ? 6
21027 Japanese (?) ? ?
21866 Ukranian - KOI8-RU KOI8-U ? RFC 2319
28591 ISO 8859-1 Western ISO_8859-1:1987 4
28592 ISO 8859-2 Eastern Europe ISO_8859-2:1987 4
28593 ISO 8859-3 Turkish ISO_8859-3:1988 4
28594 ISO 8859-4 Baltic ISO_8859-4:1988 4
28595 ISO 8859-5 Cyrillic ISO_8859-5:1988 4
28596 ISO 8859-6 Arabic ISO_8859-6:1987 4
28597 ISO 8859-7 Greek ISO_8859-7:1987 4
28598 ISO 8859-8 Hebrew ISO_8859-8:1988 4
28599 ISO 8859-9 ISO_8859-9:1989 4
29001 ? ? ?
50000 User Defined (x-user-defined) 4 (*50000)
50220 Japanese (JIS) ISO-2022-JP (?) 4
50221 Japanese (JIS) ISO-2022-JP (?) 4 Allow 1 byte kana
50222 Japanese (JIS) ISO-2022-JP (?) 4 Allow 1 byte kana
50225 Korean ISO-2022-KR 4
50932 Japanese (autodetect) ? 4
50949 Korean (autodetect) ? 4
51932 Japanese (EUC) EUC-JP 4
51949 Korean (EUC) EUC-KR 4
52936 Simplified Chinese HZ-GB-2312 4
65000 Unicode UTF-7 UTF-7 4 (*65000)
65001 Unicode UTF-8 UTF-8 4 (*65001)
------------ Дoбавленo в 12.45:
это такое нужно ? я правильно нашел?
карма: 0

0
Разработчик
Ответов: 26163
Рейтинг: 2127
#59: 2009-05-16 12:47:23 ЛС | профиль | цитата
ajaxii писал(а):
это такое нужно ? я правильно нашел?

Ну да, это оно и есть. Диагноз -- поместить срочно в Wiki
карма: 22

0
Ответов: 463
Рейтинг: 9
#60: 2009-05-16 12:50:10 ЛС | профиль | цитата
nesco, спасибо! Еще бы это в хелп для элемента charset добавить ,чтобы не париться... Я на поиски угробил часа 4! потом только через форум ссылку увидел.
------------ Дoбавленo в 12.53:
nesco, добавь в Wiki плиз!!! у меня не выходит .. %(
карма: 0

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)