Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "KOL";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Вниз

OleVariant и OleObject в KOL Delphi 4   Найти похожие ветки 

 
Сашик   (2008-06-01 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 ©   (2008-06-02 00:08) [1]

http://webfile.ru/1990370


 
MYRX   (2008-09-11 00:17) [2]

Ребят, киньте свежую ссылочку, а то эта уже битая


 
MYRX   (2008-09-11 17:49) [3]

Ну или хотя-бы как связаться с автором?
(тот ящик, который указан у него в профиле не существует)


 
Дмитрий К ©   (2008-09-11 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   (2008-09-11 19:41) [5]

Спасибо


 
MYRX   (2008-09-12 10:57) [6]

Э....
забавно
а модуль не компилируется даже на тестовом примере в первом посте
на строке VarDispProc := @VarDispInvoke;
выдает, что VarDispProc - это ундекларед идентифер


 
Сашик   (2008-09-22 23:46) [7]

http://folderfile.ru/8245431. Компилируется только в Delphi 4 и 5!!!



Страницы: 1 вся ветка

Форум: "KOL";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.068 c
2-1272548272
Ardent
2010-04-29 17:37
2010.08.27
StringGrid красим ячейки мышкой


2-1268837432
Berger
2010-03-17 17:50
2010.08.27
Как скопировать число из памяти в переменную


2-1268726485
Boortwint
2010-03-16 11:01
2010.08.27
Нахождение "особого" элемента в массиве.


15-1274120084
М. Береговой
2010-05-17 22:14
2010.08.27
Почему нельзя делить на ноль?


4-1227220571
AnarchyMob
2008-11-21 01:36
2010.08.27
Сообщение при изменении состояния контролла.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский