-
Сашик (01.06.08 22:05) [0]Для оживления типа OleVariant с возможностью присваивания ему Ole-объектов предлагается урезанный ComObj (11 кб). Наиболее экономно использование типа Variant в Delphi 4.
Всем известный пример "KolWord" на Delphi 4, будет выглядеть так :
program HelloWorld;
uses
KOL, NInitCom;
var Ap: OleVariant
begin
OleInit;
Ap:= CreateOleObject('Word.Application');
Ap.Documents.Add;
Ap.Visible:= True;
Ap.Selection.TypeText(Text:= 'Hello, Wor(L)d!');
end.
Длина на выходе: 22 016, оригинальная длина с использованием PWordDocument - 18 432. Думаю, что удобство в использовании и функциональные возможности с лихвой перекроют 3 500 байт...
Если кто заинтересовался, то пожалуйста по адрессу http://wefile.ru/1990370 -
Jon © (02.06.08 00:08) [1]
-
MYRX (11.09.08 00:17) [2]Ребят, киньте свежую ссылочку, а то эта уже битая
-
MYRX (11.09.08 17:49) [3]Ну или хотя-бы как связаться с автором?
(тот ящик, который указан у него в профиле не существует) -
Дмитрий К © (11.09.08 18:18) [4]begin 644 NInitCom.7z
hBrewfmQQ++AucvlhH+o+++++++-O+++++++++4kOp+c+Cdi7MY2hvmBPr9Fo
hgCA-tLzcR4i9hTZufLUkBM10aH-QkTKphkpERxb4TuUXEXD05xjemA3R2mA-
hkTdlJRWJ35iZDvEx0i0oQ-ahNK56hW4D0393+Fpxmi-IUhHB9a3Ra7tZI8G6
hH9WEpBXn0pBNHrW07vivM26Fl+ukDTGsCVRPNVfcfwNTK0iPomUUWd11XV9U
h4kWs61Z7ahmJbKOf3y6gMcoMpuK6HNxT-kP0hhu-0MYf6Ao4kEJ7SIQfgfkz
hnWPIQi-TKBHnIGKeaug2I8gIDIY1KkglhsHjg7NBny71q7FtEXsvOUWaDczZ
hrj2NLZudACLc47qTtOqk0tZm-HvJCWzj00GKUQr-DhcVjDOeKG8nEEo0hgFK
hL-NCp2ToSNa00Lay2cXgh5yKs6wIRDebCoR3Lj4DCTpVefcU+tTMt-Znjyhq
hI9KdKLVhAQDYI7aKcQVZJ4sYZcJNA3u5ImANF4x6ioEFdgpv0vaPFGZ9BVGY
hiD7bNaoURTKmauFKeH-I4JPRvYo7O8kIYq-4rPLev5yhSY+M1MP8AoNjq8Ou
hRv+8ss23cLgsUucC0nf-tnXQjqPiWopopi9Nh-YUSIKIaTFjJddGSigEqNY+
hM+Yv7IfSfwfXM1+4Hqd5aTGpZbsHGZHhXvQiB8w4GheQhBN80wANfsDxlYt6
hwoN5Nx+Whn7O1KtI+dw3ZDbUfVTRF58R663XlG8suqs2PxeKWq7SoC+H14jJ
hS5LUZ5Aba1UR08e7bh6GImHXwzYEMYbd-x6lxi2DFFUyf-eyUKVwNixLlIxz
htctYXqcfrRjMIYd2F9tkrqYTpGWH1zbrpA0v7p8FLOf0XNsEbstJJYFx0Jk+
hC9JCP-N0KWrHv70MWkMQjVJT4cw8szrUT77IiRKARk8oipGubrA6yTBju1qQ
hydRjegJBoPgoSu3X36ok65QL2ffPlpDOy01+3TjwLGs1p8X7LmrvhiRYuGfk
hfv6l+Z6mzgIQuOzrzFYvCvrJT8ffmMhXkThHHaJBuo5WGzM41JzmHhX5fxui
hFQ1pOiA+b+ujjOmjSWfqI7PJrXw1HXX042O6XVJ3ZJGU2-hJAzl6WYKVx6sZ
hmcHEoDKwJfC2TbbUjXir-bANHscVE3E51pU4rAtQ8--iH7YtYoHa+J4ka+BM
h5sSP6H819FNbQErq7ZIJnxvkl5wISRLAx1ey0012zSmvQMTQ+5o-AWHhyzZM
hLEVvge8ZRpaERW3+NL9r7d4x5U35gjOvPrtdoLJDgAqCSK7Gyzm1-P-iJO4F
hbB5iGG9Bd6-2eQHl8pnuckDYDwVT4KoLpl7lADqh7omXc6D5E6zRCevjb4u3
htcL8wnowRSr7K38lSZmnQ7AuA3hufy7nKDvWtAGmf0T6dPqIvcCqhG247uGk
htnWTZUkhegIqCvpG8IoOTaXsgwuAeWixaGJ8yA27zsq1-whRFNkCvQdpiM9s
hPof3JAjtucm5oKh4DNmGFbTn2vlEMO-FbwyLfimBdxet+q97IN4V8HfAEVho
hzc3Ugf3odClxbDRuMAUmf708DhmCorhYDf0C4j3JlyL255Qhe1614-TCyCiu
hWBpgPdIArHefpIv2XR5U5aXdPXe8z6u7R-za0EjdWpiyMKrpIh+TpbmJukLh
hHGCnRgFYef52dQSd-Z2fLHFFLStS9CI+cMPX4rsP8TWq+ua6jIWc3o8+c2rW
h-cXHRHJmWj+7-ttYdHfNUOn2cE8uqGS2YCgt4LtDAvW95JULxPZCCmi6LWIV
hLx64Z7URou9Yv0yZEp8cZtKCbDwJL+8A0OuK68WIlmdikuJ0frMxIJnfRmwd
hP2trEv+A69f0eyvHsJLpNhpII5tOTrJyBBgBMeyX19sohy1ZMC9x6U+JbxUw
h9zwUz5oKuzghWBKNDQJFsWp8zFSRNQBqqlp+ovkXkHs8p2HafsucWfP4VUAy
hbiPpApAn0XMuwyX4OKhUrom-4ealDFx5-Ai8qf+nbD9frzqQgsErpJokqfIg
h1RZxc04MKjLvHM6YI5Tdk4mLZfJQzxWXKPf9NOYcGESkdbAvNNbSAwEuz2Ol
hpCThVjITGBF351uJL-rKXU64UEiOfg4krfNwe1R5wBmNcoI8eFi0SjKmsUYc
hq4CSTZXXzSSXQSQhOOuhGTT9daD+w4jmrAowET2-XX4oKyECmu1Tm9YsViiE
hFs8ItmAZX1jcdhnwgOsVtF+VLmcdcEBd8b1CwFVvTy1TupAXAkPx2-Z-phZu
hIT-7RlVln-L1VXW+VYt433iUKvi-LThfPG2-FHtNM+UGj6aKLbuCOxRimopc
huTPLU9peh6-jHYw6tiRu1EhxSaCcsVirCh73ljyK2c+8JvIwjbpGC30PEpsO
hBPxDoRkEqh83ndsSZH3sJYw6sTHuAFnfO7wu0VxewCWmCq7dc+jUeLuz4s4e
hmJKB9TAHdfjznoAk5ckjDBAjtidEhL2c6ittfvRtdAUhGnOBcl94Gx2YGG7h
hsaiCBqGnZn7Yf8sx5otTiyhzpnuKse+nIZkpUdQHFzT8dIxoTgqcggMIosGX
hhhMhZEZiSSWBjzGJPazTDayM8NdIETq+1dY5dw0YsyveH8kjIxhrYHOrVOm7
hNxhVXinMfBDmENmG0GiNJf0W-4C6h9vEfJkHnki3wa8PVF0lj5VgRCTorZZ1
hMf4RvdVErKenxg6wSKqJ24vVlC99s6CzxnuTx09XHI7lR2TAffvRtd-eClzF
h-iuuNJ+lu60YOfdHU1tlkXkGdqdBiK6RvLrAHSsphxASndHFRMKpoGnKWbjT
hhCx1ChALKwzIpsl8lWemr1VoiIQfau9GUleDT85QGVrmJ3P5SRTExvVoCavP
hXSwnnBsI0HH4b2e9h9j6Y-KRQ3o8LVFsVpjv3PoDRZ4ZxNExwW198lx1N2C9
hcv38L6KEXsDr4bfOLscK1iuEZZzfE0dOWMrVOzc2YTNX1NLmpXIGpF6M4MNu
hn0hzznaOyPBwBqz7wq-B3fHNkURFfFryr74FLj-jOgvfqmsCvxBjsp2jUPWt
h2AVZtSaT3EH0f+iHk+a03jeJAsgHJpWvmxO1xkTIZbhjC3qh93YWcFwKsr3t
h-cah5uBcioKC2F2CmcsorRMdEdWloJXMEUZm-hAYRk6TkFqC4SnpoZ970rc3
h7TlqwrUI6vCzfH2qdOvml29nztgYdBUVtbOBuj9GaPU4vMHpJ3Xngqx7OIRg
hgDNbFIlqdBYrhUat0shQMTOsp3iStpbo8Vv5ROqJ5D60Rdw7jSQfy6lSIgAW
hk6597svEYeRcBbvRVKsvhYo-uManRcW0SwtOzIq+G5HP7GYmtKc3q71GFnB1
hRB+vhXSbhfS3CfQNZvEk30XQcfmSPAKrfnR+EdWGwzFuvnvFg-olcj-B+9l3
hfkC3wa7fKKKdzsdKd6-x6F0qe5mS4JU4Ml5IWjz+6Hs+xOMBytg6s5cOHsjs
hec4qRCoP1S6XE0mnuMGDSKqMz5+0btCOScR8K90g1diAjZDL9h5LUiMBjMjV
hnLKbwSgGgstAG4UOdAOq0oPzZClL-TIYReNltqOdDN7PZGiI7xKeZufDOq6O
hJ05PTg-ZRCOtUu4u8NB8erhyJ9v-t7apbxlHuhJruLlsFDy5Iol3GBSwC-io
hF5FmI05y-q0e5XEilebfuIuuAOzXIZ5ZXlzf1gayF++wyT-KcJEnpiDZbqF8
hsbTt1Yp51YN79U+tSkfVuuKnc-pJaBQLQcZ4g3I0pd0BCrftF6TZ5b5nTCWv
hEOaQmfCrpmvspa43+KEuQTIoh-uBZ++RHxbyFLqXfKhnTeBqPXLMARNsrMLa
hX9JNQ6SCW6VNxWBw2U1tOkTmqEzecz+0sHNOXK6U2mLqdnUdTblhPVGaC8yj
haWYTRMa6n7bgRqhPLTJvKz5I4BsnKEBHzBNXd+YVDyFdOUIoZma+p0mIWHPK
hMxGRjYTUrrPpxU7V+4V81S04-BhnNYkvf+zrkbV5YTtv+KMP6puN6yT5bfYv
hHqrXB3T6rZ5ovFaX0v9v1XnKH37XXnZpfSKlq5qoRyF0IujOnROTlJapdA-x
hbXRh0YRE-pbw2+L1F1l9dyevKnvtzhkEB0KhcknKnxZtiMjr8eSGKMud1vIR
huEhqcz-NxH4bA0Tw1h8K+aCwT+gCdaDl69D9LzLKmjZhTEJgEPdiKKuQvuXc
hFj5xNRyYpbWrDKYaYu21mbPeQl7ykgE5xVxJHqmhLOgpNfnbkRxHK+dfsQka
hy1KWt2oeG7c8tCk02YzgA01+7+1rRxkwxN7tgirXsG5W-+pORFaf4mFpx3FB
hBGtban9GpOQKwVwNYSQPVjDo970H-aBsAJ3y2M3VLwJ8sJ04fwWl7g5kW1WY
hOEnH79wZCN6MoUuRBUwHpze7mBxab3JchK+SVRbwed6yeQFd9ONK4dE89oda
hK-nLP9X33jYq4XxMoLx5ogR9ZM2oO+m4bpC0uT0ejq1BDZKyfCxtEPBhoCw7
hZLfHgrvmnmd3-V-rT4X6EDnCDWOzDLpIrRnT87IRTaYyWSWSKV7zq2NTbWl+
hmDdNGLLwYGhE8pJuJB7qYk22-U+-0MpA++Q9+E+-6kA-+EJR+++-++mjRU+6
h0U2UG8Vs+++3+F2P+2s+GE-i+4Y+R+-1+4w+PE+i+5++ME-n++++3+c-+A+c
EiDQXlAU-3EM-+0++++++++++
+
end
sum -r/size 14142/3526 -
MYRX (11.09.08 19:41) [5]Спасибо
-
MYRX (12.09.08 10:57) [6]Э....
забавно
а модуль не компилируется даже на тестовом примере в первом посте
на строке VarDispProc := @VarDispInvoke;
выдает, что VarDispProc - это ундекларед идентифер -
Сашик (22.09.08 23:46) [7]http://folderfile.ru/8245431. Компилируется только в Delphi 4 и 5!!!