Solved

Function in DLL got Access Violation

Posted on 2008-10-08
4
1,154 Views
Last Modified: 2012-08-13
Hello,

Whats wrong in my code?

I got access violation after Close the form, a empty form...

What is wrong here?

Best Regards,
Carlos


[EXE]
 
function CallMyDLLFunc: Boolean;
type
  TMyDLLFunc = record
    Func: function: BOOL; StdCall;
    hLib: THandle;
  end;
var
  MyDLLFunc: TMyDLLFunc;
begin
  Result := False;
  with MyDLLFunc do
  begin
    hLib := LoadLibrary(PChar('dll.dll'));
    if hLib <> 0 then
    begin
      @Func := GetProcAddress(hLib, 'MyDLLFunc');
      if Assigned(Func) then
      Result := Func;
      FreeLibrary(hLib);
    end;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if CallMyDLLFunc then
  ShowMessage('OK');
end;
 
----------------------------------------------------------------------
[DLL]
 
function MyDLLFunc: BOOL; StdCall;
begin
  Result := False;
  Form1 := TForm1.Create(nil);
  try
    Form1.ShowModal;
    Result := Form1.bResult; //bResult is Boolean in Public
  finally
    Form1.Release;
    Form1 := nil;
  end;
end;
 
exports
  EULA name 'EULA';

Open in new window

0
Comment
Question by:cebasso
  • 2
4 Comments
 
LVL 6

Accepted Solution

by:
ChristianWimmer earned 500 total points
ID: 22671734
0
 
LVL 4

Author Closing Comment

by:cebasso
ID: 31504365
Thanks :DD
Regards,
Carlos
0
 
LVL 6

Expert Comment

by:JosephGlosz
ID: 22671877
this line
     @Func := GetProcAddress(hLib, 'MyDLLFunc');

should be
     @Func := GetProcAddress(hLib, 'Eula);

then, inside your DLL, the function name should be Eula as well, so change
  function MyDLLFunc: BOOL; StdCall;
to
  function Eula: BOOL; StdCall;

Or, if you want to call the function MyDLLFunc, then you should "export" it as such.

0
 
LVL 4

Author Comment

by:cebasso
ID: 22671945
JosephGlosz thanks for reply, but i just got the code and changed the original name of the Function, its really EULA but i changed here to MyDLLFunc just as example.
Anyway my problem was solved changing .Release to .Free
Thanks anyway!
Regards!
Carlos
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Delphi 2 77
Delphi Seattle StructureView color 1 22
Delphi Firemonkey send email on Android 1 46
Add New Database Table in database file using delphi 3 32
A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
How to Install VMware Tools in Red Hat Enterprise Linux 6.4 (RHEL 6.4) Step-by-Step Tutorial

730 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question