Article View: pl.comp.lang.pascal
Article #92280Re: 2 procedury na raz
From: Łukasz 'Maly' Ostrowski
Date: Tue, 13 Nov 2007 22:30
Date: Tue, 13 Nov 2007 22:30
24 lines
1745 bytes
1745 bytes
marjan wrote: > Czy jest możliwe aby program wykonywał 2 procedury na raz? > > Zależy mi na tym aby pomimo działania programu, w tym wykonywania > różnych poleceń, funkcji i procedur, cały czas "w tle" był wydobywany > dźwięk (poleceniem sound), ktorego melodia byłaby zapisana właśnie w > procedurze. Da się tak zrobić? Wątki/Procesy, ogólnie współbieżność. Platforma? Kompilator? - TP? DOS? - to co napisał Solaris, wpiąć się w przerwanie zegarowe (przerwanie o indeksie $1C) - Win32 - utworzyć wątek za pomocą CreateThread() z unitu Windows. - Linux - skorzystać z biblioteki pthreads - ogólnie - w FPC w unit Classes jest klasa TThread, wystarczy przykryć wirtualną metode Execute i będziesz miał "przenośny" wątek. -- Pozdrawiam, Łukasz 'Maly' Ostrowski. http://maly.nemo.pl/
Technical Details
Message-ID:
<fhd8jt$nnc$1@news.dialog.net.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.dialog.net.pl!not-for-mailReferences:
<fhd53l$ofr$1@inews.gazeta.pl>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.dialog.net.pl!not-for-mail From: Łukasz 'Maly' Ostrowski <maly@USUNnemo.pl> Newsgroups: pl.comp.lang.pascal Subject: Re: 2 procedury na raz Date: Tue, 13 Nov 2007 23:30:13 +0100 Organization: Dialog Net Lines: 25 Message-ID: <fhd8jt$nnc$1@news.dialog.net.pl> References: <fhd53l$ofr$1@inews.gazeta.pl> NNTP-Posting-Host: xdsl-2911.zgora.dialog.net.pl Mime-Version: 1.0 X-Trace: news.dialog.net.pl 1194993085 24300 81.168.239.95 (13 Nov 2007 22:31:25 GMT) X-Complaints-To: abuse@dialog.net.pl NNTP-Posting-Date: Tue, 13 Nov 2007 22:31:25 +0000 (UTC) X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2900.3138 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.3198 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit