Visual Basic 6.0 - Error 97

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



Очень обнадёживает. А в SPx это не поправили? (Действительно, у меня ActiveX
DLL скомпилена в P-code)

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)




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

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)


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







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

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

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

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

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











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

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


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




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


news:4188596831 [@] p2.f175.n5020.z2.ftn...





ActiveX




* Origin: Sovintel (2:5020/400)


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)




Hi!




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


--
With best regards
Dmitry Viazowkin


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




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










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












Видимо я несколько привык к Билдеру где по нажатию правой кнопки
мыши на переменной в окошке 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:






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










== skip




5 баллов!

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