Visual Basic 6.0 - WINPOPUP

ucase()

WBR! *Alex* aka *Prowler* _/e-mail:/_ /alex#madport.dp.ua/
/_SMS:_/ /prowler#sms.umc.com.ua/

¦¦¦ Под солнцем снегом тая, Любить, измен не зная, - Ты умер бы от злой тоски!
* Origin: MadPort NodeStation (2:464/562)





Здравствуй, A. Skrobov!



[Сокращено]





Именно нечто типа этого "VERIFY ON " я и искал, однако понял из ответов, что "ON ERROR" скорее всего будет достаточно. В конце концов дискета может пострадать и в пути, и от всего не предохранишься.

Всем спасибо!

Всего тебе наилучшего, A. Skrobov!
_ Владимир. _



* Origin: Privat (2:5080/1003 [@] fidonet)






Доброго времени суток, Gribkov!
Fri, 6 Aug 2004 11:55:06 +0000 (UTC) Вы писали to :


С сабжем столкнулся только сегодня утром.
Как я понял, для модемов двух разных производителей решения будут не
одинаковы.
Работать с голосовыми функциями модема можно не иначе как напрямую в порт
записывая _голосовые_ команды, и получая и анализируя отклики модема.
Иного решения я пока не вижу.
Ткните носом.

Хотя наверняка это делается красиво и элегантно с помощью TAPI.




Почти универсальные голосывые команды.
ATA - ответ в голосовом режиме
ATD - набор в голосовом
ATH - разрыв связи
ATZ - сброс модема
ATVRX - приём голосовых данных
ARVTX - передача -//-
ATVLS - для выбора устройств ввода/вывода

Самая большая проблема с которой я столкнулся - мой Acorp не возвращает
"Connect" после поднятия трубки, и любой ввод в порт приводит к разрыву
связи.
Короче говоря ничего не получается ;)

http://www.providers.ru/articles/modem_bugrov/voice.html
--
____________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru
* Origin: Алт (2:5020/400)







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

Hе совсем понятно, как правильно отправить голос в порт, то есть
имеется WAV файл с записью, как его отправить в порт-то?

Спасибо, Макс



news:cgcc97$h9k$1 [@] news.rol.ru...








































* Origin: Demos online service (2:5020/400)


Привет All!

Есть таблица, в одном из столбиков к примеру:
1tralala
2TEst
3TEST111
4tralala
5test
6tralala
Хочется отфильтровать в другой рекордсет через .Filter по запросу на "test" 2,3,5 строки. Такое возможно?

А то что-то не хочется построчно с LCase и Intr'ом заморачиваться. Медлено будет!?

Буду благодарен любым советам.


Igor.

* Origin: Винни Пух ББС Тел. 381-567 (23:00-06:30) (2:5055/159)






"test"



Использовать предикат LIKE

То есть
Where Столбец LIKE '*TEST*'
Hу или без Where для свойства Filter. Другими словами перефразируя
Microsoft: в свойстве Filter можно
задавать столь сложные условия, сколько позволяет делать SQL.



Кстати, через Intr (и так далее) получается тоже вполне юзабельно.

Макс

* Origin: Demos online service (2:5020/400)


Hello All!

Возник такой вопрос: почему не меняется значение элемента udt через property let/get? Т.е. вот, к примеру, в таком случае (упростил малость):

Public Type TFoo
Foo as Long
Bar as Long
End Type

Public m_uFoo() as TFoo

Public Property Get Foo_Item(ByVal Index as Long) as TFoo
Foo_Item = m_uFoo(Index)
End Property

Public Property Let Foo_Item(ByVal Index as Long, ByRef new_Foo as TFoo)
m_uFoo(Index) = new_Foo
End Property

При подобном обращении:

SomeClass.Foo_Item(1).Foo = 1

Значение m_uFoo(1).Foo не изменяется! Меняется только если полностью заменить элемент m_uFoo(1), к примеру, так:

Dim uTempFoo as TFoo

uTempFoo.Foo = 1
SomeClass.Foo_Item(1) = uTempFoo

P.S. TFoo объявляется как public в классе, проект - AX exe.

Bye! Max Egorov

* Origin: Please believe me, the river told me... (2:5030/846.26)


Hello, All

Вот задался такой задачкой: хочется чтобы пользователь мог по клавише (напpимеp +) пеpейти на следующее сообщение в деpеве.

Я уже втоpой день ломаю голову как оpганизовать последовательный обход узлов с захватом всех подчинённых, но не получается.
Максимум чего добился: сделал пpостую пpоцедуpу. Если у текущего элемента несколько чилдpенов то пpоход по всем с заходом в каждую ветку. Hо если у какждого последующего элемента подчинённый элемент только один, тогда после пpохода двух таких элементов я не могу веpнуться на уpовень выше двух элементов...
В общем запутался я совсем. Понимаю что нужно чеpез pекуpсию. Hо что-то не ваpит у меня сегодня (вчеpа тоже не ваpила.. :( ).

Пpимеp кода:
======= Сгpызено моей собакой ========
With SabjList
If .SelectedItem.key = "Root" Then Exit Sub

.Nodes.Item(.SelectedItem.Children(1)).Selected = True
ElseIf .SelectedItem.Index < .SelectedItem.Parent.Children.Count Then
.Nodes.Item(.SelectedItem.Parent.Children.Item _
(.SelectedItem.Index + 1)).Selected = True
Else
.Nodes.Item(.SelectedItem.Parent).Parent.Children _
(.SelectedItem.Parent.Index + 1).Selected = True
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
End If
End With
======= Сгpызено моей собакой ========

Пpи пpевышении .Nodes.Item(.SelectedItem.Parent).Parent.Children.Count
на подчёpкнутом вылетаю по ошибке.
Как быть? Может кто-нибудь подскажет?

Всех благ тебе, All.
ICQ 177792013 FmMB200016700
*Hа уши давит* - 09 - That's Rock N' Roll
* Origin: http://www.r-demidow.front.ru/FBR/index.htm (2:5015/112.35)


















Что это такое? Я тут нашел было некий пример
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=40696&lngWId=1
с отсылкой на ActiveX, который умеет работать с сертификатами
http://www.chilkatsoft.com/ChilkatCert.asp

Hо так и не нашел по указанной ссылке Chilkat Certificate component.

Возможно есть где-то класс по работе с сертификатами.

Проблема не в том, чтобы скрытно всунуть в систему сертификат,
а в том чтобы его импорт прошел с наименьшим числом вопросов, предупреждений,
и кнопок, на которые придется жать юзеру. Эти диалоги пугают и путают юзера.

Сергей.


* Origin: Demos online service (2:5020/400)










Уточнение:
Я имею в виду, что программа-установщик, в ходе инсталляции
еще и сертификает юзеру установит. Хотя возможны варианты...

Сергей.


* Origin: Demos online service (2:5020/400)