Замечание к документу "Уже исправленная версия..."   >>>   
Тема: Ничего личного, но хреновые в Интертрасте Деды Морозы ;) обязательно в WinAPI залезать надо было? все свое есть - портабильное.

Создан:Dmitry Akulov; Heineken 11/22/2003 02:19 AM
Папка:
05. Notes APIs (C/DXL/etc)		Тип сообщения:
Мне лень заполнять это поле
Сообщение:

Const ITEM_NOFLAG% = &H0
Const TYPE_HTML = 21 ' LMBCS-encoded HTML, >64K handled by more than one item of same name concatenated
Const OS_TRANSLATE_NATIVE_TO_LMBCS = 0 ' Translate platform-specific to LMBCS

Declare Function W32_NSFItemAppendS Lib "nnotes.dll" Alias "NSFItemAppend" (Byval nHandle As Long, Byval iFlags As Integer, Byval iName As Lmbcs String, Byval iNameLength As Integer, Byval iType As Integer, Byval iValuePointer As Lmbcs String, Byval iValueLength As Long) As Integer

Declare Function W32_OSTranslate Lib "nnotes.dll" Alias "OSTranslate" (Byval TranslateMode As Integer, Byval InString As String, Byval InLength As Integer, Byval OutString As String, Byval OutLength As Integer) As Integer

Function MakeHTMLItem(doc As NotesDocument, itemName As String, html As String) As Integer
Dim length As Integer
Dim html2 As String
html2=ToNotes(Html)
If doc.HasITem(itemName) Then
doc.RemoveItem(itemName)
End If
MakeHTMLItem=W32_NSFItemAppendS(doc.Handle,ITEM_NOFLAG,itemName,Len(itemName),Cint(TYPE_HTML), html, Len(html2))
End Function

Private Function ToNotes(Byval Source As String) As String
Dim tmp As String
Dim i As Integer
tmp = Space$(2 * Len(Source)) + Chr(0)
Source = Source + Chr(0)
i = W32_OSTranslate(OS_TRANSLATE_NATIVE_TO_LMBCS, Source, Len(Source) - 1, tmp, Len(tmp) - 1)
If i = 0 Then Err= 13
ToNotes = Left(tmp, i)
End Function
Иерархия документов данной дискуссии:
Всем подарок к рождеству! (Dmitry Akulov; Heineken) (06.01.2003 17:43:38)
.... хорошая штука. но в 4.6.х не работает :-( (Maxim V Kittaev; Belpsbsrv) (08.01.2003 14:17:09)
........ в 5 и 6 работает, осталось 22 дня до окончания саппорта 4.6.х нашим вендором (+) (Dmitry Akulov; Heineken) (08.01.2003 17:13:43)
............ да... а у нас еще ох долго и успешно будут пахать пентиумы - 100 с 16 метрами мозгов... (Maxim V Kittaev; Belpsbsrv) (08.01.2003 18:05:57)
.... Известно, куда пригодится. +++ (Alexandr G. Chudilin) (11.01.2003 12:37:58)
.... Класно!... Вот бы еще..... (Du ChAN) (16.01.2003 7:27:24)
........ А image resource не пробовал? (Nick A Norkin; VIT Server B) (16.01.2003 12:13:23)
.... Классно! А как бы вот еще русские символы передавать... (+) (Nick A Norkin; VIT Server B) (28.01.2003 10:49:51)
........ можно конвертнуть строку функцией OSTranslate и посмотреть ее длину (Dmitry Akulov; Heineken) (28.01.2003 12:59:47)
............ Ага! На станции сработало... Сейчас бум пробовать на сервере (+) (Nick A Norkin; VIT Server B) (29.01.2003 8:51:13)
.... Глюк загадочный проявился: таблицы немного шалят (Alexandr G. Chudilin) (29.01.2003 9:26:39)
........ Уже исправленная версия... (Natalia G. Kozlova; NotesSrv400) (18.11.2003 16:41:43)
............ Подождала бы уж до следующего рождества...:) (Ilia Y. Kletser; InterTrust) (18.11.2003 16:45:27)
............ Ничего личного, но хреновые в Интертрасте Деды Морозы ;) обязательно в WinAPI залезать надо было? все свое есть - портабильное. (Dmitry Akulov; Heineken) (22.11.2003 2:19:44)
.... (Data Type: HTML) --?--> (Data Type: Rich Text) (Pavel Severov) (17.11.2003 17:03:50)
........ Очевидно есть (Dmitry Akulov; Heineken) (18.11.2003 1:13:00)
.... R6.0.4: траурная рамка таблиц (+) (Nick A Norkin; VIT Server B) (23.09.2004 9:27:57)
........ мдя... в интернете выглядит одинаково... привожу скриншотик (+) (Nick A Norkin; VIT Server B) (23.09.2004 12:41:22)
............ Как мне кажется, CSS ничем не поможет. :( (Oleg I Bosenko) (27.10.2004 17:52:43)
................ ну... не толщину... может, цвет границы? (-) (Nick A Norkin; VIT Server B) (28.10.2004 12:58:38)
.................... Если только на 6.х - можно скомбинировать оба метода ..(+) (Rinat N. Karimov; Matrix) (28.10.2004 12:34:43)
................ CSS поможет в вебе. В нотесе - сомнительно.... (Александр Чудилин; Grot) (28.10.2004 10:56:25)
.... А как победить 64K ??? (Mikle Bogatyreff) (09.03.2007 12:32:07)
........ а что коцать строку на части и подсовывать NSFAppendItem не удалось ? Когда бум открывать на ws лотус сложит их в одну кучу (-) (Mitka Akulov) (09.03.2007 14:34:25)
............ Я всё понял, бросаю пить :))) (Mikle Bogatyreff) (10.03.2007 11:58:05)
................ странный вывод, ну да ладно. в ориг. коде неточность, надо длину HTML строки получать иначе, например win32api функцией, Len - врет, если русские символы встречаются. (Mitka Akulov) (10.03.2007 19:26:18)
.... это орден, imho... (+) (Denis Samoylovich) (08.01.2003 14:59:52)


Разработчикам и администраторам: курсы, книги, сертификация