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

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

картинки и Delphi [D7]

Danla13 ©   (2006-09-13 20:28:00) 

Люди добрые! Мастера профессионалы! Помогите со слайд шоу картинок!

---

Бездарь   (2006-09-14 10:15:00) [1]

Русские коментарии похоже не прошли

---

Бездарь   (2006-09-14 10:14:00) [2]

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;

---

Steep   (2006-09-14 08:31:00) [3]

смотриш какие графические файлы есть в папке, создаеш список этих файлов, потом показываеш их подряд по таймеру (ну или вразброс)

Возьми хоть простенькую книжку по Delphi

---

SerJaNT   (2006-09-14 08:15:00) [4]

неа, это не лечится.

---

EvS   (2006-09-13 20:57:00) [5]

Чем же те помочь-то болезный?

---

Virgo_Style   (2006-09-13 20:56:00) [6]

Чем же тебе помочь

---

Наверх