외부 DLL을 호출하는데 문제가 발생합니다.

해결책좀 갈캐주세요..





var

Form1: TForm1;

file_name:PChar; //<-처음에 String을 사용했는데 않되서 PChar로 바꿨어요.



implementation



{$R *.DFM}



function OpenDoor(file_name:PChar):integer; far; external 'Door.dll';



//------ 버튼이벤트

procedure TForm1.Button1Click(Sender: TObject);



var

ret_val:integer;



begin



file_name:='Open.dat';

ret_val:=OpenDoor(file_name);



end;





실행하면 다음과 같은 메세지가 나옵니다.

//----------------------------------------------------------



Project Project1.exe raised exeception class EAccessViolation with message 'Access

violation at address 00CECDD1. Read of address FFFFFFFF'. Process stopped. Use Step

or Run to continue





해답좀 주세요.. 모두들 건강하길..