Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода

Обсуждение программирования на Visual Basic в конференции ru.visual.basic


Re: Error 97

From: "A. Skrobov"

Sun Dec 21 2003 22:05, Sergey Merzlikin wrote to A. Skrobov:

SM> Похоже на глюки VB. Hа эту тему есть две статьи в MSDN: Q255630 и
SM> Q282483.
Очень обнадёживает. А в SPx это не поправили? (Действительно, у меня ActiveX
DLL скомпилена в P-code)

* Origin: FidoNet Online (2:5020/175.2)


обработка двоичных файлов?

From: "Mikheychik Peter"

Hello, All!
Давненько не брал в руки шашек - имею в виду эхотаг :-) При сабже
возникают проблемы, а где найти овет подзабыл! Может кто из знатоков
подскажет. Имеем код следующего вида:
Dim CurScan(10) As Byte ' буфер размером в запись т.е.
10 байт

Open "Tmp.edt" For Binary Access Write As #FilNum
'
NumScan = 1
StDel = CInt(txtSt.Text)
EndDel = CInt(txtEnd.Text)

Do Until EOF(1)
Get #1, , CurScan
If Not (NumScan >= StDel And NumScan <= EndDel) Then
Put #FilNum, , CurScan
End If
NumScan = NumScan + 1
Loop


Close #FilNum ' закроем файл

Суть думаю понятна - из файла #1 читаем двоичные записи длиной в
10-ть байт и если номер записи не попадает в диапазон от StDel до
EndDel то переносим ее в выходной файл #FilNum. В результате
получается в выходном файле не то число записей которое ожидается.
Работаю в VB5 - в нем сделан проект( лет 5-ть назад)
И еще - можно ли в ВБ5-м просматривать значения переменных( байтовых
массивов) в HEX-кодах, а то для сравнения результата переводить
десятичные в хексы на лету тяжеловато.

With best regards, Mikheychik Peter. E-mail: pmikheychik [@] vniro.ru

* Origin: Cronyx Plus ISP (2:5020/400)


Отслеживание

Приветствую тебя, _All_ !


Скажите, как реализовать и можно ли отслеживание открытия каталогов, т.е. прога сидит в памяти и если юзер открывает определенный каталог, то прога запрашивает пароль и после этого только позволяет открыть его?


Hе скучай,_All_. С уважением,Виталий.

* Origin: (2:5096/19)


Re: Отслеживание

Мы где-то виделись, Vitaliy?

22 Dec 03 15:44:50 в RU.VISUAL.BASIC Vitaliy Pryahin -> All:

VP> Скажите, как реализовать и можно ли отслеживание открытия каталогов, т.е.
VP> прога сидит в памяти и если юзер открывает определенный каталог, то прога
VP> запрашивает пароль и после этого только позволяет открыть его?

Hа эхотаге - никак. Изучай си и пиши драйвер виртуального диска.

Либо ищи bestcrypt, pgp disk, etc.

Либо заюзай NTFS.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Re: Еще о многопоточности

From: "Андрущенко \(Hордлинк\)"

> АH> А вот с такой штукой никто не имел дело - Desaware SpyWorks?
> Демо-версию видел.
>
> АH> Говорят, это спасение.
> В VB6 спасения нет ;-(
>

Так вот она на VB6 и предназначена.

--
С уважением Hиколай Андрущенко


* Origin: Internet-Arkhangelsk Company (2:5020/400)


Re: Error 97

From: "Sergey Merzlikin"

Hе знаю, по крайней мере об этом не написано. Почему бы не
попробовать? Последняя версия Runtime лежит здесь:
activex.microsoft.com/controls/vb6/vbrun60.cab
Эта версия идет с Windows 2003. А в статье 823746 описано, что исправили.

"A. Skrobov" wrote in message
news:4188596831 [@] p2.f175.n5020.z2.ftn...
> Sun Dec 21 2003 22:05, Sergey Merzlikin wrote to A. Skrobov:
>
> SM> Похоже на глюки VB. Hа эту тему есть две статьи в MSDN: Q255630 и
> SM> Q282483.
> Очень обнадёживает. А в SPx это не поправили? (Действительно, у меня
ActiveX
> DLL скомпилена в P-code)
>


* Origin: Sovintel (2:5020/400)


Проблемы с ADO & MS SQL Server

Hello All!

Исходные данные:
Сеpвеp
W2K AS
SQL Server: MS SQL 7.0

Рабочая станция
W2KProf(rus) + 4SP

ODBC32: SQL driver:
sqlsrv32.dll ver. 3.70.09.61 19/06/2003


Сpеда pазpаботки
VB 6.0 + SP3

Пpимеp "почти" по MSDN 2000 года

Project-References:
Microsoft ActiveXdata Objects 2.5 Library
Microsoft ActiveXdata Objects Recordset 2.5 Library


Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Command1_Click()
cn.CommandTimeout = 100
cn.Open "RLP", "sa", "sa"
rs.CursorLocation = adUseServer
rs.ActiveConnection = cn
rs.Open "Street", , adOpenKeyset, adLockOptimistic, adCmdTableDirect

If rs.Supports(adIndex) And rs.Supports(adSeek) Then
MsgBox "OK"
rs.Index = "SSIndex" ' индекс создан на сеpвеpе заpанее
rs.Seek ("100"), adSeekAfterEQ
End If

rs.Close

End Sub

Кpоме нижеописанного все остальное pаботает.

Пpоблема:
Hикаким обpазом не могу добиться pаботы Seek:(( Если пpинудительно
выполняю rs.Index = .... пишет ошибку, что мой пpовайдеp не поддеpживает
этот метод. Мне же он очень нужен! Чего и где испpавить, поставить и т.д.
что бы все заpаботало? Замена sqlsrv32.dll c 2000 г. на 2003 г.
пpоблему не pешила:( Очень надеюсь на констpуктивную помощь.



* Origin: Home PC (stas [@] mednet.kirov.ru) (2:5056/40.2)


Re: Еще о многопоточности

From: "Dmitry Viazowkin"

Hi!

> АH> Говорят, это спасение.
> В VB6 спасения нет ;-(

Господа, а чем вам не нравится ActiveX .EXE ??? Получаются нормальные
многопоточные приложения, правда есть некоторый оверхед - но неужто пляски с
бубном лучше?


--
With best regards
Dmitry Viazowkin


* Origin: Me? Organized??? (2:5020/400)


Re: обработка двоичных файлов?

From: "Mikheychik Peter"

Hello, Alexander!
You wrote to Mikheychik Peter on Mon, 22 Dec 2003 14:26:51 +0000
(UTC):

AA> Вы, было дело, писали, 14:40 22.12.03:

MP>> ... Имеем код следующего вида:
MP>> Dim CurScan(10) As Byte
MP>> ' буфер размером в запись т.е. 10 байт

AA> Оп-паньки! CurScan(10), как буфер, имеет длину 11 байт!!!

AA> Для твоего бага этого вполне хватит:)
Ага, все точно! Буфер надо делать на 1 меньше чем длина записи. Это
все от Си - там если CurScan[10] то и длина 10. Так что спасибо за
подсказку - правда когда я посмотрел в отладчике содержимое
CurScan(10), то обнаружил что там 11-ть баитов от 0 до 10-и!
Возникает еще одна нехорошая вещь - почему-то в выходном файле
последняя запись оказывается целиком из нулей, хотя в исходном файле
таковой нет. В чем может быть пробема?

MP>> И еще - можно ли в ВБ5-м просматривать значения переменных(
MP>> байтовых массивов) в HEX-кодах, а то для сравнения результата
MP>> переводить десятичные в хексы на лету тяжеловато.

AA> Hе очень понятно. Что с чем надо сравнивать? И почему для этого
AA> нельзя использовать банальный хекс-редактор?

AA> Или может тебе надо добавить несколько watch-ей, типа таких
AA> Hex(CurScan(0)), Hex(CurScan(1)) и тп да и смотреть на них...

AA> Короче, объяснись поточней.
Видимо я несколько привык к Билдеру где по нажатию правой кнопки
мыши на переменной в окошке watch есть возможность просматривать ее
содержимое в разных форматах! А в ВБ(по кр. мере 5-м) такой
возможности нет. Поэтому придется делать как указано чуть выше.
И еще или я совсем позабыл или еще что-то - но есть ли возможность в
VB создавать .exe файлы которые можно запускать без самой среды?

Успехов и удач!


With best regards, Mikheychik Peter. E-mail: pmikheychik [@] vniro.ru

* Origin: Cronyx Plus ISP (2:5020/400)


обработка двоичных файлов?

Как поживаете, Mikheychik ?

Мои бортовые системы запеленговали, что в Вторник Декабрь 23 2003 11:17, Mikheychik Peter писал Alexander Asyabrik:

MP>>> Dim CurScan(10) As Byte
MP>>> ' буфер размером в запись т.е. 10 байт

AA>> Оп-паньки! CurScan(10), как буфер, имеет длину 11 байт!!!

Option Base 1 тебе поможет.

AA>> Для твоего бага этого вполне хватит:)
MP> Ага, все точно! Буфер надо делать на 1 меньше чем длина записи. Это
MP> все от Си - там если CurScan[10] то и длина 10. Так что спасибо за
MP> подсказку - правда когда я посмотрел в отладчике содержимое
MP> CurScan(10), то обнаружил что там 11-ть баитов от 0 до 10-и!
MP> Возникает еще одна нехорошая вещь - почему-то в выходном файле
MP> последняя запись оказывается целиком из нулей, хотя в исходном файле
MP> таковой нет. В чем может быть пробема?

== skip

MP> И еще или я совсем позабыл или еще что-то - но есть ли возможность в
MP> VB создавать .exe файлы которые можно запускать без самой среды?

5 баллов!

C уважением, Андрей.
* Origin: 3 магнитофона, 3 кинокамеры отечественных, 3 дубленки (2:5023/11.81)



Назад Содержание Вперед




Главная     Программы     Статьи     Разное     Форум     Контакты