ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / передача инфы. чат
23 сообщений из 98, страница 4 из 4
  4  все
передача инфы. чат
    #37770422
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: BelowZero
> создал активикс. код в нём:
>
> Public Sub Class_Initialize()
> MsgBox "q"
> End Sub

Какой MsgBox????
Чистые СОМ-объекты(не OLE!!!, а именно СОМ) не могут иметь форм. А ты пытаешся оттуда сообщение подать. Вот он и падает
на создании класса. О чем тебе и говорит в ошибке, что не может создать объект.


И в функции StartPrint сделай возвращаемое значение и показывай меседжбоксом из своей программы:
Код: vbnet
1.
2.
MsgBox 
mPrintOutput.StartPrint

а в самой функции, вообще во всем классе поубирай все мессаджи

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
25.04.2012, 13:23
| Ответить | Цитировать | Написать  
передача инфы. чат
    #37770453
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Shocker.Pro,

да, помогло спасибо!) поменял имя в "прпертиз", получил 2 мсгбокса, ну а потом ошибку. но те ошибки - уже дургая история)

Игорь Горбонос,

спс за код) как синхронизировать прогу и актив пока хз, буду тупо по таймеру открывать актив, а что он там будет вытворять - поф)
...
Рейтинг: 0 / 0
25.04.2012, 13:36
| Ответить | Цитировать | Написать  
передача инфы. чат
    #37770476
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
ошибка на строке
Код: vbnet
1.
mPrintOutput.StartPrint

причём весь код актива прокатывается норм, а потом возникает эта ошибка в основной проге. странно
...
Рейтинг: 0 / 0
25.04.2012, 13:48
| Ответить | Цитировать | Написать  
передача инфы. чат
    #37770509
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: BelowZero
> ошибка на строке

ну и??? нам отсюда не видно какой код вызывает ошибку :)

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
25.04.2012, 14:01
| Ответить | Цитировать | Написать  
передача инфы. чат
    #37770513
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
BelowZeroShocker.ProВызывает подозрение, что имя класса и имя экзешника не совпадает. Скорее всего неправильно указываешь его в CreateObject да, несовпадает. исправил - так же. код в exe:
Код: vbnet
1.
2.
3.
4.
5.
6.
'Shell "cmd.exe c:\clsPrint.exe /regserver"
Dim mPrintOutput As Object
'On Error Resume Next
Set mPrintOutput = CreateObject("PrintObject.clsPrint") 'activeX component can't create object
mPrintOutput.StartPrint
Set mPrintOutput = Nothing

создал активикс. код в нём:
Код: vbnet
1.
2.
3.
4.
5.
6.
Public Sub Class_Initialize()
MsgBox "q"
End Sub
Public Function StartPrint()
MsgBox "w"
End function

свойство нейм активикса clsPrint, скомпилировал в файл clsPrint.exe
запускаю основную прогу: "activeX component can't create object" что за классы вообще не в курсах
вот этот)
...
Рейтинг: 0 / 0
25.04.2012, 14:02
| Ответить | Цитировать | Написать  
передача инфы. чат
    #37770568
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Игорь Горбонос
> Какой MsgBox????
> Чистые СОМ-объекты(не OLE!!!, а именно СОМ) не могут иметь форм. А ты пытаешся оттуда сообщение подать. Вот он и
> падает

Исправлюсь, не могут иметь показываемых форм.

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
25.04.2012, 14:24
| Ответить | Цитировать | Написать  
передача инфы. чат
    #37770589
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Игорь Горбонос,

угу, это я проверил, пока изучал активикс. если даже активикс пустой, всё равно эта ошибка
...
Рейтинг: 0 / 0
25.04.2012, 14:30
| Ответить | Цитировать | Написать  
передача инфы. чат
    #37770598
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: BelowZero
> если даже активикс пустой, всё равно эта ошибка

Так не бывает. Что-то у тебя не так

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
25.04.2012, 14:33
| Ответить | Цитировать | Написать  
передача инфы. чат
    #37770611
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Игорь ГорбоносЧто-то у тебя не так
да, я тоже так думаю) поигрался со строчками:
Код: vbnet
1.
2.
3.
Public Function StartPrint()
End
End Function

есть ошибка, а без End всё норм
Код: vbnet
1.
2.
Public Function StartPrint()
End Function

но мне нужно как-то закрыть активикс
...
Рейтинг: 0 / 0
25.04.2012, 14:38
| Ответить | Цитировать | Написать  
передача инфы. чат
    #37770636
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: BelowZero
> есть ошибка, а без End всё норм

Пипец! Иди читай в справке что делает End.

> но мне нужно как-то закрыть активикс

А как ты закрываешь объект FileSystemObject? Или MSXML2.XMLHTTP?

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
25.04.2012, 14:46
| Ответить | Цитировать | Написать  
передача инфы. чат
    #37770648
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Игорь Горбонос,

приравниваю к Nothing. это в основном ехе. а в активиксе? например,
Код: vbnet
1.
 If App.PrevInstance = True Then End

на что заменить?
...
Рейтинг: 0 / 0
25.04.2012, 14:52
| Ответить | Цитировать | Написать  
передача инфы. чат
    #37770650
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: BelowZero
> приравниваю к Nothing. это в основном ехе. а в активиксе? например,
> If App.PrevInstance = True Then End
> на что заменить?

А что этот код должен делать в ActiveX Exe? Каков его смысл?

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
25.04.2012, 14:54
| Ответить | Цитировать | Написать  
передача инфы. чат
    #37770692
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Игорь Горбонос,

активикс вызывается по таймеру. если код ещё не успел отработать, то второй вызов происходить не должен. если файла на компе не существует... или ещё что. много причин)
...
Рейтинг: 0 / 0
25.04.2012, 15:02
| Ответить | Цитировать | Написать  
передача инфы. чат
    #37770763
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: BelowZero
> активикс вызывается по таймеру. если код ещё не успел отработать, то второй вызов происходить не должен. если
> файла на компе не существует... или ещё что. много причин)

Когда происходит тик таймера в обработчике первой строкой ставится
Код: vbnet
1.
Timer1.Enable = False


Потом выполняются необходимые действия и по окончании, перед выходом из обработчика таймер снова взводится:
Код: vbnet
1.
Timer1.Enable = True


этим гарантируется ненаступание на свой хвост.

Все остальные причины точно так-же обрабатываются и вызов сервера автоматизации просто не производится, или в самом
сервере автоматизации закладывают проверки на "много причин" по которым просто не выполняется рабочий код, а происходит
"холостой запуск".

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
25.04.2012, 15:22
| Ответить | Цитировать | Написать  
передача инфы. чат
    #37770778
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Игорь Горбоносэтим гарантируется ненаступание на свой хвост. угу, можно и так... пока что заменил все End на Exit Function. всё работает. ошибок нет. но! всё это было затеяно радо песочных часов. я думал, что если юзать активикс(или ещё что-нить), то их не будет. в итоге курсор пляшет от постоянной отработки активикса. даже если таймер будет раз в минуту, песочные часы сильно раздражают
...
Рейтинг: 0 / 0
25.04.2012, 15:29
| Ответить | Цитировать | Написать  
передача инфы. чат
    #37770877
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Игорь ГорбоносИди читай в справкеДля белова это нереальное оскорбление.
...
Рейтинг: 0 / 0
25.04.2012, 16:00
| Ответить | Цитировать | Написать  
передача инфы. чат
    #37770881
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Игорь Горбонос,

у тебя тоже песочные часы при каждом обращении к активиксу? даже хз, в каком направлении теперь рыть.
...
Рейтинг: 0 / 0
25.04.2012, 16:02
| Ответить | Цитировать | Написать  
передача инфы. чат
    #37770894
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: BelowZero
> у тебя тоже песочные часы при каждом обращении к активиксу?

Ну вообще да, т.к. у меня опрашивается банк и я пару часов вообще не трогаю компьютер, на котором идет опрос или
запускаю опрос на ночь.

А что ты хочешь этим сделать?

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
25.04.2012, 16:08
| Ответить | Цитировать | Написать  
передача инфы. чат
    #37770917
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Игорь Горбонос,

я хочу в реальном времени получать нажатия с другого компьютера. т.е. сижу я за компом, а в это время в текстбоксе выводятся логи. типа, мегакейлоггер) всё работает. но мерцание песочных часов раздражает.
...
Рейтинг: 0 / 0
25.04.2012, 16:17
| Ответить | Цитировать | Написать  
передача инфы. чат
    #37770943
oreZwoleB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oreZwoleB
Гость
BelowZero...типа, мегакейлоггер)....
Привыкай называть всё своими именами! Типа - мегаговнокейлоггер!
...
Рейтинг: 0 / 0
25.04.2012, 16:25
| Ответить | Цитировать | Написать  
передача инфы. чат
    #37771289
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
 
oreZwoleBBelowZero...типа, мегакейлоггер)....

Привыкай называть всё своими именами! Типа - мегаговнокейлоггер! вот чел молодец. не поленился. написал мой ник наоборот. это ж сколько усилий. эту бы энергию да на благое дело!
а что с песочными часиками делать? как-то от них избавляться? или искать способ сбросить соединение, чтобы не юзать дополнительные ехе, активиксы и прочее? есть у кого какие догадки?
...
Рейтинг: 0 / 0
25.04.2012, 19:25
| Ответить | Цитировать | Написать  
передача инфы. чат
    #37771309
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
в браузере есть кнопка обновить... и никаких песочных часов. страница перезагружается, обновляется. мне нужно тоже самое. или в браузерах какая-то неизведанная космическая технология?
...
Рейтинг: 0 / 0
25.04.2012, 19:38
| Ответить | Цитировать | Написать  
передача инфы. чат
    #37771352
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
BelowZeroили в браузерах какая-то неизведанная космическая технология?Да. Называется многопоточность. Можешь почитать Мэтью Курланда по этой теме. У него расписано что и как, причем ещё в 1998 году.
...
Рейтинг: 0 / 0
25.04.2012, 20:30
| Ответить | Цитировать | Написать  
23 сообщений из 98, страница 4 из 4
  4  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / передача инфы. чат
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37771289&tid=2157852]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 55ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 334ms
total:  481ms
созд. / загр.: 481ms
x
x
Закрыть


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