Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ActiveX

antonm © (2003-03-09 23:41:00)
Использовал я в своем KOL-приложении ActiveX компонентTShockwaveFlash. Размер .exe стал ~400Kb. В файле ShockwaveFlashObjects_TLB.pas естественно используется куча модулей:
uses Windows, ActiveX, Classes, OleCtrls, OleServer, Variants;

Это лечится? Может я делаю что-то не так?

p.s. Установил KOL&MCK первый раз...

Fantasist. (2003-03-17 23:41:00) [1]

> Нужно и многим - уже письмами заволили ;-)

В каком духе?
А чтобы вам тогда самим и не закончить? Не уверен, что в ближайшее время буду этим заниматься ( надо писать коннектор для MS SQL 2000 из под Linux :) ). Там ничего сложного нет - все что нужно - это сообразить как половчее создать таблицу интерфейсов, (тут можно кое-что улучшить но не думаю, что что-то кардинально все-равно останется не очень, примерно как COM в C (не С++) - тоже работает, только основной код делают мастера, потому как очень понятно что делать, но громозко все писать самому) , а дальше пишим мастера, переводим VCL - короче работа большая и другого плана. Один тонкий момент, имплементацию IDispatch я уже организовал, ее вполне можно использовать.

Fantasist. (2003-03-17 23:25:00) [2]

>
> But example not compiling under Delphi 5 Standard ;-(

For Delphi6 both defenition can be found in System unit. Otherwise here:

TVarType = Word;

PGUID = ^TGUID;
TGUID = packed record
D1: LongWord;
D2: Word;
D3: Word;
D4: array[0..7] of Byte;
end;

Boguslaw (2003-03-16 21:04:00) [3]
2 Fantasist

But example not compiling under Delphi 5 Standard ;-(

First error: Where is the definition of TVarType ?

Second error: Record,object or class type required --->

function GUIDComp(GUID1,GUID2:TGUID):boolean;
begin
Result:=(int64(GUID1.D4).Lo=int64(GUID2.D4).Lo) and (int64(GUID1.D4).Hi=int64(GUID2.D4).Hi) and
( GUID1.D1=GUID2.D1)
2 Fantasist

But example not compiling under Delphi 5 Standard ;-(

First error: Where is the definition of TVarType ?

Second error: Record,object or class type required --->

function GUIDComp(GUID1,GUID2:TGUID):boolean;
begin
Result:=(int64(GUID1.D4).Lo=int64(GUID2.D4).Lo) and (int64(GUID1.D4).Hi=int64(GUID2.D4).Hi) and
(GUID1.D1=GUID2.D1) and (GUID1.D2=GUID2.D2) and (GUID1.D3=GUID2.D3);
end;

Bartov (2003-03-16 13:29:00) [4]

2 Fantasist.

> Хотя возможно стоило вообще все это дело
переписать, в данном варианте оно работает, но
выглядит не очень красиво. Только не вижу пока, чтобы
это было кому-то нужно.

Нужно и многим - уже письмами заволили ;-)

Bartov (2003-03-16 01:09:00) [5]

2 Fantasist.

Выложил в разделе "Модули"

Bartov (2003-03-14 09:23:00) [6]

Извениюсь, перепутал (еще пока сплю на ходу), качайте отсюда:
http://delphikol.narod.ru/units/KOLActiveX.zip

Bartov (2003-03-14 09:05:00) [7]

> Я послал это все Gandalf. Давно уже. Месяца два-три назад. Это была рабочая версия предаставляющая возможность писать ActiveX на паскалевских object. Не скажу, что найденное мной решение самое красивое, однако это было интересно.

Качайте отсюда:
http://delphikol.narod.ru/progs/KOLActiveDLL.zip

Ссылку на страничке сделаю попозже.

SerB (2003-03-14 08:24:00) [8]
Извините, но я маленько не въезжаю, а что кладовская утилита TLIB2KOL не срабатывает? Кстати я из 55 kB в своих приложениях с библиотечкой ActiveX и ShokwafeFlash не выползал (и в KOL и в KOL&МСК проектах... Намыль на вский случай и мне...

Boguslaw (2003-03-14 01:05:00) [9]

and for me...

Bartov (2003-03-13 19:38:00) [10]

2 Fantasist.

Зашли мне тоже.

Fantasist. (2003-03-13 19:06:00) [11]

> Could You publish all Your work about ActiveX in KOL somewhere
> on WWW page ?

Я послал это все Gandalf. Давно уже. Месяца два-три назад. Это была рабочая версия предаставляющая возможность писать ActiveX на паскалевских object. Не скажу, что найденное мной решение самое красивое, однако это было интересно.

Юрий (2003-03-13 18:24:00) [12]

Может кто может написать мастер по переводу таких импортированных Delphi ActiveX на KOL? Может это не так сложно? Или всё-таки это трудоёмко? Что скажут те, кто KOL пользуют давно?

Boguslaw (2003-03-12 20:11:00) [13]

Could You publish all Your work about ActiveX in KOL somewhere on WWW page ? That was very interesting....

Fantasist. (2003-03-12 18:55:00) [14]

Хотя нет, поторопился - обертку typelib-а еще сделать можно, в этом случае самому объекту поддерживать интерфейсы не нужно - достадочно просто хранить их в переменных.

Fantasist. (2003-03-12 18:26:00) [15]
Естесственно, мастер создает ActiveX из библиотеки типов на основе компонентов VCL, то есть VCL и подключается. Перевести его на KOL без ухищрений не получиться - objectв Делфи не поддерживает interface, так как работу его обеспечивает TObject.
( некую поддержку COM)
Естесственно, мастер создает ActiveX из библиотеки типов на основе компонентов VCL, то есть VCL и подключается. Перевести его на KOL без ухищрений не получиться - objectв Делфи не поддерживает interface, так как работу его обеспечивает TObject.
Кстати, я когда-то написал подобное извращение (некую поддержку COM), интересно, что с ним стало?

SPeller (2003-03-10 01:56:00) [16]

Лучиться должно, просто этот компонент нужно перевести на KOL.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »