我在windows2000下用delphi6.0写了一个调用c#webservice的程序,在2000/xp下运行良好,但在2003下运行时,报Access violation at address 00EAE039. Write of address 00EAE039错误。不知什么原因,请高手指教。
并不是所有的2003下均报此错误,有的2003下也能运行,实在太...
并不是所有的2003下均报此错误,有的2003下也能运行,实在太...
procedure TForm1.BitBtn2Click(Sender: TObject);
var
aa: NetUserWebServiceClienSoap; //这个就是WSDL下的类接口对象
msg: widestring;
bb: double;
s, mm: string;
begin
aa := HTTPRIO4 as NetUserWebServiceClienSoap;
{ rem := SmsSend.Create();
// bak := SmsSendResponse.Create();
rem.CompayNum := widestring('945');
rem.PassWord := widestring('k6Dm6uxsMwM=');
rem.SourNum := widestring('945000');
rem.Number := widestring('13601768359');
rem.OrderTime := widestring('');
rem.Content := widestring('this is a test'); }
//s := '945','k6Dm6uxsMwM=','945000','13601768359','','this is a test';
// mm := uppercase(tmd5.RivestStr('98078'));
showmessage('1');
mm := uppercase(tmd5.RivestStr('12345'));
s := aa.SendSmsEx('745', mm, '745000', '13601768359', 'this is a test11',formatdatetime('yyyy-mm-dd hh:nn:ss',now()),'');
showmessage('3');
// s := aa.SmsSend('521', mm, '5211', '13816415436', '', 'this is a test');
// s := bak.SmsSendResult;
// s := rem.
self.memo1.text := s;
//end;