Главная страница
    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.036 c
3-1105095761
banderas
2005-01-07 14:02
2005.02.06
Создание базы


14-1105682399
Hogo
2005-01-14 08:59
2005.02.06
транслировать из Harbour в Delphi


14-1105696258
Семен Сорокин
2005-01-14 12:50
2005.02.06
Где найти тесты (Delphi, MSSQL) для приема на работу.


9-1099156472
lokid7
2004-10-30 21:14
2005.02.06
Сокобан


4-1103268331
Progh
2004-12-17 10:25
2005.02.06
Копирование папки





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