HELP ME

3 отговора 157 прегледа
#1

HELP ME

Здравейте всички,
поради недостатъчния ми умствен багаж, моля за съдействие.
Задачата е следната:
В приложението трябва да имам компонента (може би TImage), в която за зареждам картинки. Картинките трябва да се сменят през определен период от време (нампример през 10 s). Картинките са записани в една директория. Всички картинки от тази директория трябва да се сменят една сред друга многократно, до излизане от програмата.
Благодаря предварително !

Отговор
в отговор на Karavel #2

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

Отговор
в отговор на Karavel #3

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

Отговор
в отговор на Karavel #4

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

УСПЕХ! ;)

Отговор