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

для защиты Windows приложений

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

Visual Basic 6.0 - имя процедуры как аргумент....


Re: имя процедуры как аргумент....

Здоровья тебе, #/Vitaly/#.
XC: #RU.VISUAL.BASIC, #CC.MY.ECHOMAIL

18 Hоя 03, в 08:51, *Vitaly Bogomolov* писал я к _Andrew Matrosov_:

AM>> Есть ActiveX dll, есть прога которая ее юзает.

AM>> кусок проги:

AM>> ..........

AM>> myActiveXobject.test (progaSub)

AM>> ..........

AM>> public sub progaSub()

AM>> msgbox "ura"

AM>> end sub

AM>> --------------------------------------------

AM>> кусок Дллки:

AM>> ............

AM>> private sub test (tmpprogaSub as ???)

AM>> call tmpprogaSub

AM>> end sub

AM>> ............

AM>> --------------------------------------------


AM>> т.е. нужно из дллки вызвать процедуру проги имя которой передано

AM>> в качестве аргумента... может кто то понял что я хотел спросить?

AM>> :)

VB> Hету каллбеков в VB6. F1 на AddressOf.

VB> ======================================================================

VB> == Passing Function Pointers to DLL Procedures and Type Libraries

VB> [...]

VB> "Basic to Basic" function pointers are not supported. Pointers to

VB> Visual Basic functions cannot be passed within Visual Basic itself.

VB> Currently, only pointers from Visual Basic to a DLL function are

VB> supported.

VB> ======================================================================

VB> ==


В данном случае этот callback можно сделать при помощи типа object:

class1 имеет метод CallBackSub
class2 принимает параметр типа Object на инициализирующий метод/св-во.
Далее передаем class1 через этот инициализатор в class2, где его сохраняем. При необходимости сделать callback вызываем метод CallBackSub сохраненного объекта и наслаждаемся жизнью.
Теперь о недостатках данного метода: 99% применений дает огромный гиморой с циклическими ссылками, следовательно стабильной работы из этого вряд ли выйдет.

Могу предложить способ 2: Использовать события:
class2 определяет событие OnCallBack()
class1 объявляет переменную class2 как Private WithEvents obj as class2, а далее реализовывает обработчик class2_OnCallBack(). Pешение неплохое, но гимор с отладкой когда много обработчиков.

P.S.: Писал все прямо в GoldEdе, по-этому в немногочисленных кусках кода могут быть ошибки.
P.P.S.: Да есть еще варианты, но они сложные и специфичные. Кому интересно - в мыло.
Удачи, #*/Дмитрий/*#.
[SPBGPU 3083/1]
* Origin: It's all gone. What is left behind on the desert we (2:5030/1450.6)

Re: размер массива

From: "Sergey Broudkov" <broudkov [@] PointLtd.com>


Hello, Dmitry!
You wrote to Alexander Zatvornitskiy on Thu, 20 Nov 2003 17:31:26 +0300:

AZ>> как узнать сабж?


DF> imho: size = UBound(array)-LBound(array)


+1 забыл добавить.

--
Regards,
Sergey Broudkov
sbpro [@] geocities.com
ICQ #4841919
А может, в реестре чего подправить? d;--D

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

Re: Вопрос ?

From: "Sasha Makarov" <sashamakarov [@] tehnofil.ru>


Hello, Alexander!
You wrote to Mihail Borisov on Thu, 20 Nov 2003 15:08:10 +0000 (UTC):

??>> Кто ни будь может объяснить почему при передачи текста (String) через

Winsock размер его возрастает? Перед передачей текста например 30 441
символ подсчитываю функцией Len, получаю 33 326 или еще больше когда
как, почему так?
AT> Потому что руки.



Ты че такой урод если не знаеш (тупиш) лучше памолчи.

With best regards, Sasha Makarov.

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

[+] Re: Вопрос ?

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

20 Nov 03 19:51:53 в RU.VISUAL.BASIC Sasha Makarov -> Alexander Trishin:


MB>>> Кто ни будь может объяснить почему при передачи текста (String) через

MB>>> Winsock размер его возрастает? Перед передачей текста например 30 441

MB>>> символ подсчитываю функцией Len, получаю 33 326 или еще больше когда

MB>>> как, почему так?

AT>> Потому что руки.

SM> Ты че такой урод если не знаеш (тупиш) лучше памолчи.


"- Хамье! - стеклянным голосом произнес Румата. - Вы же неграмотны, зачем вам
подорожная?" (с)

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

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

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

Re: VB6 Изменить яркость изображения

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

17 Nov 03 13:47:50 в RU.VISUAL.BASIC Valery Yavorsky -> All:


VY> Что никто не знает или стесняется?

VY> Требуется на пичбоксе изменить оттенок (яркость) части изображения,

VY> ограниченного некой кривой(цвет кривой известен).Прошу подсказать или дать

VY> ссылки. Спасибо!


Имхо, только ручками. Рекомендую найти формулу для перевода RGB <-> HSV и

посмотреть, как там считаются оттенок (яркость).

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

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

Re: Вопрос ?

From: "Igor Evgrafov" <fornews [@] systems21.ru>


Hello, Sasha! You wrote to Alexander Trishin on Thu, 20 Nov 2003 16:51:53 +0000 (UTC):

SM> ??>> Кто ни будь может объяснить почему при передачи текста (String)

SM> через Winsock размер его возрастает? Перед передачей текста например 30

SM> 441 символ подсчитываю функцией Len, получаю 33 326 или еще больше

SM> когда как, почему так?

AT>> Потому что руки.


SM> Ты че такой урод если не знаеш (тупиш) лучше памолчи.


Согласен тоже быть уродом :)
<урод моде он>

Ты че чувак, сам не можеш сравнит две строки и пасмотрет че там за лишние три кило текста? Тут блин внатуре нет телепатов.
<урод моде офф>


Помедитируй, успокойся, покури MSDN. Если не поможет то куски проблемного кода приведи...

With best regards, Igor Evgrafov. E-mail: ievgrafo<AT>systems21{DOT}ru

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

морда БД

Hello all.

сделал моpду для малюсенькой бд в Ахсексе. В фоpме осуществляется фильтpация данных в зависимости от выбpанных пользователем условий.

Условия могут подставляться либо в .filter, либо можно их пеpедавать чеpез .form.recordsource.

Hо пpи этом, хочется, что бы в контpолах находились значения, котоpые могут быть элементами выpажения фильтpа или пpедлоджения "where..."

Я сделал это чеpез pаботу одновpеменно с querydef и form.recordsource. Получилось весьма чеpез задницу.

Вопpос -- как сделать элегантнее? Ваpиант пеpеползти на vb не pассматpивается ввиду техзадания. :)

Ivan

* Origin: В ОБЩЕМ, ВСЕ УМЕРЛИ! [Xenocide Team] (2:5023/19.9)

Re: VB6 Изменить яркость изображения

From: "Sergei Ho" <calendarman [@] mtu-net.ru>


"Dmitriy Kozyrev" <Dmitriy.Kozyrev [@] p148.f11.n5023.z2.fidonet.org> wrote in message news:1827351150 [@] p148.f11.n5023.z2.ftn...

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

>

> 17 Nov 03 13:47:50 в RU.VISUAL.BASIC Valery Yavorsky -> All:

>

> VY> Что никто не знает или стесняется?

> VY> Требуется на пичбоксе изменить оттенок (яркость) части изображения,

> VY> ограниченного некой кривой(цвет кривой известен).Прошу подсказать или дать

> VY> ссылки. Спасибо!

>

> Имхо, только ручками. Рекомендую найти формулу для перевода RGB <-> HSV и

> посмотреть, как там считаются оттенок (яркость).

>

> Всего хорошего!

> Дмитрий Козырев aka Master


Может еще пригодится этот пример, реализирующий редактирование изображений,
как средствами VB, так и с использованием ассемблера внутри VB:

Title: As(s)embler Plus VB Picture Processing Fun
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=29034&lngWId=1

Там есть и осветление/потемнение изображения.

Сергей.


* Origin: MTU-Intel ISP (2:5020/400)

Re: Вопрос ?

From: "Mihail Borisov" <skull [@] amur.ru>


Thu Nov 20 2003 20:40, Igor Evgrafov wrote to Sasha Makarov:

SM>> ??>> Кто ни будь может объяснить почему при передачи текста (String)

SM>> через Winsock размер его возрастает? Перед передачей текста например 30

SM>> 441 символ подсчитываю функцией Len, получаю 33 326 или еще больше

SM>> когда как, почему так?

AT>>> Потому что руки.


SM>> Ты че такой урод если не знаеш (тупиш) лучше памолчи.


IE> Согласен тоже быть уродом :)

IE> <урод моде он>

IE> Ты че чувак, сам не можеш сравнит две строки и пасмотрет че там за лишние

IE> три кило текста? Тут блин внатуре нет телепатов. <урод моде офф>


Какой лишний текст?
Текст тот же, а размер разный

IE> Помедитируй, успокойся, покури MSDN. Если не поможет то куски проблемного

IE> кода приведи...


Bye All Мыло: mihailborisov(ДОГ)hotmail(ТЧК)ru

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

VB & Exel

Привет All!

При работе с Exel делаю быстрый экспорт из рекордсета через CopyFromRecordset, возможно ли организовать такой же быстрый импорт?
А то документ - прайс и обрабатывать 5000 строк по я чейкам, долго получается.

И возможен ли импорт только одного столбика Exel в рекордсет без перебора строк?

Igor.

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