ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Не могу послать сообщение юзеру
7 сообщений из 7, страница 1 из 1
Не могу послать сообщение юзеру
    #34427834
ALEXPFR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ALEXPFR
Гость
Привет все.
Что-то я заплутал в коде который не помю где нашел:

nServer='QWERTY' && что-то не понимаю здесь
cToName='PVN'
cFromName='ALEXPFR'
cMsg='ЭТО РЕАЛЬНОЕ СООБЩЕНИЕ'
nSize=LEN(cmsg)
DECLARE Long NetMessageBufferSend IN NETAPI32 AS MessageSend ;
LONG nServer, ;
STRING cToName, ;
STRING cFromName, ;
STRING cMsg, ;
LONG nSize
mmm=MessageSend(0, STRCONV(cFromName + CHR(0), 5), 0, STRCONV(cMsg, 5), LEN(STRCONV(cMsg, 5)))
WAIT WINDOW STR(mmm)

мой комп: ALEXPFR
комп юзера: PVN

Может кто поможет разобраться ! Заранее спасибо.
...
Рейтинг: 0 / 0
30.03.2007, 15:27
| Ответить | Цитировать | Написать  
Не могу послать сообщение юзеру
    #34428006
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Сам эту функцию не пользовал, но думаю команда NET SEND использует те же механизмы.
Поэксперементируй сначала с NET SEND из командной строки
Вероятней всего у юзера выключена служба приема сообщений.
...
Рейтинг: 0 / 0
30.03.2007, 16:10
| Ответить | Цитировать | Написать  
Не могу послать сообщение юзеру
    #34428071
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
чему mmm равно ?
Варианты:
0 NERR_Success
5 ERROR_ACCESS_DENIED The user does not have access to the requested information.
87 ERROR_INVALID_PARAMETER The specified parameter is invalid.
50 ERROR_NOT_SUPPORTED This network request is not supported.
2273 NERR_NameNotFound The user name could not be found.
2136 NERR_NetworkError A general failure occurred in the network hardware.

ты не указал куда слать :) точнее шлешь себе
попробуй так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
DECLARE Long NetMessageBufferSend IN NETAPI32 AS MessageSend ;
LONG , ;
STRING , ;
STRING , ;
STRING @, ;
LONG 

cToName='PVN'
cMsg='ЭТО РЕАЛЬНОЕ СООБЩЕНИЕ'
cMSGUNICODE = STRCONV(cMsg + CHR( 0 ),  5 )
mmm=MessageSend( 0 , STRCONV(cToName + CHR( 0 ),  5 ),  0 , @cMSGUNICODE, LEN(cMsg))
WAIT WINDOW STR(mmm)
Не уверен что cToName правильно возможно надо домен\PVN или вообще имя пользователя попробовать. в MSDN как-то непонятно про этот параметр написано:
Pointer to a constant string that specifies the message alias to which the message buffer should be sent
...
Рейтинг: 0 / 0
30.03.2007, 16:32
| Ответить | Цитировать | Написать  
Не могу послать сообщение юзеру
    #34428169
ALEXPFR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ALEXPFR
Гость
To Dima T.
Действительно, получаю сообщение я сам.
Код завершения программы mmm=0
Примерно полгода назад был у меня нормальный код, да удалил случайно. Теперь мучаюсь...
Все параметры перепробовал - никак !
...
Рейтинг: 0 / 0
30.03.2007, 16:57
| Ответить | Цитировать | Написать  
Не могу послать сообщение юзеру
    #34428350
Aptex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aptex
Гость
*/* требует запуска службы сообщений на получателе
DECLARE INTEGER NetMessageBufferSend IN NETAPI32 STRING,STRING,STRING,STRING,INTEGER
lcTo = "It-vova"
lcMessage = "Вова,привет!"
lnRes = NetMessageBufferSend(.Null., ;
STRCONV(m.lcTo+CHR(0),5),.Null., ;
STRCONV(m.lcMessage + CHR(0),5),LEN(m.lcMessage)*2)
IF m.lnRes # 0
?"Ошибка № ",m.lnRes
ENDIF
проверял,работает
...
Рейтинг: 0 / 0
30.03.2007, 17:45
| Ответить | Цитировать | Написать  
Не могу послать сообщение юзеру
    #34428482
ALEXPFR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ALEXPFR
Гость
TO Aptex
Сделал так:
DECLARE INTEGER NetMessageBufferSend IN NETAPI32 ;
LONG nServer, ;
STRING cToName, ;
STRING cFromName, ;
STRING @ cMsg, ;
LONG nSize
lcTo = "Eerema22" ?? имя компа-получателя
lcMessage = "Привет,Вова!"
lnRes = NetMessageBufferSend(.Null., ;
STRCONV(m.lcTo+CHR(0),5),.Null., ;
STRCONV(m.lcMessage + CHR(0),5),LEN(m.lcMessage)*2)
IF m.lnRes # 0
?"Ошибка № ",m.lnRes
ENDIF
quit

<lnRes = NetMessageBufferSend(.Null., ;.........>
"Data type mismatch"

Только вот теперь не пойму, а где мое имя ?
...
Рейтинг: 0 / 0
30.03.2007, 18:21
| Ответить | Цитировать | Написать  
Не могу послать сообщение юзеру
    #34428506
Aptex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aptex
Гость
Если Null то по умолчанию берется имя комъютера
...
Рейтинг: 0 / 0
30.03.2007, 18:30
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Не могу послать сообщение юзеру
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=34428482&tid=1589615]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 79ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 225ms
total:  379ms
созд. / загр.: 379ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]