| | |
| Stránka: 1 z 1
| [ Príspevkov: 16 ] | |
Autor | Správa |
---|
Registrovaný: 13.12.09 Prihlásený: 19.12.19 Príspevky: 109 Témy: 47 |
Prosím vás mohli by ste mi poradit ako mam urobit program v Delphi, ktorý mi bude zobrazovat GIF obrázok???
Dakujem
//premenovane, Daron
|
|
Registrovaný: 17.04.08 Prihlásený: 28.03.24 Príspevky: 13258 Témy: 420 Bydlisko: Myjava |
a co uz mas hotove? s ktorou castou si nevies rady?
to je uloha do skoly?
_________________ PC: MSI B450 GAMING PLUS / AMD Ryzen 5 2600 / SilentiumPC Fera 3 HE1224 / ADATA XPG Spectrix D40 DDR4 2x8GB / Gainward GeForce GTX 1060 Phoenix 6GB / Adata XPG Gammix S11 M.2 SSD 480GB NVMe / Seagate BarraCuda HDD 2TB / WD Green 4TB / WD My Book Essential 3.0 2000GB / WD Elements 2000GB / ASUS BW-16D1HT / Creative Sound Blaster Audigy RX / Corsair CX450M / SilentiumPC Regnum RG4T / Dell P2719H / Microsoft Natural Ergonomic Keyboard 4000 / Logitech G102 Prodigy Gaming Mouse / Microlab SOLO9C / Microlab B77 / SONY WH-1000XM4 / Koss Porta Pro / Microsoft Windows 10 64-bit FPP PC (history): ASUS M4A785TD-V EVO / Athlon II X4 640 / Hynix 8GB (2x4GB) DDR3 1600 MHz / Sapphire HD7750 1GB Ultimate Silent Series / AMD Radeon R3 120GB / Seagate 7200.12 500GB / Samsung SH-S223L / Creative Sound Blaster X-Fi XtremeMusic / Axago PCEU-43R USB3.0 / TP-LINK TG-3269 / Corsair VS450 / 24" BenQ G2420HDBL / Gigabyte GT-U8300 NTB: Huawei MateBook D15 NTB2: Alcatel PLUS 10 LTE NTB3: MSI M670X-091SK / Transcend 2x1GB DDR2 667MHz Phone: Samsung Galaxy S9 Phone2: Samsung Galaxy S20+ Turntable: Tesla NC 470 / Ortofon OM 5E |
|
Registrovaný: 13.12.09 Prihlásený: 19.12.19 Príspevky: 109 Témy: 47 | Napísal autor témy tomas0620: 27.05.2011 19:14 | |
|
No ano je to do skoly .... a co mam urobene? asi nic... Viem totizto urobit program ktory mi zobrazi bitmapove obrazky ale ako urobit program aby zobrazil gif obrazok tak to netusim .. viem ze potrebujem nejake kniznice alebo ako to nazvat., aj som si nieco stiahol ale vobec neviem kam to mam ulozit a co s tym ..... viete pomoct?
|
|
Registrovaný: 24.01.08 Prihlásený: 13.09.17 Príspevky: 14572 Témy: 66 Bydlisko: Žilina |
odporúčam kuknúť pravidlá fóra, bez nejakej vlastnej iniciatívy ti tu nikto pomáhať nebude...
_________________ C#, PHP, ... |
|
Registrovaný: 11.01.09 Prihlásený: 29.03.24 Príspevky: 1385 Témy: 9 Bydlisko: Hrinova | Napísal Fico: 27.05.2011 19:57 | |
|
|
|
Registrovaný: 24.01.08 Prihlásený: 13.09.17 Príspevky: 14572 Témy: 66 Bydlisko: Žilina |
viem Fico, tebe je jedno, či sa daný človek niečo naučí alebo nie
_________________ C#, PHP, ... |
|
Registrovaný: 01.04.10 Prihlásený: 08.10.11 Príspevky: 339 Témy: 0 | Napísal Forty-: 27.05.2011 21:15 | |
|
google.com/search?q=delphi+gif+images
|
|
Registrovaný: 11.01.09 Prihlásený: 29.03.24 Príspevky: 1385 Témy: 9 Bydlisko: Hrinova | Napísal Fico: 28.05.2011 10:01 | |
|
Nie, tak som to nemyslel, walther, ale ze postnut temu, kde sa to uz riesilo, nie je problem
_________________ Ak potrebujete pomoc s diagnostikou/opravou vasej elektroniky ( notebook, motherboard, GPU, a ine ), kontaktujte ma cez SS. |
|
Registrovaný: 13.12.09 Prihlásený: 19.12.19 Príspevky: 109 Témy: 47 | Napísal autor témy tomas0620: 29.05.2011 11:41 | |
|
diki.. potreboval by som este link odkial mozem stiahnut ten unit GifImage. Prosim.
|
|
Registrovaný: 11.01.09 Prihlásený: 29.03.24 Príspevky: 1385 Témy: 9 Bydlisko: Hrinova | Napísal Fico: 29.05.2011 11:50 | |
|
Ved v tej teme som ho postol. Stiahnes balik a tam je .pas subor. Ten len pripoj v projekte, on sa skompiluje samostatne.
_________________ Ak potrebujete pomoc s diagnostikou/opravou vasej elektroniky ( notebook, motherboard, GPU, a ine ), kontaktujte ma cez SS. |
|
Registrovaný: 13.12.09 Prihlásený: 19.12.19 Príspevky: 109 Témy: 47 | Napísal autor témy tomas0620: 29.05.2011 14:05 | |
|
Prepáč mi ale voliako to tam nevidim :/ mohol by si mi sem napisat ten link? Dakujem.
|
|
Registrovaný: 11.01.09 Prihlásený: 29.03.24 Príspevky: 1385 Témy: 9 Bydlisko: Hrinova | Napísal Fico: 29.05.2011 14:18 | |
|
Hodil som ti to priamo na pastebin:
http://pastebin.com/0BSuEv7z
Skopiruj a uloz trebars ako GifImage.pas a v projekte iba klasicky pripoj do uses.
|
|
Registrovaný: 13.12.09 Prihlásený: 19.12.19 Príspevky: 109 Témy: 47 | Napísal autor témy tomas0620: 04.06.2011 12:34 | |
|
Diki moc cely program mi ide , pridal som tam este aj menu ..... ale teraz by som chcel aby som mohol kreslit na ten obrazok .... Na bitmapovy obrazko viem ako sa to robi no neviem ako na gif. Mohli by ste mi pomoct? .... Prikladam aj zdrojovy kod co mam zatial napisane :
Kód: var Form1: TForm1;
implementation
{$R *.dfm} var Kreslime:Boolean=False;
procedure TForm1.Button1Click(Sender: TObject); begin image1.Picture.LoadFromFile('1.gif'); end;
procedure TForm1.Button2Click(Sender: TObject); begin image1.Picture.LoadFromFile('2.gif'); end;
procedure TForm1.Otvori1Click(Sender: TObject); begin if Opendialog1.Execute then Image1.picture.LoadFromFile(OpenDialog1.FileName); end;
procedure TForm1.Uloi1Click(Sender: TObject); begin showmessage('Obrázok uložíte tak, že za názov doplníte .gif '); if SaveDialog1.Execute then Image1.Picture.SaveToFile(SaveDialog1.FileName); end;
procedure TForm1.Button3Click(Sender: TObject); begin image1.Picture.LoadFromFile('3.gif'); end;
procedure TForm1.Button4Click(Sender: TObject); begin image1.Picture.LoadFromFile('4.gif'); end;
procedure TForm1.Button5Click(Sender: TObject); begin image1.Picture.LoadFromFile('5.gif'); end;
procedure TForm1.Button6Click(Sender: TObject); begin image1.Picture.LoadFromFile('6.bmp'); end;
procedure TForm1.Exit1Click(Sender: TObject); begin close; end;
procedure TForm1.Oprograme1Click(Sender: TObject); begin showmessage('Tento program bol vytvorený v Delphi 7 dňa 30. mája 2011. Autorom je Tomáš Čičman.'); end;
procedure TForm1.Button7Click(Sender: TObject); begin image1.canvas.FillRect(image1.ClientRect); end;
procedure TForm1.ImageMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Kreslime:=True; Image1.Canvas.MoveTo(X,Y); end;
procedure TForm1.ImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if Kreslime then Image1.Canvas.LineTo(X,Y); end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Kreslime:=False; end;
end.
Ďakujem
|
|
Registrovaný: 11.01.09 Prihlásený: 29.03.24 Príspevky: 1385 Témy: 9 Bydlisko: Hrinova | Napísal Fico: 04.06.2011 13:05 | |
|
Neviem neviem, ale ja tu nevidim ani zmienku o gif platne. Ty tu pouzivas TImage komponent, a nikde tu nevidim vytvaranie TGifImage-u, pricom si vravel, ze ti to ide. Mozes, prosim, vysvetlit, preco si tam dal TImage, ak chces pracovat s TGifImage?
_________________ Ak potrebujete pomoc s diagnostikou/opravou vasej elektroniky ( notebook, motherboard, GPU, a ine ), kontaktujte ma cez SS. |
|
Registrovaný: 13.12.09 Prihlásený: 19.12.19 Príspevky: 109 Témy: 47 | Napísal autor témy tomas0620: 04.06.2011 14:14 | |
|
Prepac asi som slepy lebo TImage tam nikde nevidim .. vidim tam len TForm1.....
Tu je cely program ako ho mam: http://www.ulozto.sk/9223242/gif-rar
A gifi mi normalne idu .....
Ja len Neviem ako kreslit do toho gif obrazku...
Dufam ze nevadi ze som dal link na stiahnute. Ak ano tak sa ospravedlnujem.
|
|
Registrovaný: 11.01.09 Prihlásený: 29.03.24 Príspevky: 1385 Témy: 9 Bydlisko: Hrinova | Napísal Fico: 04.06.2011 15:10 | |
|
1.) ja som len odhadoval, ze si tam pouzil TImage a ako pozeram do zdrojaku, tak ty si ho skutocne pouzil, tak neviem, ale ja slepy asi nebudem
2.) jedine, co si spravil je, ze si pripojil do Uses unit GifImage. Bohuzial, to ti stacit nebude, nakolko, jedine, co tym dosiahnes je zaregistrovanie tohto typu, aby si ho mohol pouzivat, vid 'initialization' sekciu v tomto unite:
Kód: initialization {$IFDEF REGISTER_TGIFIMAGE} TPicture.RegisterFileFormat('GIF', sGIFImageFile, TGIFImage); // 2008.10.19 -> {$IFDEF VER20_PLUS} CF_GIF := RegisterClipboardFormat(PWideChar(sGIFImageFile)); {$ELSE} CF_GIF := RegisterClipboardFormat(PAnsiChar(sGIFImageFile)); {$ENDIF} // 2008.10.19 <- TPicture.RegisterClipboardFormat(CF_GIF, TGIFImage); {$ENDIF}
3.) ono to bude trocha tazsie, ako si si mozno myslel, pretoze takto sa neda upravit kazdy gif. Co myslis, da sa pocas animacie kreslit na animovany gif? Profesionalne programy, ktorymi sa da gif upravovat, to gifko vlastne rozlozia na niekolko obrazkov, ktore potom samostatne kazde zvlast upravujes.
|
|
| Stránka: 1 z 1
| [ Príspevkov: 16 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| Skript na zobrazenie obrázku v JavaScript, VBScript, Ajax | 1 | 678 | 08.06.2008 13:49 neutronmind | | Zobrazenie obrazku cez PHP. v PHP, ASP | 5 | 1373 | 19.07.2006 22:32 ronny | | Zobrazenie obrázku po prejdení myšou v JavaScript, VBScript, Ajax | 11 | 1276 | 15.03.2012 18:45 shaggy | | Hover obrazku a zobrazenie title v HTML, XHTML, XML, CSS | 4 | 347 | 21.04.2015 18:11 erikzet | | Zobrazenie obrazku z odkazu v MYSQL v PHP, ASP | 1 | 390 | 26.08.2007 14:55 javo | | gif alebo png? ak gif aky export? v HTML, XHTML, XML, CSS | 5 | 543 | 12.10.2009 18:39 don jebot | | GIF v Grafické programy | 4 | 2553 | 24.10.2006 21:08 proxim | | Gif + zvuk v Grafické programy | 2 | 628 | 05.11.2009 11:08 camo | | GIF animace v Video programy | 1 | 1389 | 06.07.2006 11:59 Cupi | | gif creator v Ostatné | 14 | 966 | 19.06.2008 17:26 Blackshadow | | obrazek.gif v Ostatné | 11 | 781 | 02.11.2007 11:16 martun | | Ulead Gif Animator v Grafické programy | 1 | 670 | 29.09.2008 10:28 baumax | | gif v DEPLHI v Delphi, Visual Basic | 10 | 954 | 10.11.2009 11:17 Fico | | SWF convert GIF v Grafické programy | 1 | 2043 | 04.11.2008 13:58 exipo3 | | .gif play/stop v Ostatné | 4 | 587 | 28.02.2017 13:44 Ryxwaer | | Vlajky (png, gif) v Ostatné | 5 | 922 | 02.05.2011 20:10 exoomer |
| Nemôžete zakladať nové témy v tomto fóre Nemôžete odpovedať na témy v tomto fóre Nemôžete upravovať svoje príspevky v tomto fóre Nemôžete mazať svoje príspevky v tomto fóre
|
|