у меня тупой нубский вопрос про потоки в Indy плз не бейте больно.
вот решил проверить, что делает инеец, если к нему приходит второй запрос, пока не выполнился первый... и наблюдал не совсем понятную картину:
| Код |
type
TSimpleClient = class(TObject)
IP,
Name : String;
Thread : Pointer; //тут храним указатель на поток клиента
end;
var Clients : TList; //сюда записываем подсоединившихся клиентов
бла бла бла...
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
Msg : String; //сообщение
i, z, z1: integer;
F_main: TextFile;
begin
{ КЛИЕНТ ПРИСЛАЛ СООБЩЕНИЕ
ну, первым делом, надо понять, кто это сообщение прислал...
пробегаем по списку клиентов,
в поисках указателя на поток, в котором пришло сообщение.
}
for i := 0 to Clients.Count - 1 do
begin
if Pointer(AContext)=TSimpleClient(Clients.Items[i]).Thread then
begin
{ читаем, что прислал клиент }
Msg:= AContext.Connection.IOHandler.ReadLn;
if Msg='run' then begin
randomize;
z:=random(1000000);
AssignFile(F_main, 'c:\'+inttostr(z)+'.txt');
try
ReWrite(F_main);
for z1:=0 to 100000000 do Write (F_main, 'Hello');
CloseFile(F_main);
except
on EInOutError do ShowMessage ('Can''t Save your fucking file!');
end;
end;
break; // впустую цикл не гоняем
end;
end;
end;
|
вот 
так вот от сюда видно, что есть нечто под названием AContext, которое содержет нечто вроде потока, созданного самим INDY еще при подключении...
в результате этого у нас достаточно времени чтобы спокойно запустить 2 и более клиентов и послать серверу что-нибудь для активации записи данных в файл.
файлы пишутся одновременно, что говорит о том, что многопотоковость работает, но так же наблюдаются некоторые странности, к примеру, не отслеживается отключение клиентов, нет реакции при повторном присылании от того же клиента очередного сообщения итп, что говорит о том, что либо я не совсем понимаю многопоточность, либо индейцы кривовато многопоточат...
кто-нибудь может внести ясность в отношении 10 индейцев  |
)))
