Thread : Не получается многопоточность .

[Sm1Le]

и так суть задачи не обязательна. Но она раскидка с ФТП сервера на локальные машины файлов.

Я создал свой шаблон потока. Название fromFTp.
и перегрузил функцию Create.

constructor FromFTP.Create(lbName:Tlabel;idFTP1:TIDFTP;catalog1:string;pb1:TProgressBar;S_L:TSTringList;catalog2:string);
begin
  create(true);
  IdFTP:=idftp1;
  loc_catalog:=catalog1;
  ftp_catalog:=catalog2;
  pb:=pb1;
  sl:=s_l;
  lbname_:=lbname;
  execute;
end;

После этого я в главном потоке, программе, в цикле вызываю создание потоков :

procedure TForm1.Button2Click(Sender: TObject);
var SL:TStringList;i:integer;
begin
sl:=TSTringList.Create;
for i:=1 to count_mv do
  begin
    mas_mv[i].List(sl,form1.vl_FROMFTP.Cells[2,I],false);
    ThreadFTp[i]:=FromFTp.Create(Form1.lbMv1,mas_mv[i],form1.vl_TOMV.Cells[2,i],mas_pb[i],sl,form1.VL_FROMFTP.cells[2,i]);
  end;
end;

Поскольку у меня весь процесс перенос файла отображается в прогресс баре, то именно по ним я и вижу что только после переноса файла на 1 сервер происходит начало переноса файла на 2 сервер и тд. . А надо что б оно не зависимо друг от друга и запускалось почти одновременно(поправка на цикл).

из видимых проблем :
1)я когда создаю поток, создаю его с параметром True тоесть в состояние Suspend(приостановленым), далее руками вызываю Execute. По логике мне надо вместо execute написать resume. Но тогда у меня в тело Execute даже не заходит. Хотя должно было ... Execute у меня описан в теле потока как :

  protected
    procedure Execute; override;

2) это не шаблон потока. а сам поток, и я просто записую дескриптор одного и того же потока в разные переменные ... Как тогда создать шаблон потока ??

[Stilet]

execute;

может быть Resume ?
И

create(true);

Меня смущает. Я бы не переопределял Create...

[evg_m]

Execute у меня описан в теле потока как :

  protected
    procedure Execute; override;

а что внутри? исходя из

Поскольку у меня весь процесс перенос файла отображается в прогресс баре

подозреваю там Synchronize.

[Sm1Le]

Сообщение от Stilet

может быть Resume ?
И Меня смущает. Я бы не переопределял Create...

ну собственно, я ничего такого там не сделал ... я перегрузил Сreate, для передачи информации в поток. А далее в вызвал стандартный метод Сreate с параметром тру.

По повду Resume. Не понимаю почему у меня программа не хочет после команды Resume продолжать работу, функцией Execute.



К примеру взял создал еще поток, Файл-Новый-Поток.
Перегрузил Create
Написал в Execute ShowMessage('1');
запустил с параметром false; - Все ок ... пошел запускаться процесс Execute. Не понимаю ... если я ничег не менял ... то почему у меня после resume ничего не происходит.

Там надо Resume. Написал. Зашел в процедуру, нажал f4, и о чудо программа заходит в процедуру. но на выполнение Get, компонента IdFTP, поток обрывается без всяких ероров. лана ща еще поищем что у меня не так...
SYnchronize - Знаю, надо, но пока не буду утруждать и без того не работающий код.

procedure FromFTP.Execute;
var i:integer;str:string;Spisok:tstringlist;
begin
try
Spisok:=sl;
If Spisok.Count>0 Then // Åñëè ñïèñîê ÍÅ ïóñòîé òî ...
Begin
For i:=0 To Spisok.Count-1 Do   // Öèêë íà ïåðåáîð ôàéëîâ èç ñïèñêà
Begin
        PB.Position:=0;
        PB.Min:=0;
        PB.Max:=IdFTP.Size(ftp_catalog+Spisok.Strings[i]);
        lbname_.Caption:=sl.Strings[i];
        IdFTP.Get(ftp_catalog+Spisok.Strings[i],loc_catalog+Spisok.Strings[i],True);

{        idFTP.delete(ftp_catalog+spisok.Strings[i]);
        Form2.ADOQuery1.close;
        sql_str:='insert into '+Form2.leNameTable.Text+'(NameOfFile,SizeOfOutFile,SizeOfInFile,DataTime,status) VALUES ("'+Spisok.strings[i]+'","'+IntTostr(IdFTP.Size(Form2.LabeledEdit2.Text+
Spisok.Strings[i]))+'","'+inttostr(getFileSize(str))+'","'+DateTimeToStr(Now)+'",'+'"in"'+')';
        Synchronize(InsertIntoDB);
        Form2.ADOQuery1.ExecSQL;}
END;
end;

[Пепел Феникса]

constructor FromFTP.Create(lbName:Tlabel;idFTP1:TIDFTP;catalog1:string;pb1:TProgressBar;S_L:TSTringList;catalog2:string);
begin
  inherited create(true);
  IdFTP:=idftp1;
  loc_catalog:=catalog1;
  ftp_catalog:=catalog2;
  pb:=pb1;
  sl:=s_l;
  lbname_:=lbname;
  resume;
end;

а не происходило потому что вы конструктор изменили.

[Stilet]

inherited create(true);

Вот и меня такое смутило...
Не стоит так делать ИМХО...

[Пепел Феникса]

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

такое очень полезно когда делаешь специфические потоки и хочешь чтоб они спокойно вписывались в массив TThread(или же не умеем самостоятельно делать потоки)

[Sm1Le]

можно ли создать 2 потока типа FromFTP(в моем случае) одновременно ?

Ошибки исправил. Спасибо.

[Пепел Феникса]

да можно, ваш цикл это и делал.

правда изза кривого конструктора он делал не правильно это.

[Sm1Le]

и так ....

Получается когда я цикл отменяю, выполняю только к примеру i=1, то все ок, как только делаю цикл хотя бы из двух элементов ошибка, ошибка доступа к файлу.

Другими словами по моей логике, у меня когда запускается "2 поток" он накрывает 1, и они оба обращаются по одним и тем же путям. Проверено при помощи ShowMessage. =))))))

скажем так эти потоки вообще не должны встречаться, в параметрах у них указаны разные директории, как те что на фтп, так и те куда копировать.
Если выполнить любой из потоков отдельно, то все работает.

Кто че скажет ? ... не понимаю ...