HELP ME
3 отговора
157 прегледа
HELP ME
Здравейте всички,
поради недостатъчния ми умствен багаж, моля за съдействие.
Задачата е следната:
В приложението трябва да имам компонента (може би TImage), в която за зареждам картинки. Картинките трябва да се сменят през определен период от време (нампример през 10 s). Картинките са записани в една директория. Всички картинки от тази директория трябва да се сменят една сред друга многократно, до излизане от програмата.
Благодаря предварително !
поради недостатъчния ми умствен багаж, моля за съдействие.
Задачата е следната:
В приложението трябва да имам компонента (може би TImage), в която за зареждам картинки. Картинките трябва да се сменят през определен период от време (нампример през 10 s). Картинките са записани в една директория. Всички картинки от тази директория трябва да се сменят една сред друга многократно, до излизане от програмата.
Благодаря предварително !
Re: HELP ME
Dano sam te razbral pravilno :
1: napishi si edna rekursivna oricedurka oiato da ti procita fajlovete s opredeleno razshirenie edin sled drug ot tazi direktoria i gi ceti tova ako si maniak na pascal
2: moje da polzvash delfijski metodi da natapcish imenata na fajlovete i posle s edno round da si gi pokazvash po slucvaen nacin
ima i oshte no te sa povece ili po-malko variacii ne tezi 2-ta
1: napishi si edna rekursivna oricedurka oiato da ti procita fajlovete s opredeleno razshirenie edin sled drug ot tazi direktoria i gi ceti tova ako si maniak na pascal
2: moje da polzvash delfijski metodi da natapcish imenata na fajlovete i posle s edno round da si gi pokazvash po slucvaen nacin
ima i oshte no te sa povece ili po-malko variacii ne tezi 2-ta
Re: HELP ME
Zdravei!
Ami az ti predlagam da izpolzvash TTimer za da opredelij po naj elementaren na4in intervala v koito ste se smeniet kartinkite. Sled koeto pri OnTimer polzvash FindNext ili FileSearch za da opredeliash sledvastia fail. Imai predvid 4e TImage "otvaria" dosta ogrami4en broj ot grafi4ni formati
Ami az ti predlagam da izpolzvash TTimer za da opredelij po naj elementaren na4in intervala v koito ste se smeniet kartinkite. Sled koeto pri OnTimer polzvash FindNext ili FileSearch za da opredeliash sledvastia fail. Imai predvid 4e TImage "otvaria" dosta ogrami4en broj ot grafi4ni formati
Re: HELP ME
Здравей непознати момко!
Не се мисля за голям експерт на Delphi и ти предлагам едно скромно решение:
1. Слагаш 1 TImage и 1 TTImer компонента
2. При стартиране на програмата прочиташ всички файлове от директорията, които те интересуват и запазваш пълните им имена + пътя до тях в една невидима TListBox компонента
3. Нагласяваш таймера на 10 сек, и пишеш в процедурата Timer1.OnTimer нещо подобно:
begin
Image1.Picture.LoadFromFile(ListBox1.Items);
inc(i);
if i > ListBox1. max items - 1 / ne pomniq to`no kak beshe - viz v helpa/
then i := 0; /roll over again../
end;
, като i го слагаш в Form1 private секцията например и го инициализиаш на 0
...
ако нещо не ти е ясно - турси ме на -емайла,че незнам кога пак ще се отбия насам... speleomania@runbox.com
УСПЕХ! ;)
Не се мисля за голям експерт на Delphi и ти предлагам едно скромно решение:
1. Слагаш 1 TImage и 1 TTImer компонента
2. При стартиране на програмата прочиташ всички файлове от директорията, които те интересуват и запазваш пълните им имена + пътя до тях в една невидима TListBox компонента
3. Нагласяваш таймера на 10 сек, и пишеш в процедурата Timer1.OnTimer нещо подобно:
begin
Image1.Picture.LoadFromFile(ListBox1.Items);
inc(i);
if i > ListBox1. max items - 1 / ne pomniq to`no kak beshe - viz v helpa/
then i := 0; /roll over again../
end;
, като i го слагаш в Form1 private секцията например и го инициализиаш на 0
...
ако нещо не ти е ясно - турси ме на -емайла,че незнам кога пак ще се отбия насам... speleomania@runbox.com
УСПЕХ! ;)