Учитајте ДЛЛ из ресурса директно из меморије

У чланку о томе како похранити ДЛЛ унутар еке датотеке програма Делпхи као ресурса објашњава како испоручити ДЛЛ са извршном датотеком Делпхи апликације као ресурсом.

Динамичке библиотеке веза садрже размењиви код или ресурсе, они пружају могућност да више апликација дели заједничку копију рутине (или ресурса) коју имају заједничко.

Користећи датотеке (.РЕС), можете да уграђујете (и користите) звучне датотеке, видео снимке, анимације и уопште било које врсте бинарних датотека у извршном Делпхију.

Према члану Учитавање ДЛЛ-а из меморије Јоацхим Бауцх, ово је могуће.

Ево како Јоацхим гледа на проблем: Задане Виндовс АПИ функције за учитавање екстерних библиотека у програм (ЛоадЛибрари, ЛоадЛибрариЕк) раде само са датотекама у датотечном систему. Стога је немогуће учитати ДЛЛ из меморије. Али понекад вам је потребна тачно ова функција (нпр. Не желите да дистрибуирате пуно датотека или желите да отежате растављање). Најчешћа решења за ове проблеме су да прво запишете ДЛЛ у привремену датотеку и увозите је одатле. Када се програм прекине, привремена датотека се брише.

Код у наведеном чланку је Ц ++, сљедећи корак је био да га претворите у Делпхи. Срећом, то је већ учинио Мартин Оффенвангер (аутор књиге ДСПлаиер).

Меморијски модул Мартин Оффенвангер је проширена верзија Делпхија (и такође Лазарус) компатибилна са Ц ++ Јоацхима Бауцха Меморијски модул 0.0.1. Пакет зип укључује комплетни Делпхи изворни код МемоиМодуле (БТМемориМодуле.пас). Поред тога, укључени су Делпхи и узорак који демонстрирају како га користити.

Ако је демо ДЛЛ сачуван као ресурс помоћу РЦ датотеке:

ДемоДЛЛ РЦДАТА ДемоДЛЛ.длл

вар
мс: ТМемориСтреам;
рс: ТРесоурцеСтреам;
започети
ако 0 <> ФиндРесоурце (хИнстанце, 'ДемоДЛЛ', РТ_РЦДАТА) онда
започети
рс: = ТРесоурцеСтреам. Креирајте (хИнстанце, 'ДемоДЛЛ', РТ_РЦДАТА);
мс: = ТМемориСтреам. Креирај;
покушати
Госпођа. ЛоадФромСтреам (рс);
Госпођа. Позиција: = 0;
м_ДллДатаСизе: = мс. Величина;
мп_ДллДата: = ГетМемори (м_ДллДатаСизе);
Госпођа. Реад (мп_ДллДата ^, м_ДллДатаСизе);
напокон
Госпођа. Бесплатно;
рс. Бесплатно;
крај;
крај;
крај;

вар
бтММ: ПБТМемориМодуле;
започети
бтММ: = БТМемориЛоадЛибари (мп_ДллДата, м_ДллДатаСизе);
покушати
ако је бтММ = нулаонда Прекид;
@м_ТестЦаллстд: = БТМемориГетПроцАддресс (бтММ, 'ТестЦаллстд');
ако је @м_ТестЦаллстд = нил, онда одустани;
м_ТестЦаллстд ('Ово је позив за меморију Длл!');
осим
Сховмессаге ('Дошло је до грешке приликом учитавања длл:' + БТМемориГетЛастЕррор);
крај;
ако Додељено (бтММ) онда БТМемориФрееЛибрари (бтММ);
крај;

1. Имати / креирати ДЛЛ
2. Складиштите ДЛЛ у РЕС датотеку
3. имати Имплементација БТМемориМодула.
4. Узмите ДЛЛ из ресурса и учитајте га директно у меморију.
5. Користите БТМемориМодуле методе да бисте извршили процедуру из ДЛЛ-а у меморији.