function Tmy.getbase(id:string):widestring;stdcall;
const
  xmlpath='d:\yygl\case.xml';
var
  xmlstring:string;
  casexml:TXMLDocument;
begin
       xmlstring:=readtable(id);
       try
        casexml:=TXMLDocument.Create(nil);
        casexml.loadfromfile(xmlpath);   //---引起异常!!!!
       except
       xmlstring:=xmlstring+'<diagnose>读病历错误!</diagnose>';
       end;
       result:=xmlstring ;
end;