'잘못된 클래스 문자열입니다.'라는 메시지가 떳습니다.

컴파일도 다 되었고 레지스트리에도 다 잘떴는데 전혀 문제가 없어 보였는데 제가 뭐 빠뜨린거 있나요?





type

TInsurance = class(TAutoObject, IInsurance)

protected

function Get_GetFile(Jumin_No, Name: OleVariant): WordBool; safecall;



{ Protected declarations }

end;



implementation



uses ComServ;







function TInsurance.Get_GetFile(Jumin_No, Name: OleVariant): WordBool;

var



FileName : string;

FPersonID : TextFile;



DName : string;



begin

DName := 'd:dababase';

FileName := formatDateTime('yyyymmdd',now)+'.txt';

AssignFile(FPersonID,FileName);

Rewrite(FPersonID);

writeln(FPersonID,Jumin_No);

writeLn(FPersonID,Name);

closeFile(FPersonID);

result := true;

end;