Как вызвать функцию из Bpl если таковая имеется?

[eldalex]

Всем доброго дня!
В общем в названии темы и вопрос. есть одна bpl, назовем её Mail.bpl.
она подключается к основному модулю и работает вполне хорошо. возникла необходимость создать еще одну bpl, назовем ее dop.bpl, которая будет дополнением main.bpl.
сейчас обе они готовы и работают, но есть одно но.
главный юнит dop.bpl просто указан в разделе uses у main.bpl т.е. при компиляции главного модуля он цепляет дополнительный и видит все его процедуры и функции.
проблема в том, что если запустить основную программу и не положить в папку dop.bpl то при подключении main.bpl происходит ошибка, что "модуль dop.bpl не найден, повторная установка приложения может решить эту проблему".
так вот. собственно вопрос, как можно подключить этот модуль неявно? т.е. при вызове какой либо функции из dop.bpl проверить его наличие и при положительном результате вызвать функцию, при отрицательном же просто сказать что "извините но такая то функция недоступна."
если можно то с каким нибудь примером фух, надеюсь я понятно описал проблему, а то у мну с объяснением постоянно плохо...

[Stilet]

Если оттуда вызываются только функции то просто динамически загружать как обычную ДЛЛ, если оттуда используются компоненты то если не ошибаюсь придется и их полностью переписать на динамическую загрузку.
Если что можно в dpr проверить через FileExists на наличие этого файла и вывести сообщение о ошибке. Но я бы не стал парится, раз программа сама позаботилась о выводе сообщения, пусть не такого как тебе хочется.

[eldalex]

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

[Stilet]

В этом случае тебе стоит почитать о том как делают плагины. Там описано решение твоей проблемы.

[eldalex]

Пытаюсь сделать так:
описал в dop.bpl функцию

unit dop_unit;

interface
uses
  Graphics;
Function Myfuction(ID:longint; PID:longint; DID:longint; PKID:longint):TPicture;

exports
 Myfuction index 1;
...//дальше сама функция и еще всякие мелочи

теперь пытаюсь вызвать ее из main.bpl

procedure TProtocol.InsertGrPrNew;
var
  wPict             : TPicture;
  wJp               : TJpegImage;
  hndBPLHandle  : THandle;
  pfun              : pointer;
begin
  try 
    hndBPLHandle := loadLibrary ( 'dop.bpl' );
    if hndBPLHandle <> 0 then
    begin
      // BPL найдена. получаем адрес функции
      pfun:= getProcAddress ( hndBPLHandle, 'Myfuction' );
      // если адрес функции найден
      if addr ( pfun ) <> nil then
      begin
        showMessage ('нашел функцию');
        wPict := TPicture.Create;
        wJp := TJpegImage.Create;                                           
        wPict :=pfun(FEditor.ID,FEditor.PID,strtoint(CurrentInfo.DID),FEditor.PKID); << ругается на эту строку, говорит что "missing operator or semicolon"
        if wPict.bitmap.empty = false then                                  
        try
          wJp.Assign(wPict.Bitmap);
          FEditor.InsertPicture('##Picture_GRNEW##', wJp, rvvaBaseline);  
        finally
          wPict.Free;
        end; 
      end
      else
        showMessage ( 'не нашел функцию' );
    end
    else
      // BPL не найдена ("handleable")
      showMessage ( 'не нашел bpl' );

  finally
    // liberar
    freeLibrary ( hndBPLHandle );
  end;

обычно ошибка такая возникает когда пропущена ; но тут не пропущено... как правильно вызвать функцию с параметрами?
если просто оставить сообщение о том что он нашел функцию, оно выскакиевает, т.е. вроде как работает. хотя опять же не факт(

-----------------

а, все разобрался)

[eldalex]

Можно еще глупый вопрос?
что значит stdcall?
вот я описываю функцию

Function Myfuction(ID:longint; PID:longint; DID:longint; PKID:longint):TPicture; export;stdcall;

так указанно во всех примерах которые я видел.
но при вызове этой функции из 4х параметров правильно приходит только 1, остальные приходят совершенно другими числами. и плюс к этому вызов функции у меня почему то зациклился, она начинала вызываться n'ное количество раз. ну или если не ставить showmessage на выходе (пошагового решима нет, так что приходится отлаживать таким вот нехитрым способом.) то прога полностью вылетает.

если же описать вот так:

Function Myfuction(ID:longint; PID:longint; DID:longint; PKID:longint):TPicture; export;

то функция вызывается и отрабатывает правильно.

[Stilet]

Загляни сюда:
http://ru.wikipedia.org/wiki/%D0%A1%...dcall.2Fwinapi

[eldalex]

Прочитал... потом погуглил и еще почитал...
в статье написано:

Очистку стека производит вызываемая подпрограмма.

это происходит автоматически или надо прописывать ручками?

[Alexei91]

По-моему ручками,это же не Java с автоматическим "мусоросборником".