Главная страница
    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.059 c
14-1105964746
kai
2005-01-17 15:25
2005.02.06
печать в postscript


4-1103030917
Phantomouse
2004-12-14 16:28
2005.02.06
COM+HEX


1-1106563149
Ega23
2005-01-24 13:39
2005.02.06
VarArrayCreate


8-1098630702
Charly22
2004-10-24 19:11
2005.02.06
Связать TImage с GDI+


14-1105697193
Shaman_Naydak
2005-01-14 13:06
2005.02.06
Kylix oидам! Помогите плиз





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский