4

仮想マシンの Windows Vista Ultimate の IIS7 にサンプルの ISAPI モジュール ホストがあります。IIS 7.0 エディションと Windowsによると、Windows Vista Ultimate の同時要求実行制限は 10 です。IIS7 の同時リクエスト実行制限をテストするためのサンプル アプリケーションを作成します。

procedure TForm1.Button1Click(Sender: TObject);
const c_Max = 20;
var P: TProc<string>;
    o: TThread;
    i: integer;
    A: array of TThread;
begin
  P :=
    procedure(aValue: string)
    begin
      Memo1.Lines.Add(aValue);
    end;

  SetLength(A, c_Max);
  for i := Low(A) to High(A) do begin
    o := TMyThread.Create(P, edHostName.Text, Format('test%d', [i + 1]), True);
    o.FreeOnTerminate := True;
    A[i] := o;
  end;

  for o in A do
    o.Start;
end;

constructor TMyThread.Create(const aMethod: TProc<string>; const aHostName,
    aValue: string; const aCreateSuspended: boolean);
begin
  inherited Create(aCreateSuspended);
  FMethod := aMethod;
  FHostName := aHostName;
  FValue := aValue;
end;

procedure TMyThread.Execute;
var C: TSQLConnection;
    o: TServerMethods1Client;
    S: string;
begin
  C := TSQLConnection.Create(nil);
  C.DriverName := 'DataSnap';
  C.LoginPrompt := False;
  with C.Params do begin
    Clear;
    Values[TDBXPropertyNames.DriverUnit] := 'Data.DBXDataSnap';
    Values[TDBXPropertyNames.HostName] := FHostName;
    Values[TDBXPropertyNames.Port] := IntToStr(80);
    Values[TDBXPropertyNames.CommunicationProtocol] := 'http';
    Values[TDBXPropertyNames.URLPath] := 'MyISAPI/MyISAPI.dll';
  end;

  S := Format('%d=', [ThreadID]);
  try
    try
      C.Open;
      o := TServerMethods1Client.Create(C.DBXConnection);
      try
        S := S.Format('%s%s', [S, o.EchoString(FValue)]);
      finally
        o.Free;
      end;
    except
      on E: Exception do
        S := S.Format('%s%s', [S, E.Message]);
    end;
  finally
    Synchronize(
      procedure
      begin
        FMethod(S);
      end
    );
    C.Free;
  end;
end;

Button1 をクリックすると、Memo1 に 20 行の文字列 (ThreadID=EchoString の結果) が表示されます。定数変数 c_Max を 500 に変更しても、文字列の行を取得できません (ThreadID=Exception メッセージ) が表示されます。メモ1. 私の質問は、IIS7 の同時要求実行制限をテストする方法です。

4

0 に答える 0