Многопоточность Indy

[Viteef]

    
try
    s.Text:=id2.Get('http://'+str);
    id2.Disconnect;
    except
    on E: Exception do
        begin
        if pos('Connection reset by peer',E.Message)>0 then
          begin
          form1.MemoDebug.Lines.Add('reset by peer '+str);
          end;
        end;
    end;

все равно..

[Квэнди]

А если так?
http://programmersforum.ru/showthread.php?t=7572
Есть кстати вот что еще кпримеру
procedure TPhase3Thread.Execute;

    .....

    vException := False;

    vTempFileName := GetTemporaryFileName('.html');

    if Pos('https://', vLink) = 0 then
      try
        FHTTP.DisconnectSocket;
        FResult.Text := FHTTP.Get(vLink);
      except
        on E: Exception do
        begin
          vException := True;
          vExceptionMessage := E.Message
        end
      end
    else
    begin
      DownloadFile(vLink, vTempFileName);
      FResult.LoadFromFile(vTempFileName);
    end;

    if vException then
    begin
      if Assigned(FOnLog) then
        FOnLog(Self, 'HTTP Transaction failed: ' + vLink + ' :: ' +
vExceptionMessage)

отрыл у себя в каких- то подписках, но это код для D7
Мысль общая такова ? а если пробовать сначала отключаться, а потом уже GET-ить ?

[Viteef]

а если пробовать сначала отключаться, а потом уже GET-ить ?

теперь работает, спасибо большое

[Квэнди]

в общем-то логика в этом присутствует ) ибо перед Get-м наверно все- таки надо сбрасывать предыдущую сессию, хотя именно к Http это никакого отношения не имеет, все вопросы к "индейцам" =)

[Квэнди]

Недавно все- таки посомтрел повнимательней Idhttp вобщем закачка в несколько нитей там уже практически присутствует.
Организуется следующим образом:
сначала делаем head удаленному файлу, смотрим contextlength
выясняем своими какими-то методами сколько будем делать нитей и сколько байт должна загрузить каждая.
Далее создаем файл на жестком диске.
Далее создаем потоки, кол-во которых равно кол-ву нитей для закачки.
В каждом потоке создаем IdHttp
и заполняем его свойства

    Request.ContentRangeEnd = XXX  //Окочание блока (в байтах)
    Request.ContentRangeStart = XXX  //Начало блока (в байтах)
    Request.ContentRangeInstanceLength = XXX //Длинна блока

Ну и для полного понимания:

Declaration
property ContentRangeStart: Int64;
Summary
Identifies the beginning byte range in a partial request.
Description
ContentRangeStart is an Int64 property that identifies the beginning byte range requested for a partial entity resource. ContentRangeStart is used with ContentRangeEnd to form the "Content-Range" message header value.
All ContentRangeStart values are expressed in bytes.

Clients cannot depend on servers to send a "416 Requested range not satisfiable" response instead of a "200 (OK)" response for an unsatisfiable request with ContentRangeStart and ContentRangeEnd values, since not all servers implement this request-header.

Declaration
property ContentRangeEnd: Int64;
Summary
Identifies the upper byte range in a partial request.
Description
ContentRangeEnd is an Int64 property that identifies the upper byte range requested for a partial entity resource. ContentRangeEnd is used with ContentRangeStart and ContentRangeInstanceLength to form the "Content-Range" message header value.
All ContentRangeEnd values are expressed in bytes.

Clients cannot depend on servers to send a "416 Requested range not satisfiable" response instead of a "200 (OK)" response for an unsatisfiable request with ContentRangeStart and ContentRangeEnd values, since not all servers implement this request-header.

Declaration
property ContentRangeInstanceLength: Int64;
Summary
Represents the entity size for a content range request.
Description
ContentRangeInstanceLength is an Int64 property that represents the size of an entity or the maximum number of bytes available in a "Content-Range" message header for a requested entity.
ContentRangeInstanceLength is used with values in the ContentRangeStart and ContentRangeEnd properties to identify the requested byte ranges and upper limit.

In the following example, ContentRangeInstanceLength is represented by the value 102400.


content-range: bytes 1-65536/102400
content-range: bytes 1-65536/*
When the entity size is not know, is or insignificant, the value zero is used to represent the '*' in the following example:


content-range: bytes 1-65536/*