Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.02.06;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "Основная";
Текущий архив: 2005.02.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.041 c
1-1106341506
mikel
2005-01-22 00:05
2005.02.06
TPanel


14-1105818338
DeadMeat
2005-01-15 22:45
2005.02.06
Неубиваемые процессы


4-1103112663
Delphi5.01
2004-12-15 15:11
2005.02.06
Но не могу поймать момент когда форма уже минимизирована


3-1105203859
opoloXAI
2005-01-08 20:04
2005.02.06
Обновление данных в таблице при подключении через TADOTAble.


4-1103553881
GuAV
2004-12-20 17:44
2005.02.06
GlobalAddAtom - Limitations ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский