Integer(Picture)

← →
kblc © (2005-06-07 08:15) [0]

Уважаемые мастре, у меня к вам такой вопрос:

есть функция, которая возврашает строку...:

..... if not Assigned(mIcon) then begin mIcon:=TPicture.Create; fmDataModule.il_icons.GetBitmap(0,mIcon.Bitmap); end; Result:=IntToStr(Integer(mIcon)); ....

переменная mIcon глобальная (находиться в библиотеке)
mIcon определена, Bitmap загружен точно

а вот функция, которая получает это значение (находиться в ехе-шнике):
..... res:=Lib.ExecFunction("GET ICON"); try if length(res)>0 then begin Pic:=TPicture(StrToInt(res)); il_Icons.AddMasked(Pic.Bitmap,clBlack); end else ......

переменная Pic определена, но Bitmap в ней пустой. Почему так ???

← →
Digitman © (2005-06-07 08:24) [1]

> Почему так

http://delphimaster.net/view/1-1118108863/

p.s. непонятна блажь с передачей ссылки на объект в виде строки

← →
kblc © (2005-06-07 08:31) [2]

Теперь понятно почему она писала что не может определить TBitmap как TBitmap... хм.. как же тогда поступить?

но почему тогда мои объекты в виде ссылок передаються? и всё работает замечательно? т.е. мои классы.

>Компилируйте Exe и DLL с run-time пакетами.
>Или вместо DLL используйте BPL.
Э.. это как? объясните пожалуйста :(

>Или используйте COM-технологию.
>Или откажитесь от передачи ссылок на объекты.
Отказаться не могу.. как то же надо обмениваться данными, а для меня это самый просто способ...

← →
Digitman © (2005-06-07 08:40) [3]

> но почему тогда мои объекты в виде ссылок передаються? и
> всё работает замечательно? т.е. мои классы

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

> Э.. это как? объясните пожалуйста

взведи в свойствах обоих проектов опцию Build With Run-Time Packages и пересобери проекты

← →
kblc © (2005-06-07 08:55) [4]

сейчас попробую....

← →
kblc © (2005-06-07 09:01) [5]

Да, всё заработало...
большое спасибо...

← →
kblc © (2005-06-07 09:06) [6]

хм... зато теперь на других компах, где не установлена delphi это не работает.. так? ... как же теперь сделать так, что бы работало?

Run-Time Packages до полного понимания.

я знаю что это знаичт... можно ли без этого обойтись???

я понимаю, что теперь это всё нужно с собой таскать... лишнее убрать можно.. и т.д. ... но всё равно... многовато блин!!!! значит - ед. вариант - через COM ???

Integer(Picture) Найти похожие ветки