1.服务端:Web App 模式
过程:function TTestApp.GetMsg(amsg: string): string; stdcall;
begin
  result := '服务端执行次数:' + aMsg;
end;2.客户端:
调用过程:
function TForm1.getmsg(aMsg: string): string;
var
  TestApp: ITestApp;
begin
  try
    TestApp := HTTPRIO1 as ITestApp;
    result := TestApp.getmsg(aMsg);
  finally
    TestApp := nil;
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to 20 do
  begin
    label1.Caption := getmsg(inttostr(i));
  end;
end;
打开三个客户端,同时执行Button2Click事件,结果会出现以下错误,百思不得其解.
---------------------------
Ptestwebappclient
---------------------------
XML 文档只能有一个顶层元素。Line: 1<TITLE>Internal Server Error</TITLE><BOD.
---------------------------
确定   
---------------------------

解决方案 »

  1.   

    aiirii(ari-淘金坑) 
    不是很明白,能不能说得更详细点。如服务端如何同步;并发太多了是什么意思?我才同时运行了三个客户端而已啊。----------------------------------------
    可能服务端没做同步,或者,同时并发太多了
      

  2.   

    把你的webservice 程序源码帖上来(包括所有文件)后 帮你看看
      

  3.   

    请告知邮箱,我发给你-------------------------
    把你的webservice 程序源码帖上来(包括所有文件)后 帮你看看
      

  4.   

    [email protected] 
    谢谢了...