Ĺadny brzuch
Jak z poziomu Delphi można stworzyć animacje gif? Mam na przykład 3 pliki gif: 1.gif, 2.gif, 3.gif i chcę aby one stworzyły animację. Każdy byłby wyświetlany co 100 milisekund. <_<
Ale chodzi Ci o stworzenie pliku czy animacji??
Chodzi o animacje.
Wstaw na formę Image, Timer(Interval=100; Enabled=False), w OnTimer:
procedure TForm1.Timer1Timer(Sender: TObject); begin  Image1.Picture.LoadFromFile(IntToStr(Nr) + '.gif');  Inc(Nr);  if Nr = 3 then Timer1.Enabled := False; end;
W onactivate formy:
procedure TForm1.FormActivate(Sender: TObject); begin  Nr := 1;  Timer1.Enabled := True;  onactivate := nil; end;
W zmiennych globalnych:
 Nr: Integer;
// do postu niżej:
Chodzi o animacje.
Dobrze ale to załatwi tylko sprawe animacji na formie, co innego z zapisem animacji do pliku ;)
Wstaw na formę Image, Timer(Interval=100; Enabled=False), w OnTimer:
.
.
.
// do postu niżej:
Chodzi o animacje.
B)
Po pierwsze: nie moge wstawić TImage ponieważ nie obsługuje gif'ów.
Po drugie: chodzi mi o animacje, ale żeby można było zapisać do pliku
TGIFImage jest przeznaczony dla C++Builder 1, 3, 4,Dlephi 1, 2, 3, 4, 5. A ja nie wiem jak zainstalować dla Delphi 7 :(.
Powinno się dać GraphicEx
Użytkownik NowyGracz edytował ten post 17 luty 2006, 20:25
Właśnie instaluje GraphicEx i mam problem: wywala mi "File not found". Oto fragment
Build
[Warning] dclusr.dpk(4): File not found: 'E:\Documents and Settings\SJ\Pulpit\ics\DELPHI\VC32\DNSQUERY.dcr'
// i tutaj tego w sumie ze 20 jest
[Warning] dclusr.dpk(22): File not found: 'E:\Documents and Settings\SJ\Pulpit\ics\DELPHI\VC32\WSOCKETS.dcr'
[Fatal Error] dclusr.dpk(125): File not found: 'CLI5.dcu'
Było o tym w Ekspercie z Programowaniem. Niestety ja go nie kupiłem. Na dodatek tego nie instalowałem.
Albo ja nie umiem tego zainstalować, albo mój komp jest niepełnosprawny. :blink: :huh: :mad:
//edit
Ma ktoś jeszcze pomysły na mój problem?
Użytkownik Maciek J. edytował ten post 17 luty 2006, 21:03
http://www.sulako.co...s.htm#tgifimage
Użytkownik migajek edytował ten post 17 luty 2006, 21:20
http://www.sulako.co...s.htm#tgifimage
TGIFImage jest przeznaczony dla C++Builder 1, 3, 4,Dlephi 1, 2, 3, 4, 5. A ja nie wiem jak zainstalować dla Delphi 7 :(.
Znalazłem taki komponent TGIFImage (inny :) , z tej strony pobrałem http://home20.inet.t...derlund/delphi/) Jak go instaluje to co powinienem wpisać w "Package file name:" (po wejściu w menu Compnent->Install Component...)? Bo domyślam się że tam ma być "D:\Program Files\Borland\Delphi7\Lib\dclusr.dpk". Apropo ten komponent jest przeznaczony do D7 ^_^ .
ty znasz w ogóle trochę angielski? :|
dajesz te opcje o których napisałeś wskazujesz plik na dysku gdzie masz paczkę do instalacji. dajesz ok ok ok i później jeszcze pamiętaj żeby dodać ścieżkę w libraries
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Ale chodzi Ci o stworzenie pliku czy animacji??
Chodzi o animacje.
Wstaw na formę Image, Timer(Interval=100; Enabled=False), w OnTimer:
procedure TForm1.Timer1Timer(Sender: TObject); begin  Image1.Picture.LoadFromFile(IntToStr(Nr) + '.gif');  Inc(Nr);  if Nr = 3 then Timer1.Enabled := False; end;
W onactivate formy:
procedure TForm1.FormActivate(Sender: TObject); begin  Nr := 1;  Timer1.Enabled := True;  onactivate := nil; end;
W zmiennych globalnych:
 Nr: Integer;
// do postu niżej:
Chodzi o animacje.
Dobrze ale to załatwi tylko sprawe animacji na formie, co innego z zapisem animacji do pliku ;)
Wstaw na formę Image, Timer(Interval=100; Enabled=False), w OnTimer:
.
.
.
// do postu niżej:
Chodzi o animacje.
B)
Po pierwsze: nie moge wstawić TImage ponieważ nie obsługuje gif'ów.
Po drugie: chodzi mi o animacje, ale żeby można było zapisać do pliku
TGIFImage jest przeznaczony dla C++Builder 1, 3, 4,Dlephi 1, 2, 3, 4, 5. A ja nie wiem jak zainstalować dla Delphi 7 :(.
Powinno się dać GraphicEx
Użytkownik NowyGracz edytował ten post 17 luty 2006, 20:25
Właśnie instaluje GraphicEx i mam problem: wywala mi "File not found". Oto fragment
Build
[Warning] dclusr.dpk(4): File not found: 'E:\Documents and Settings\SJ\Pulpit\ics\DELPHI\VC32\DNSQUERY.dcr'
// i tutaj tego w sumie ze 20 jest
[Warning] dclusr.dpk(22): File not found: 'E:\Documents and Settings\SJ\Pulpit\ics\DELPHI\VC32\WSOCKETS.dcr'
[Fatal Error] dclusr.dpk(125): File not found: 'CLI5.dcu'
Było o tym w Ekspercie z Programowaniem. Niestety ja go nie kupiłem. Na dodatek tego nie instalowałem.
Albo ja nie umiem tego zainstalować, albo mój komp jest niepełnosprawny. :blink: :huh: :mad:
//edit
Ma ktoś jeszcze pomysły na mój problem?
Użytkownik Maciek J. edytował ten post 17 luty 2006, 21:03
http://www.sulako.co...s.htm#tgifimage
Użytkownik migajek edytował ten post 17 luty 2006, 21:20
http://www.sulako.co...s.htm#tgifimage
TGIFImage jest przeznaczony dla C++Builder 1, 3, 4,Dlephi 1, 2, 3, 4, 5. A ja nie wiem jak zainstalować dla Delphi 7 :(.
Znalazłem taki komponent TGIFImage (inny :) , z tej strony pobrałem http://home20.inet.t...derlund/delphi/) Jak go instaluje to co powinienem wpisać w "Package file name:" (po wejściu w menu Compnent->Install Component...)? Bo domyślam się że tam ma być "D:\Program Files\Borland\Delphi7\Lib\dclusr.dpk". Apropo ten komponent jest przeznaczony do D7 ^_^ .
ty znasz w ogóle trochę angielski? :|
dajesz te opcje o których napisałeś wskazujesz plik na dysku gdzie masz paczkę do instalacji. dajesz ok ok ok i później jeszcze pamiętaj żeby dodać ścieżkę w libraries