Visual Basic 6.0 - Re[2]: Упаковка в ZIP и CAB
Re[2]: Упаковка в ZIP и CAB
From: "A. Skrobov" <tyomitch [@] r66.ru>
Thu Feb 19 2004 13:33, Максим Кнышов wrote to Dmitriy:
МК> Люди, больше никто никаких архиваторов не знает???
Я писал модуль для работы с unrar.dll, но там есть левая библиотека-переходник
из-за использования оным cdecl-калбаков. Hадо?
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
On error - странности
From: "A. Skrobov" <tyomitch [@] r66.ru>
Thu Feb 19 2004 00:49, Max Irgiznov wrote to Alexander Asyabrik:
MI> Вобщем глюк присутствует и никак не искореняется. :(
Код-то покажи, а то как гадать?
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
Re: очередной глупый вопрос про классы...
From: "A. Skrobov" <tyomitch [@] r66.ru>
Tue Feb 17 2004 20:31, A. Skrobov wrote to Dmitriy Kozyrev:
AS>>> Стал разбираться - и действительно, процедуры не генерируются! Я в
AS>>> растерянности.
DK>> Точно не генерируются? Я заюзал TypeLib Information - так он и на
DK>> свойства, и на переменные говорит одно и то же, мол, свойства это, самые
DK>> настоящие. :)
AS> Совершенно точно. Кода под рукой нету, но завтра запощу.
Вот, для интересующихся.
16: Option Explicit
17: Private Declare Sub DebugBreak Lib "kernel32.dll" ()
18:
19: Public Member1 As Long
20: Private mvarMember2 As Long
21:
04A51A00 push ebp
04A51A01 mov ebp,esp
04A51A03 sub esp,0Ch
04A51A06 push offset ___vbaExceptHandler (04a510e6)
04A51A0B mov eax,fs:[00000000]
04A51A11 push eax
04A51A12 mov dword ptr fs:[0],esp
04A51A19 sub esp,8
04A51A1C push ebx
04A51A1D push esi
04A51A1E push edi
04A51A1F mov dword ptr [ebp-0Ch],esp
04A51A22 mov dword ptr [ebp-8],offset __imp___CIexp+34h (04a510c0)
04A51A29 mov dword ptr [ebp-4],0
04A51A30 mov esi,dword ptr [Me]
04A51A33 push esi
04A51A34 mov eax,dword ptr [esi]
04A51A36 call dword ptr [eax+4]
22: Public Property Let Member2(ByVal vData As Long)
04A51A39 mov ecx,dword ptr [vData]
04A51A3C mov dword ptr [esi+38h],ecx
23: mvarMember2 = vData
04A51A3F mov eax,dword ptr [Me]
04A51A42 push eax
04A51A43 mov edx,dword ptr [eax]
04A51A45 call dword ptr [edx+8]
04A51A48 mov eax,dword ptr [ebp-4]
04A51A4B mov ecx,dword ptr [ebp-14h]
04A51A4E pop edi
04A51A4F pop esi
04A51A50 mov dword ptr fs:[0],ecx
04A51A57 pop ebx
04A51A58 mov esp,ebp
04A51A5A pop ebp
04A51A5B ret 8
24: End Property
25:
04A51A60 push ebp
04A51A61 mov ebp,esp
04A51A63 sub esp,0Ch
04A51A66 push offset ___vbaExceptHandler (04a510e6)
04A51A6B mov eax,fs:[00000000]
04A51A71 push eax
04A51A72 mov dword ptr fs:[0],esp
04A51A79 sub esp,0Ch
04A51A7C push ebx
04A51A7D push esi
04A51A7E push edi
04A51A7F mov dword ptr [ebp-0Ch],esp
04A51A82 mov dword ptr [ebp-8],offset __imp___CIexp+3Ch (04a510c8)
04A51A89 xor edi,edi
04A51A8B mov dword ptr [ebp-4],edi
04A51A8E mov esi,dword ptr [Me]
04A51A91 push esi
04A51A92 mov eax,dword ptr [esi]
04A51A94 call dword ptr [eax+4]
26: Public Property Get Member2() As Long
04A51A97 mov ecx,dword ptr [esi+38h]
04A51A9A mov dword ptr [Member2],edi
04A51A9D mov dword ptr [Member2],ecx
27: Member2 = mvarMember2
04A51AA0 mov eax,dword ptr [Me]
04A51AA3 push eax
04A51AA4 mov edx,dword ptr [eax]
04A51AA6 call dword ptr [edx+8]
04A51AA9 mov eax,dword ptr [Member2]
04A51AAC mov ecx,dword ptr [Member2]
04A51AAF mov dword ptr [eax],ecx
04A51AB1 mov eax,dword ptr [ebp-4]
04A51AB4 mov ecx,dword ptr [ebp-14h]
04A51AB7 pop edi
04A51AB8 pop esi
04A51AB9 mov dword ptr fs:[0],ecx
04A51AC0 pop ebx
04A51AC1 mov esp,ebp
04A51AC3 pop ebp
04A51AC4 ret 8
28: End Property
29:
04A51AD0 push ebp
04A51AD1 mov ebp,esp
04A51AD3 sub esp,0Ch
04A51AD6 push offset ___vbaExceptHandler (04a510e6)
04A51ADB mov eax,fs:[00000000]
04A51AE1 push eax
04A51AE2 mov dword ptr fs:[0],esp
04A51AE9 sub esp,8
04A51AEC push ebx
04A51AED push esi
04A51AEE push edi
04A51AEF mov dword ptr [ebp-0Ch],esp
04A51AF2 mov dword ptr [ebp-8],offset __imp___CIexp+44h (04a510d0)
04A51AF9 mov dword ptr [ebp-4],0
04A51B00 mov eax,dword ptr [Me]
04A51B03 push eax
04A51B04 mov ecx,dword ptr [eax]
04A51B06 call dword ptr [ecx+4]
30: Public Sub Break()
04A51B09 call ___vba [@] 0019D2EC (04a515c8)
04A51B0E call dword ptr [__imp____vbaSetSystemError (04a51010)]
31: DebugBreak
04A51B14 mov eax,dword ptr [Me]
04A51B17 push eax
04A51B18 mov edx,dword ptr [eax]
04A51B1A call dword ptr [edx+8]
04A51B1D mov eax,dword ptr [ebp-4]
04A51B20 mov ecx,dword ptr [ebp-14h]
04A51B23 pop edi
04A51B24 pop esi
04A51B25 mov dword ptr fs:[0],ecx
04A51B2C pop ebx
04A51B2D mov esp,ebp
04A51B2F pop ebp
04A51B30 ret 4
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
Re[3]: Упаковка в ZIP и CAB
From: Максим Кнышов <knyshow [@] mail.dsip.net>
Привет A.!
МК>> Люди, больше никто никаких архиваторов не знает???
AS> Я писал модуль для работы с unrar.dll, но там есть левая библиотека-переходник
unrar же только распаковывает архивы, а мне нужна именно упаковка...
--
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•
Максим Кнышов [ knyshow#mail.dsip.net ] [ http://gbu.dvostok.com ]
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•
Последняя версия программы Golden BackUp ( http://gbu.dvostok.com ) - 0.0.188 Beta 9
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•
* Origin: КПКП "Транс Агентство" (2:5020/400)
Re[4]: Райт-клик на текстовом поле
From: Максим Кнышов <knyshow [@] mail.dsip.net>
Привет Sergey!
SM> Это простейший вид сабклассинга, множественные экземпляры формы не поддерживаются.
Пасиба, работает прекрасно! Подходит.
Топик можно ЗАКРЫТЬ!
--
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•
Максим Кнышов [ knyshow#mail.dsip.net ] [ http://gbu.dvostok.com ]
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•
Последняя версия программы Golden BackUp ( http://gbu.dvostok.com ) - 0.0.188 Beta 9
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•
* Origin: КПКП "Транс Агентство" (2:5020/400)
Re[4]: Упаковка в ZIP и CAB
From: Максим Кнышов <knyshow [@] mail.dsip.net>
Привет Nikolay!
NV> Используй компонент XceedZip c www.xceedsoft.com . Он умеет делать с ZIPом
NV> практически все. Кряк найдешь в Инете.
Интересный набор компонентов, но кряка в нете я не нашел...
И еще вопрос, если с тачки-на тачку гонять по одной ихней библиотеке - на каждой машине
нужно будет регистрировать библиотеку?
--
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•
Максим Кнышов [ knyshow#mail.dsip.net ] [ http://gbu.dvostok.com ]
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•
Последняя версия программы Golden BackUp ( http://gbu.dvostok.com ) - 0.0.188 Beta 9
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•
* Origin: КПКП "Транс Агентство" (2:5020/400)
Re[3]: Упаковка в ZIP и CAB
From: Максим Кнышов <knyshow [@] mail.dsip.net>
Привет Максим!
МК> Эту библиотеку я когда-то видел... Классная вешь.
Дима, свяжись со мной, плиз. Аська: 7737308
--
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•
Максим Кнышов [ knyshow#mail.dsip.net ] [ http://gbu.dvostok.com ]
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•
Последняя версия программы Golden BackUp ( http://gbu.dvostok.com ) - 0.0.188 Beta 9
•>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<•
* Origin: КПКП "Транс Агентство" (2:5020/400)
Re: консоль и ANSII
Добpый день\утpо\вечеp\ночь, достопочтимый A. Skrobov!
20 февpаля 04 A. Skrobov (2:5020/400) => Dmitry Sergunin
DS>> 1. а без пеpекодиpовки никак нельзя, т.е. чтобы заставить
DS>> консоль ANSII-кодиpовку сходу отобpажать ?
AS> Так ASCII или ANSI? :-)
AS> Консоль афаик нельзя.
[... малость поскипано ...]
:-))) pука дpогнула --> лишнее I (по-пpивычке) получилось,
конечно ж, ANSI ...
было пеpед вызовом консольной пpоги (напpимеp, в батнике)
задать MODE CON: CP SELECT=1251, а затем и фонт использовать
типа Lucida Console, котоpый эту 1251 поддеpживает,
а по дефолту идут точечные шpифты (оне, оказца, без 1251)
запуск пpоги этот SELECT не pаспpостpаняет ...
вобщем, щас pаботает, а посему вопpос снят --> СПАСИБО
С бестами и pегаpдами
Dmitry ds [@] u-kon.ru
* Origin: Hичто не слишком! (2:5015/23.70)
Re: интимная связь VB и C
Мы где-то виделись, Alexander?
20 Feb 04 09:01:39 в RU.VISUAL.BASIC Alexander Trishin -> Dmitry Sergunin:
>> PS а, коль ты так хоpошо Си знаешь, можно к тебе с несколькими
>> вопpосами нетмылом или e-mail что-ли дай ?
AT> Хедеры читать умеешь? Козырев вон тоже Си знает ;)
А я еще крестиком вышивать умею (с)
Всего хорошего!
Дмитрий Козырев aka Master
* Origin: Дорогу осилит идущий. (2:5023/11.148)
Re: Упаковка в ZIP и CAB
Мы где-то виделись, Максим?
19 Feb 04 13:33:25 в RU.VISUAL.BASIC Максим Кнышов -> Dmitriy:
МК> Люди, больше никто никаких архиваторов не знает???
А нафига? Для галочки? Смысла не вижу. Rar, Cab и Zip лидируют с огромным
отрывом по всем параметрам - и распространенность (Rar и Zip перенесены
практически подо все платформы, а разархиватор для Cab есть в каждой винде), и
степень сжатия (хотя, с одной стороны, у зипа последнее сильно хромает, а с
другой, существуют новые архиваторы, обгоняющие даже Rar - например, PPMd и
основанный на нем PPMonstr).
Всего хорошего!
Дмитрий Козырев aka Master
* Origin: Дорогу осилит идущий. (2:5023/11.148)