Вниз
Скачать: CL | DM;

считывание файлов в несколько потоков   Найти похожие ветки 

 
s_ilnar ©   (2005-01-26 11:32) [0]

обьясните пжлста как можно считывать сразу 3-5 файлов
и загонять чать содержимыш скажем с StringGrid

В потоках я не разбираюсь если можно то с кодом

Заранее блогадарен


 
ShimON ©   (2005-01-26 11:41) [1]

Простейший пример потока.


type
   TConnectThread = class(TThread)
   private
     BProverka: boolean;

   protected
     procedure Execute; override;
     procedure RefreshIcon;

   public
     property Proverka: boolean read BProverka write BProverka;
   end;

procedure TConnectThread.Execute;
begin
 If BProverka then
   Form1.Edit1.Text:= "Yes!!!";
 Synchronize(RefreshIcon);
end;


Прости, что не про файлы, но если умеешь работать с файлами то поймешь как применить


 
begin...end ©   (2005-01-26 11:47) [2]

> [1] ShimON ©   (26.01.05 11:41)

Неправильный пример потока. Небезопасный.


 
ShimON ©   (2005-01-26 11:49) [3]

Объясни пожалуйста...


 
Miralex ©   (2005-01-26 11:52) [4]

while not Terminated do
begin
{ Place thread code here }
end;


 
begin...end ©   (2005-01-26 11:55) [5]

> [3] ShimON ©   (26.01.05 11:49)

Нельзя обращаться к VCL-компонентам (Form1.Edit1.Text:= "Yes!!!") в методе Execute. Можно обращаться только в процедуре, используемой для синхронизации. В данном случае такой процедурой является RefreshIcon.


 
ShimON ©   (2005-01-26 11:57) [6]

Но если у меня есть собственный невизуальный компанент, то можно????


 
begin...end ©   (2005-01-26 12:03) [7]

> [6] ShimON ©   (26.01.05 11:57)

A Form1 - это Ваш собственный невизуальный компонент?

См. в справке: threads -> VCL/CLX objects.


 
ShimON ©   (2005-01-26 12:07) [8]

Нет, конечно, это я для примера написал, у меня в экзекуте используется так: ConnEct.OpenUrl(...). Так можно??



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c
14-1105878178
Kerk
2005-01-16 15:22
2005.02.06
Подскажите приличное место, ...


1-1106202265
En0.t
2005-01-20 09:24
2005.02.06
Глюки или ошибки Delphi


9-1099470111
.dn
2004-11-03 11:21
2005.02.06
"ЧЕЛ"&ДОРОГА


3-1104832769
Roter
2005-01-04 12:59
2005.02.06
Проблема вычитки identity полей из БД


4-1103034907
qwerty2
2004-12-14 17:35
2005.02.06
Инсталляция сервиса




   Наверх