free pascal, dll i wskaźniki

0

W dokumnetacji fpc zobaczyłem, że w pascalu da się używac bibliotek dll więc w delphi napisałem sobie taką, próbuje odpalic a tu:

uses dynlibs;

type
proc = procedure;
wskproc = ^proc;

var
DLL : TLibHandle;
me : wskproc;

begin
DLL := LoadLibrary('ost.dll');
new(me);
me := GetProcedureAddress(DLL, 'me');
me;
FreeLibrary(Dll);
end.

błąd w linijce

me;

wywala mi illegal expression:( Może ktoś wie jak to zrobic??

0

Spróbuj

type
proc = procedure;

var
DLL : TLibHandle;
me : proc;

begin
  DLL := LoadLibrary('ost.dll');
  if DLL <> INVALID_HANDLE_VALUE then
  begin
    @me := GetProcedureAddress(DLL, 'me');
    if (@me <> nil) then
      me();
    FreeLibrary(Dll);
  end;
end.

Może pomoże :)

// EDITED:
Spróbowałeś zrobić tak, jak napisałem?

0

Zrobiłem tak:

G:\FPC\2.0.0\bin\i386-win32

i skompilowało, ale wywala runtime error 216 w systemie??

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0