TTCPClient замечательно работает при загрузке файла по HTTP, но при попытке заставить два TTCPClient'a работать в отдельных потоках грузит только один поток, второй останавливается.

Режим - nonBlocking.
Метод - SendStream.

procedure THTTP_Thread.LoadFromRemoteServer(MS: TMemoryStream; Host, Port: String);
var
 C: TTcpClient;
 P: PChar;
 RecLen: Integer;
begin
  C:=TTcpClient.Create(nil);
  C.RemoteHost:=Host;
  C.RemotePort:=Port;
  try
     if C.Connect
     then
      begin
       MS.Position := 0;
       C.SendStream(MS);
       MS.Clear;
       P := GetMemory(256);
       RecLen := C.ReceiveBuf(P^, 256);
       while RecLen > 0 do
        begin
         MS.Write(P^, RecLen);
         RecLen := C.ReceiveBuf(P^, 256);
        end;
      FreeMemory(P);
     end;
  finally
    C.Free;
  end;
end;

LoadFromRemoteServer вызывается из процедуры Execute потока THTTP_Thread.

Два дня кряхтел и Google не помог,  может кто поможет ламеру?

а подождите... зачем в неблокирующем режиме выполнение в отдельных потоках?!

Приложение многопоточное, любой из потоков может загрузить данные.
С режимом описался, режим - bmBlocking;

странно... давай пример приложения для проверки этого косяка...

Вот примерчик, отражающий суть дела (на форме одна TButton и две TLabel, последние показывают сколько байт загружено каждым из тредов). Как я ни пыхтел, а пока один тред своё не догрузит (причём 10 страниц подряд) - другой либо вообще не загружает либо, если повезёт, очень медленно работает.

============================================================================

Убрал длинный листинг, дабы не засорять сервер, ниже ссылка на файл с исходниками.

==========================================================================

Система - Windows XP, компилятор - Delphi 7, процессор - 900 МГц
P.S. Думал, что я - ламер, оказывается до ламера ещё дорасти придётся.

Это сообщение отредактировал(а) lamper - 20.3.2007, 18:46

ай, мой мозг...
дай плз пример приложения запакованный в аттаче. чтоб можно было распаковать и скомпилить...


стоп. подождите ка. а ты как думал это работать будет?!
на однопроцессорной системе так и должно происходить... в один момент выполняется только один поток.

тем более по приведенному коду нельзя сделать выводы о том, что система не переключает потоки в процессе их выполнения...

Это сообщение отредактировал(а) MetalFan - 20.3.2007, 09:28

Я думал, что тред - по определению нужен для того, чтобы система сама распределяла процессорное время между тредами, давая им работать параллельно (образно говоря, конечно, на самом деле передавая управление то одному то другому треду на короткие промежутки времени).

Как накодить, чтоб "система переключала потоки в процессе их выполнения" ???! (или где почитать поподробнее).

Здесь файлик с компилируемым прожектом : http://www.electrostat.narod.ru/images/1.rar

Это сообщение отредактировал(а) lamper - 20.3.2007, 18:41

Многопоточность - как это делается в Дельфи
чуть позже гляну, что там за "прожект") делфи доустановлю