我寫了一段程式碼, 有幾個INDY10 的問題想問問各位前輩: (程式碼如下)

1. 以下的程式是否為"多線程"呢? 能否同時有多個client 訪問一個server呢?

2. Client 執行了動作,在server那邊接收到client的動作,之後server有沒有需要做 "AContext.Free" 的動作. (*** 之後server 仍需處理其他client)

3. 我只在IdTCPServer1Execute做動作,也能運行. 但沒有設定IdTCPServer1Connect 有沒有問題?

謝謝各位!


Client
[code delphi]
unit AttFileForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, Sockets, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient;
type
TForm5 = class(TForm)
IdTCPClient1: TIdTCPClient;
procedure SendMessageClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses DataModuleA;
{$R *.dfm}
procedure TForm5.SendMessageClick(Sender: TObject);
var
begin
try
IdTCPClient1.Connect;
IdTCPClient1.IOHandler.WriteLn('upload');
finally
IdTCPClient1.Disconnect;
end;
end;
end.
[/code]

server
[code delphi]
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdCustomTCPServer, IdTCPServer, IdContext,
math, ComCtrls,ExtCtrls, Gauges, StdCtrls;
type
TformMain = class(TForm)
IdTCPServer1: TIdTCPServer;
Label1: TLabel;
procedure IdTCPServer1Execute(AContext: TIdContext);
private
protected
public
end;
var
formMain: TformMain;
implementation
{$R *.dfm}
//uses IdGlobal;
procedure TformMain.IdTCPServer1Execute(AContext: TIdContext);
begin
Label1.Caption:=AContext.Connection.IOHandler.ReadLn;
// AContext.Free;
end;
end.
[/code]

編輯記錄

1. 以下的程式是否為"多線程"呢? 能否同時有多個client 訪問一個server呢?
a-1: Server 是多線程的， Indy Server 會把每一個連線弄成一條 Thread
a-2: 可以多 Client

2. Client 執行了動作,在server那邊接收到client的動作,之後server有沒有需要做 "AContext.Free" 的動作. (*** 之後server 仍需處理其他client)
不需要

3. 我只在IdTCPServer1Execute做動作,也能運行. 但沒有設定IdTCPServer1Connect 有沒有問題?
沒有問題

------
價值的展現，來自於你用哪一個角度來看待它!!

謝謝你啊! ^_^