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.
---------------------------
确定
---------------------------
过程: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.
---------------------------
确定
---------------------------
不是很明白,能不能说得更详细点。如服务端如何同步;并发太多了是什么意思?我才同时运行了三个客户端而已啊。----------------------------------------
可能服务端没做同步,或者,同时并发太多了
把你的webservice 程序源码帖上来(包括所有文件)后 帮你看看
谢谢了...