в общем проблемка.
есть компонент, в который загружается некая структура. для некоторых последующих операций с этой структурой используется некое подобие лиспа.

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

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

мож есть какие ключики компилятору или опции какие.
потому как думаю изза памяти все это.

да и глюк дурной - Invalid class typecast

кому интересно можно и поподробнее.

Давай подробнее.
Проблемы могу быть -
1. Разное значение прагмы ALIGN
2. Проблемы с менеджером памяти (каждый модуль использует свой менеджер)
3. Импортированные из dll функции не помечены как stdcall
4. Класс, которые тебе возвращается не наследник и не предок того, к которому ты приводишь.

Выход один. не передавать никакие компоненты, а только структуры данных

ща будет подробнее.

во первых dll используется не как обычно. не для "расшаривания функций".
в dll прописано только 2 функции
InitPlugIn, - собственно то, что интересует.
GetInfo; - просто инфа типа версии

procedure InitPlugIn(const FLogger: TLogger); Logger - тот самый компонент
begin
Application.CreateForm(TMain, Main);
Main.SetParams(FLogger);
Main.ShowModal;
end;
----------------
тута идет обработка постоянно поступающих в структуру данных. чтото типа лиспа
if Assigned (FHandler) then begin
PriorValue := FValue;
N := FHandler.Evaluate; обработать, если есть чем.
try
FValue := (N as TNumericNode).AsFloat; - вот тут и вылетает Invalid class typecast

а это если нет обработчика
else if Assigned (Sensor) then
begin
PriorValue := FValue;
FValue := FSensor.Value; - это работает в любом случае

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




а делал через dll чтоб была модульность.
слишком много писать придется чтоб объяснить зачем

_Alex_
Ню-ню...

const FLogger: TLogger - и слово const говорит о том, что FLogger не будет изменятся.
Убирай const и все ок.

Logger - это просто компонент для передачи данных. но все равно попробую.

в таком случае почему это прокатывает?
>а это если нет обработчика
>else if Assigned (Sensor) then
>begin
>PriorValue := FValue;
>FValue := FSensor.Value; - это работает в любом случае

в ЛЮБОМ случае. была или не была загружена структура в компонент до его передачи в dll

_Alex_
Вопрос на вопрос: А что такое Value и FSensor?
Ты либо описывай структуры (хотябы так TSensor = class...end) либо коменнтируй.

согласен. тороплюсь малость

полностью описывать смысла мало. да и много там всего.

в общем есть прибор. он регистрирует различные данные и сыпет на СОМ порт.
Logger - чтото типа менеджера этого прибора. управление и обработка данных.
прибор можно представить как набор "датчиков" и "каналов".

так вот.
Канал - это обработка показаний датчика. у каждого канала есть датчик.

терь немного повторюсть.
procedure TLoggerChannel.Update; - обновление показаний канала.
var
PriorValue: Double;
N: TNode;
begin
if Assigned (FHandler) then begin - если есть обработчик (в FHandler формула для пересчета, например к*х+в где х-значение датчика),

PriorValue := FValue;
N := FHandler.Evaluate; - то пересчитываем значение по заданной там формуле
try
FValue := (N as TNumericNode).AsFloat; - FValue - показания канала
end;
finally
N.Free;
end;
end
else if Assigned (Sensor) then - если нет обработчика,
begin
PriorValue := FValue;
FValue := FSensor.Value; - то просто забираем значение датчика
end;

OnChange (Self); - кидаем событие
end;

так вот.
FValue := FSensor.Value; работает всегда,
а FValue := (N as TNumericNode).AsFloat; - как уже писал


ввиду того что этих приборы очень разные, думал специально для каждого типа сделать dll. запускаешь прогу, выбираешь нужную dll и запускается настройка этого прибора.

такая вот муть.
видимо придтся делать без dll. просто выйдет довольно неудобная прога. все подряд в нее пихать

_Alex_
Проверяй, что тебе возвращает Evaluate.
Если nil, то он естественно не откастится.
Все скаляры преобразуются как TNumericNode(N) а не кастом через as
И скорее всего, проблема в const.
Но идеальнее всего гонять класся как Longint (и приводить к нужному типу).
И опять же, проверь наличие/отсутствие юнита sharemem - это разделение менеджера памяти.

По любому

Не правильное описание. Без const используй. И не забудь в dll приписать в раздел use boralndmm

ну точно могу сказать что const тут ни при чем. как бы это не звучало

если не ошибаюсь галочка рядом с Assignable typed constants. ну так надо.
sharemem нарисовал в главном приложении - ничего не изменилось. мож еще куда надо? но попробовал все варианты

>Проверяй, что тебе возвращает Evaluate.
>Если nil, то он естественно не откастится.
не nil. но не кастится

>И не забудь в dll приписать в раздел use boralndmm
не догнал. вроде как boralndmm.dll требует если Sharemem заюзать. или ошибаюсь

Ой точно, по памяти писал

Есть Dll


В проге


при использовании в программе функции Convert возращается пустая строка - ПОЧЕМУ. :weep::weep:
//в dll 100% возвращается не пустая строка

web-dav
Uses sharemem
и все будет ок

web-dav Крайне не желательно испоьзовать string в .dll, PChar можно. Но если уж приходится то как и писал Makoed , надо добавлять sharemem. Вообщето об этом написано английским по белому в хелпе

что такое sharemem и с чем его едят...

web-dav
Это такой модуль, который позврляет без проблем передавать строки из external функций, и вообще мой тебе совет: почитай MSDN-July-2004, говорят помогает...

А еще можно пользоваться ShortString-ом (это, кстати, тоже в хелпе написано)

web-dav Используй PChar. Не будет ниаких проблем с совместимостью. Полученный .dll будет пахать с программолй написанной на любом языке программирования.

Вот тебе пример.

И прем использования этого .dll

Ray Adams
Thanks попробую