Devart Forums

Code: Select all

     constructor TEventSendThread.Create(DBMonitor: TDBMonitor);
     begin
       inherited Create(True);
     
       FConnectEvent := TEvent.Create(nil, True, False, '');
       FEndEvent := TEvent.Create(nil, True, False, '');
     {$IFDEF CLR}
       Handle.IsBackGround := True;
     {$ENDIF}
       FDBMonitor := DBMonitor;
     
       Resume;
       if IsLibrary then
--->     FConnectEvent.WaitFor(INFINITE);
     end;

Code: Select all

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form2       : TForm2;
  DllHandle   : THandle;
implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  try
    DllHandle := LoadLibrary (Pchar(Edit1.Text));
  except
   ShowMessage(SysErrorMessage(GetLastError));
  end;
end;

end.

Code: Select all

library MyDll;
uses
  System.SysUtils,
  System.Classes,
  orasqlmonitor;

{$R *.res}
var  gorasqlmonitor : TOrasqlmonitor;

begin
  //gorasqlmonitor := TOraSqlMonitor.create(nil);
end.

Code: Select all

program MainProject;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;
type
  TCreateOraSQLMonitor = procedure;stdcall;
var
   DllHandle: THandle;
   CreateOraSQLMonitor: TCreateOraSQLMonitor;
begin
  try
    DllHandle := LoadLibrary (Pchar('DllProject.dll'));
    CreateOraSQLMonitor := GetProcAddress(DllHandle, 'CreateOraSQLMonitor');
    CreateOraSQLMonitor;
  except
   Writeln(SysErrorMessage(GetLastError));
  end;
  readln;
end.

Code: Select all

library DllProject;

uses
  SysUtils,
  Classes,
  orasqlmonitor, DBMonitorClient, Ora;

{$R *.res}
var
  gorasqlmonitor : TOrasqlmonitor;

procedure CreateOraSQLMonitor;
begin
  gorasqlmonitor := TOrasqlmonitor.Create(nil);
end;

exports
  CreateOraSQLMonitor;

begin
end.