Variants без Types и SysUtils

← →
DillerXX © (2006-02-21 21:37) [0]

Возможно ли отвязать те два модуля от Variants, а то размер больно прибавляют, неудобно.. я попробовал, ужас, наверное только 10% работы выполнил...

← →
Игорь Шевченко © (2006-02-21 21:38) [1]

DillerXX © (21.02.06 21:37)

Лучше sysutils от system отвязывать, тоже удовольствие

← →
kaZaNoVa © (2006-02-21 21:40) [2]

вроде в Кол или где-то я видел подобное .. но имхо глючило ....

← →
DillerXX © (2006-02-21 21:42) [3]

> Лучше sysutils от system отвязывать, тоже удовольствие

Смейтесь смейтесь... я вам покажу :)

← →
Игорь Шевченко © (2006-02-21 21:56) [4]

DillerXX © (21.02.06 21:42) [3]

У меня есть, спасибо, мне не надо показывать.

Но учти, что при отвязке от SysUtils у тебя перестают работать конструкции try..except, а unit Types вообще ничего не прибавляет, так что отвязываться от него смысла нету.

← →
DillerXX © (2006-02-21 22:19) [5]

> У меня есть, спасибо, мне не надо показывать.

... покажу отвязанный модуль :о)

> Но учти, что при отвязке от SysUtils у тебя перестают работать
> конструкции try..except

да я знаю...

Но скажите, это теоретически возможно?

← →
Marser © (2006-02-21 22:28) [6]

> Но скажите, это теоретически возможно?

Если очень захотеть, можно в Космос полететь (С)

← →
kaZaNoVa © (2006-02-21 22:32) [7]

в теории можно и EXE-программы в HEX-редакторе писать .. :))))

← →
Гаврила © (2006-02-21 22:37) [8]

> Игорь Шевченко ©

> Но учти, что при отвязке от SysUtils у тебя перестают
> работать конструкции try..except

ИМХО, необязательно, достаточно присвоить ExceptProc

← →
Игорь Шевченко © (2006-02-21 22:38) [9]

DillerXX © (21.02.06 22:19) [5]

> Но скажите, это теоретически возможно?

Да, конечно. Просто долго и ни к чему. Насчет теоретической возможности - в D5 основное содержимое этого юнита прекрасно жило себе в System.pas без всяких SysUtils и Types. Правда и без Custom Variants, но я не думаю, что их использование является приоритетной задачей.

А можно вопрос - что именно ты хочешь из Variants.pas использовать ?

← →
LordOfRock © (2006-02-21 22:45) [10]

kaZaNoVa © (21.02.06 22:32) [7]
в теории можно и EXE-программы в HEX-редакторе писать .. :))))

АнеГдот в тему:

Настоящие программеры пишут программы в блокноте...
Открывают блокнот и начинают:
MZh...This program cannot...

:)

← →
kaZaNoVa © (2006-02-21 22:52) [11]

LordOfRock © (21.02.06 22:45) [10]
аха, а некоторые еще на месте This program cannot пишут нечто типа своего копирайта .. или еще что-нить, познавательное:)

← →
Serg1981 © (2006-02-21 22:56) [12]

А что, емкости современных винчестеров не позволяют использовать все модули сразу ?

← →
DillerXX © (2006-02-21 22:57) [13]

VarArrayCreate, VarArrayLock, VarArrayUnlock.
WebBrowser.Navigate() использую, а как без Variant вообще не знаю :( если знаете, то подскажите :)

← →
kaZaNoVa © (2006-02-21 22:58) [14]

Serg1981 © (21.02.06 22:56) [12]
иногда наверное хочется поменьше..
вот мой рекорд - прога на делфи (упакованная пожатая и т.д.) - 2 с чем-то Кб ..:) мало кто верил .:)

← →
Гаврила © (2006-02-21 23:00) [15]

> DillerXX ©

> WebBrowser.Navigate()

???
Что такое у тебя WebBrowser?

← →
DillerXX © (2006-02-21 23:24) [16]

> вот мой рекорд - прога на делфи (упакованная пожатая и т.
> д.) - 2 с чем-то Кб ..:) мало кто верил .:)

Да лано, можно и 800 с копейками байт замутить (без сжатия). Если не только убрать модули System и SysInit, но и заюзаться линкером от Microsoft (а не борландом, как обычно). Придётся компилировать компилятором Delphi 3, в общем извращенство ещё то...

> Что такое у тебя WebBrowser

IWebBrowser2, интерфейс.

← →
Гаврила © (2006-02-21 23:28) [17]

> DillerXX ©

> IWebBrowser2, интерфейс

unit SHDocVw; ... interface uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL;

← →
Гаврила © (2006-02-21 23:30) [18]

unit OleCtrls;

interface
uses Variants, Windows, Messages, ActiveX, SysUtils, Classes, Controls, Forms,
Menus, Graphics, ComObj, AxCtrls;

← →
DillerXX © (2006-02-21 23:31) [19]

> Гаврила

SHDocVw я не использую

> unit OleCtrls

И его тоже :)
ActiveX тоже... и т.п.

> WebBrowser.Navigate() использую, а как без Variant вообще
> не знаю :( если знаете, то подскажите :)

У меня вопрос - а ты уверен, что у тебя SysUtils, кроме как в Variants нигде не используется ?

ТЫ АБСОЛЮТНО УВЕРЕН ?

> А откуда берешь IWebBrowser2 тогда ?

Выдрал жестоко и бесчеловечно из модулей...

> У меня вопрос - а ты уверен, что у тебя SysUtils, кроме
> как в Variants нигде не используется ?
>
> ТЫ АБСОЛЮТНО УВЕРЕН ?

Сейчас закоментировал ту функцию где используется модуль Variants, убрал его из uses и размер уменьшился до 95кб... при условии что всего исходников моих 153кб + Windows.pas + System.pas + SysInit.pas + при учёте что в сорцах большое кол-во строк текста... Если использовать Variants, то размер вырастет до 108кб :) Не потерплю такой наглости :) Хотя если по большому счёту, то можно и так оставить... но на будующее, может можно отделить?

DillerXX © (22.02.06 00:09) [23]

> Сейчас закоментировал ту функцию где используется модуль
> Variants, убрал его из uses и размер уменьшился до 95кб

Есть предложение - включи генерацию map-файла. Там указывается, сколько байт занимает код конкретного юнита. И тебе интересно будет.

← →
Дон Хуан (2006-02-22 01:41) [25]

> Если использовать Variants, то размер вырастет до 108кб :)

Оставь Variants.
108 - священное число в Тибете!

> [25] Дон Хуан (22.02.06 01:41)
> Оставь Variants.
> 108 - священное число в Тибете!

В Тибете не нужен IWebBrowser2. Они (говорят) с космосом напрямую общаются, без браузера.

0001:00000000 00004943 C=CODE S=.text G=(none) M=System ACBP=A9 0001:00004944 00000140 C=CODE S=.text G=(none) M=SysInit ACBP=A9 0001:00004A84 00000038 C=CODE S=.text G=(none) M=Types ACBP=A9 0001:00004ABC 000001B8 C=CODE S=.text G=(none) M=Windows ACBP=A9 0001:00004C74 000002F8 C=CODE S=.text G=(none) M=SysConst ACBP=A9 0001:00004F6C 00005550 C=CODE S=.text G=(none) M=SysUtils ACBP=A9 0001:0000A4BC 000007FB C=CODE S=.text G=(none) M=VarUtils ACBP=A9 0001:0000ACB8 0000285A C=CODE S=.text G=(none) M=Variants ACBP=A9 0001:0000D514 0000020C C=CODE S=.text G=(none) M=MyTypes ACBP=A9 0001:0000D720 00004E04 C=CODE S=.text G=(none) M=Main ACBP=A9 0001:00012524 000001D0 C=CODE S=.text G=(none) M=Project1 ACBP=A9 0002:00000000 000000A0 C=DATA S=.data G=DGROUP M=System ACBP=A9 0002:000000A0 0000001C C=DATA S=.data G=DGROUP M=SysInit ACBP=A9 0002:000000BC 00000230 C=DATA S=.data G=DGROUP M=SysUtils ACBP=A9 0002:000002EC 00000008 C=DATA S=.data G=DGROUP M=VarUtils ACBP=A9 0002:000002F4 00000076 C=DATA S=.data G=DGROUP M=Variants ACBP=A9 0002:0000036C 000000C4 C=DATA S=.data G=DGROUP M=MyTypes ACBP=A9 0002:00000430 00000038 C=DATA S=.data G=DGROUP M=Main ACBP=A9 0002:00001000 00000660 C=BSS S=.bss G=DGROUP M=System ACBP=A9 0002:00001660 00000010 C=BSS S=.bss G=DGROUP M=SysInit ACBP=A9 0002:00001670 00000004 C=BSS S=.bss G=DGROUP M=Types ACBP=A9 0002:00001674 00000004 C=BSS S=.bss G=DGROUP M=Windows ACBP=A9 0002:00001678 00000004 C=BSS S=.bss G=DGROUP M=SysConst ACBP=A9 0002:0000167C 00000120 C=BSS S=.bss G=DGROUP M=SysUtils ACBP=A9 0002:0000179C 0000005C C=BSS S=.bss G=DGROUP M=VarUtils ACBP=A9 0002:000017F8 00000040 C=BSS S=.bss G=DGROUP M=Variants ACBP=A9 0002:00001838 00000004 C=BSS S=.bss G=DGROUP M=MyTypes ACBP=A9 0002:0000183C 000004D8 C=BSS S=.bss G=DGROUP M=Main ACBP=A9 0002:00001D14 00000024 C=BSS S=.bss G=DGROUP M=Project1 ACBP=A9

Вот, а в какую именно секцию смотреть, и где размер? :)

Variants без Types и SysUtils Найти похожие ветки