100多个idTCPClient写的客户端向IdTCPServer服务端传输数据,
服务端接收到数据后用ADO写到SQL SERVER,如何在OnExecute中连接SQL,每个客户端Thread 构造一个TADOConnection吗?
这样的需求该如何设计?

[code delphi]
procedure TMainForm.IdTCPServer1Execute(AThread: TIdPeerThread);

var

AData: TMemoryStream;

begin

AData:= TMemoryStream.Create;

try

AThread.Connection.ReadStream(AData, -1, False);

if SaveToDB(AData) then //SaveToDB函数该如何写??

AThread.Connection.WriteLn(DATA_SAVE_SUCCESS)

else

AThread.Connection.WriteLn(DATA_SAVE_FAIL);

finally

AData.Free;

AThread.Connection.Disconnect;

end;

end;


[/code]

編輯記錄

方法1:

[code delphi]
function TMainForm.SaveData(AData: TNewData): Boolean;

var

conn: TADOConnection;

begin

conn := TADOConnection.Create(Self);

try

try

conn.Open();

try

//写数据

...

Result := True;

finally

conn.Close;

end;

except

Result := False;

end;

finally

conn.Free;

end;

end;



[/code]

方法2:
在mainform上直接拉一个TADOConnection 命名为conn

[code delphi]
function TMainForm.SaveData(): Boolean;

begin

try

conn.Open();

try

//写数据

...

Result := True;

finally

conn.Close;

end;

except

Result := False;

end;

end;

[/code]

在OnExecute中AThread.Synchronize(SaveData)

这两种方法是否可行,哪种好

HI, 不好意思，剛才才看到您的簡訊，其實有一篇 lu 大的回文，他的內容寫的相當的詳細，您可以參考一下

關于使用IdTCPServer、ADOQUERY對SQL數據庫操作的疑問

===================引 用 sdshw 文 章===================
方法1:

[code delphi]
function TMainForm.SaveData(AData: TNewData): Boolean;

var

conn: TADOConnection;

begin

conn := TADOConnection.Create(Self);

try

try

conn.Open();

try

//写数据

...

Result := True;

finally

conn.Close;

end;

except

Result := False;

end;

finally

conn.Free;

end;

end;



[/code]

方法2:
在mainform上直接拉一个TADOConnection 命名为conn

[code delphi]
function TMainForm.SaveData(): Boolean;

begin

try

conn.Open();

try

//写数据

...

Result := True;

finally

conn.Close;

end;

except

Result := False;

end;

end;

[/code]

在OnExecute中AThread.Synchronize(SaveData)

这两种方法是否可行,哪种好

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

法1,是多线程操作数据库。但要考虑你数据库的承受能力。
法2,是单线程操作数据库，客户请求被排队了。