Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Интерфейс без тормозов [D7, WinXP]


Ученик ©   (2004-12-23 09:35:00) 

Всем доброе время суток! Перейду к делу: можно ли сделать интерфейс, который не будет тормозить при выполнении ресурсоемких операций. Например, при отображении (точнее, поиске) огромного количества файлов в папке большинство браузеров "встают" (кнопки не реагируют на нажатие, меню не выпадает, ...) и приходится ждать завершения операции. В общем примеров такого поведения достаточно много... Хотелось бы знать можно ли в принципе (и если можно, то КАК) сделать интерфейс, который будет работать при любой задаче. Может как-то выделить отдельные процедуры в независимые потоки?
В общем, надеюсь на ответ... хотя реализация многих известных программ заставляет подозревать, что решения нет :(


Александр Иванов   (2004-12-23 09:58:00) [1]

В хелпе еще много интересного есть :).

This example shows the execute method of a thread used to send requests to a server over a socket connection:

procedure TMyClientThread.Execute;

var
 TheStream: TWinSocketStream;
 buffer: string;
begin
 { create a TWinSocketStream for reading and writing }
 TheStream := TWinSocketStream.Create(ClientSocket1.Socket, 60000);
 try
   { fetch and process commands until the connection or thread is terminated }
   while (not Terminated) and (ClientSocket1.Active) do
   begin
     try
       GetNextRequest(buffer); { GetNextRequest must be a thread-safe method }

       { write the request to the server }
       TheStream.Write(buffer, Length(buffer) + 1);
       { continue the communication (eg read a response from the server) }
       ...
     except
       ifnot(ExceptObject is EAbort) then
         Synchronize(HandleThreadException); { you must write HandleThreadException }
     end;
   end;
 finally
  TheStream.Free;
 end;
end;


Ученик   (2004-12-23 09:48:00) [2]

А каким образом выделить процедуру в поток? ЕСли можно, какой-нибудь примерчик... (мечтательно)


Александр Иванов   (2004-12-23 09:43:00) [3]

Ресурсоемкие процедуры - в отдельные потоки.


Наверх

Титульная страница Поиск, карта сайта Написать письмо