delphi 里正常
procedure TForm1.Button4Click(Sender: TObject);
var
rtnVal:integer;
begin
if not DCOMConnection1.Connected then
DCOMConnection1.Connected:=true;
DCOMConnection1.ServerName:='VCertificate.VehCert';
DCOMConnection1.AppServer.PrtParaTbl(1, 'FDLS-325D-SKDI-E8EK');
showmessage(DCOMConnection1.AppServer.Veh_ErrorInfo);
end;