안녕하세요. 주삼식입니다.

꼭 그 프로시져를 넘길려고 하지마시구요. 특정 사용자 함수를 만듭니다. 이렇게 하는것이 마음대로 콘트롤할 수 있어서 더 좋습니다.

DLL에 포함되는 선언부 유닛에 아래와 같이 선언하구요.
unit XXXX;

type
  TCTIDetectEvent = procedure(RingCount: Integer; DTMFNumber, CallerID: PChar; AStopPlay: Boolean); stdcall;

function SetCTIDetect(ACTIDetect: TCTIDetectEvent): Integer; stdcall;
begin
  Result := 1;
  try
    with FrmDVRServer do
    begin
      FOnCTIDetectEvent := ACTIDetect;
      Result := 0;
    end;
  except
  end;
end;

DLL에 포함되는 메인유닛에 아래와 같이 코딩하구요.
  public
    { Public declarations }
    FOnCTIDetectEvent: TCTIDetectEvent;

procedure TfrmDVRServer.CTIEventHandlerRingDetect(Sender: TObject;
  RingCount: Integer);
begin
  try
    if Assigned(FOnCTIDetectEvent) then
       FOnCTIDetectEvent(RingCount, '', '', False);
  except
  end;
end;


실행프로그램(exe)에 포함되는 Unit에는 아래와 같이 가져가면 됩니다.

unit EEEE;
type
  TCTIDetectEvent = procedure(RingCount: Integer; DTMFNumber, CallerID: PChar; AStopPlay: Boolean); stdcall;

function SetCTIDetect(ACTIDetect: TCTIDetectEvent): Integer; stdcall; external DLLNAME;

그리고, 메인에서는 이렇게 이벤트를 받아올 함수를 선언해두고 아래와 같이 부르면 되죠.
implementation

{$R *.DFM}

procedure CTIDetect(RingCount: Integer; DTMFNumber, CallerID: PChar; AStopPlay: Boolean); stdcall;
begin
end;

if SetCTIDetect(@CTIDetect) <> 0 then
  ...;

소스를 다 올릴수는 없고 추린다고 추렸는데 복잡하다면 죄송합니다.
참고적으로 DLL를 만들때는 String을 사용하지 마시구요. API의 표준인 PChar를 사용하세요. 그래야만 다른 언어(VB, C++, PB 등등)에서 무리없이 사용할 수 있습니다.

감사합니다.

최용일씨가 심플한 소스를 가지고 있는데 자료실에 올리라니까 아직 안 올렸네여. ㅎㅎㅎㅎ

방금 어떤 분이 답변을 해주셨다가 지우셨네여...
비슷한 야그인데...
Incompatible Type 에러가 나는 이유는
메소드 포인터와 프로시저 포인터는 타입이 다르기 때문입니다.
아래에서
Comport.OnRxChar := ComportRxChar;
Comport.OnRxChar는 메소드 포인터 타입이고
ComportRxChar는 프로시저 포인터 타입입니다.
오브젝트 파스칼에서 프로시저 포인터 타입은 항상 메소드 포인터 타입과
호환되지 않습니다. 이유는 프로시저 포인터 타입은 4바이트이고
메소드 포인터 타입은 8바이트(메소드의 주소 4바이트 + 메소드가 속한 객체에 대한 참조 4바이트) 입니다.
해결방법은 임의의 클래스를 만들어 사용할 수 있습니다.
임의의 클래스 보다 더 좋은건 컴포넌트 클래스를 상속 받아 사용하는게
더욱 좋겠구요...

안녕하세요. 타락임다..

에러로 봐서.. 두 프로시저의 타입이 안맞는 것 같습니다.

즉, Comport.OnRxChar 가 procedure (Sender: TObject; Count: Integer);
타입이 아닌것 같습니다.

문제는 파라미터 중 Sender: TObject 에 적절한 값이 와야 겠죠. TObject 타입은 델파이와 씨빌더에만 있다고 보시면 됩니다.
제 생각에는 어떤 타입도 안맞을 테니, 걍 NIL 을 넘기면 해결될것으로 보입니다.

어렵지 않아여. Sender 대신 NIL만 넘겨주면 되여.

즐푸하세여..

타락천사..

Comport.OnRxChar:=ComportRxChar(nil,count)
같이 nil을 넘겼는데도 컴파일 에러가 나네요...
다시 한번 부탁드려요...