Delphi 压力测试问题 |
尚未結案
|
whxiaocheng
一般會員 發表:1 回覆:0 積分:0 註冊:2008-06-18 發送簡訊給我 |
今天用Delphi开发了一个小程序,在俩台装了windows 2003 标准版而且没有进行配置的 IMB3650 上互联进行压力测试,其中线程数目为:600,间隔时间为100MS(毫秒),老是出现下面的错误:
568线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 562线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 564线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 566线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 578线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 572线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 576线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 587线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 574线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 580线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 582线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 585线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 584线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 586线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 588线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 591线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 592线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 590线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 589线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 593线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 597线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 595线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 599线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 594线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 598线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 596线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 600线程获取服务错误,发生错误在第1次:Socket Error # 10054 Connection reset by peer. 有人说是因为windows 2003 连接数未设置造成的,还请高手指出,谢谢! PS:代码如下 [ code xxxx ] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls, Unit2; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; Label3: TLabel; Edit3: TEdit; Label4: TLabel; Edit4: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1 : TForm1; http : array[1..600] of THttpThread; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin for i:=1 to strtoint(edit2.Text) do //http[i] := THttpThread.Create('http://172.17.27.3/webfidsEngine/Display?ip=172.17.27.' inttostr(i mod 255) '&&mustneeds=0',Memo1,i,strtoint(edit3.Text),strtoint(edit4.Text)); //http[i] := THttpThread.Create('http://172.17.27.3/WebFidsEngine/Display?ip=172.17.27.8&&mustneeds=0',Memo1,i,strtoint(edit3.Text),strtoint(edit4.Text)); http[i] := THttpThread.Create(edit1.Text,Memo1,i,strtoint(edit3.Text),strtoint(edit4.Text)); end; end. [/code ]: |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |