VB에서 만든 DLL을 델파이(3.0)에서 쓰려고하니

"손실된 엑스포트 TgCdpStdCl.DLL에 연결되었습니다. CdpClose"라고

메세지가 나타납니다.



대소문자도 확인했는데 돼 이런 메세지가 나오는지 모르겠습니다.



VB에서 정의된 함수

:Private Declare Function CdpOpen Lib "TgCdpStdCl" () As Integer

Private Declare Function CdpWrite Lib "TgCdpStdCl" (ByVal Message As String, ByVal Length As Integer) As Integer

Private Declare Function CdpClose Lib "TgCdpStdCl" () As Integer





델파이 소스

: function CdpOpen : integer;stdcall;External 'TgCdpStdCl';

function CdpWrite(str: pchar; Len: integer): integer;stdcall;External 'TgCdpStdCl';

function CdpClose : integer;stdcall;External 'TgCdpStdCl';



implementation



{$R *.DFM}



procedure TFTgtest.Button1Click(Sender: TObject);

var

Vfd_Open : integer;

begin

Vfd_Open := CdpOpen;

showmessage(inttostr(Vfd_Open));

end;



procedure TFTgtest.Button2Click(Sender: TObject);

var

Vfd_Write : integer;

begin

Vfd_Write := CdpWrite(pchar(Edit1.Text),Length(Edit1.Text));

showmessage(inttostr(Vfd_Write));

end;



procedure TFTgtest.Button3Click(Sender: TObject);

var

Vfd_Close : integer;

begin

Vfd_Close := CdpClose;

showmessage(inttostr(Vfd_Close));

end;