Текущий архив: 2006.10.01;
Скачать: CL | DM;
Вниз
картинки и Delphi Найти похожие ветки
← →
Danla13 (2006-09-13 20:28) [0]Люди добрые! Мастера профессионалы! Помогите со слайд шоу картинок!
← →
Virgo_Style © (2006-09-13 20:56) [1]Чем же тебе помочь
← →
EvS © (2006-09-13 20:57) [2]Чем же те помочь-то болезный?
← →
SerJaNT © (2006-09-14 08:15) [3]неа, это не лечится.
← →
Steep © (2006-09-14 08:31) [4]смотриш какие графические файлы есть в папке, создаеш список этих файлов, потом показываеш их подряд по таймеру (ну или вразброс)
Возьми хоть простенькую книжку по Delphi
← →
Бездарь (2006-09-14 10:14) [5]
var
Form1: TForm1;
srf: TSearchRec;
n: integer=0;
st: string;
implementation
{$R *.dfm}
procedure Loadfile; {ïðîöåäóðà ïîèñêà è çàãðóçêè ôàéëîâ JPEG}
begin
if n=0 then {åñëè ýòî ïåðâàÿ çàãðóçêà}
begin
if FindFirst ("*.jpg",faAnyFile,srf)<>0 then exit;
{èùåì ñàìûé ïåðâûé jpeg-ôàéë â ïàïêå, åñëè íå íàõîäèì - âûõîä èç ïðîöåäóðû}
try {ïðîáóåì åãî çàãðóçèòü â Image1}
Form1.Image1.Picture.LoadFromFile(srf.Name);
except {ýòî âîâñå íå Jpeg}
{âûâîäèì ñîîáùåíèå}
st:="Íåïðàâèëüíûé ôîðìàò ôàéëà "+ srf.Name;
Application.MessageBox(Pchar(st),"Error",MB_OK);
exit; {âûõîä èç ïðîöåäóðû}
end;
n:=1; {ñëåäóþùàÿ çàãðóçêà áóäåò óæå íå ïåðâîé}
end else {åñëè ýòà çàãðóçêà óæå íå ïåðâàÿ}
begin
if FindNext(srf)=0 then {åñëè =0, òî íàéäåí ñëåäóþùèé ôàéë}
try {ïðîáóåì åãî çàãðóçèòü â Image1}
Form1.Image1.Picture.LoadFromFile(srf.Name)
except {ýòî âîâñå íå Jpeg}
{âûâîäèì ñîîáùåíèå}
st:="Íåïðàâèëüíûé ôîðìàò ôàéëà "+ srf.Name;
Application.MessageBox(Pchar(st),"Error",MB_OK);
exit; {âûõîä èç ïðîöåäóðû}
end
else {à åñëè íå 0 - çíà÷èò ôàéëîâ áîëüøå íåò}
begin
FindClose (srf); {çàêðûàåì ïîèñê}
n:=0; {â ñëåäóþùèé ðàç íà÷íåì ñíà÷àëà}
end;
end;
end;
procedure TForm1.Open1Click(Sender: TObject); {îòêðûòèå ôàéëà}
begin
If OpenDialog1.Execute then {åñëè äèàëîã îòêðûòèÿ ôàéëà çàâåðøèëñÿ óäà÷íî}
Image1.Picture.LoadFromFile(OpenDialog1.FileName) {çàãðóæàåì êàðòèíêó â Image1}
else
begin
{èíà÷å, åñëè äèàëîã çàâåðøèëñÿ íåóäà÷íî, âûâîäèì ñîîáùåíèå}
st:="Íåïðàâèëüíûé ôîðìàò ôàéëà "+ OpenDialog1.FileName;
Application.MessageBox(Pchar(st),"Error",MB_OK);
exit; {âûõîäèì èç ïðîöåäóðû}
end;
n:=0; {n=0 - ïðèçíàê ïåðâîé çàãðóçêè èç äàííîé ïàïêè}
end;
procedure TForm1.Button1Click(Sender: TObject); {íàæàòèå íà êíîïêó ïåðåëèñòûâàíè}
begin
Loadfile;
end;
procedure TForm1.Run1Click(Sender: TObject); {çàïóñê è îñòàíîâêà äåìîíñòðàöèè ñëàéäîâ}
begin
if Timer1.Enabled=False then {åñëè äåìîíñòðàöèÿ áûëà îñòàíîâëåíà}
begin
Run1.Caption:="Ñòîï"; {ìåíÿåì íàçâàíèå ïóíêòà ìåíþ íà "Ñòîï"}
Timer1.Enabled:=True; {çàïóñòèëè òàéìåð}
end else {èíà÷å, åñëè äåìîíñòðàöèÿ óæå èäåò}
begin
Run1.Caption:="Çàïóñê"; {ìåíÿåì íàçâàíèå ïóíêòà ìåíþ îáðàòíî íà "Çàïóñê"}
Timer1.Enabled:=False; {òàéìåð îñòàíîâëåí}
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Loadfile;
end;
← →
Бездарь (2006-09-14 10:15) [6]Русские коментарии похоже не прошли
Страницы: 1 вся ветка
Текущий архив: 2006.10.01;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.045 c
