Obsah fóra
PravidláRegistrovaťPrihlásenie




Odpovedať na tému [ Príspevkov: 16 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 13.12.09
Prihlásený: 19.12.19
Príspevky: 109
Témy: 47
Príspevok NapísalOffline : 27.05.2011 16:59

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


Offline

Správca fóra
Správca fóra
Zobrazenie GIF obrazku

Registrovaný: 17.04.08
Prihlásený: 28.03.24
Príspevky: 13258
Témy: 420
Bydlisko: Myjava
Príspevok NapísalOffline : 27.05.2011 18:03

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
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 13.12.09
Prihlásený: 19.12.19
Príspevky: 109
Témy: 47
Príspevok Napísal autor témyOffline : 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?


Offline

Skúsený užívateľ
Skúsený užívateľ
Zobrazenie GIF obrazku

Registrovaný: 24.01.08
Prihlásený: 13.09.17
Príspevky: 14572
Témy: 66
Bydlisko: Žilina
Príspevok NapísalOffline : 27.05.2011 19:15

odporúčam kuknúť pravidlá fóra, bez nejakej vlastnej iniciatívy ti tu nikto pomáhať nebude... ;)







_________________
C#, PHP, ...
Offline

Skúsený užívateľ
Skúsený užívateľ
Zobrazenie GIF obrazku

Registrovaný: 11.01.09
Prihlásený: 29.03.24
Príspevky: 1385
Témy: 9
Bydlisko: Hrinova
Príspevok NapísalOffline : 27.05.2011 19:57

Ale bude ;)
http://www.pcforum.sk/gif-v-deplhi-vt76980.html


Offline

Skúsený užívateľ
Skúsený užívateľ
Zobrazenie GIF obrazku

Registrovaný: 24.01.08
Prihlásený: 13.09.17
Príspevky: 14572
Témy: 66
Bydlisko: Žilina
Príspevok NapísalOffline : 27.05.2011 20:36

viem Fico, tebe je jedno, či sa daný človek niečo naučí alebo nie :rolleyes:







_________________
C#, PHP, ...
Offline

Užívateľ
Užívateľ
Zobrazenie GIF obrazku

Registrovaný: 01.04.10
Prihlásený: 08.10.11
Príspevky: 339
Témy: 0
Príspevok NapísalOffline : 27.05.2011 21:15

google.com/search?q=delphi+gif+images


Offline

Skúsený užívateľ
Skúsený užívateľ
Zobrazenie GIF obrazku

Registrovaný: 11.01.09
Prihlásený: 29.03.24
Príspevky: 1385
Témy: 9
Bydlisko: Hrinova
Príspevok NapísalOffline : 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.
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 13.12.09
Prihlásený: 19.12.19
Príspevky: 109
Témy: 47
Príspevok Napísal autor témyOffline : 29.05.2011 11:41

diki.. potreboval by som este link odkial mozem stiahnut ten unit GifImage. Prosim.


Offline

Skúsený užívateľ
Skúsený užívateľ
Zobrazenie GIF obrazku

Registrovaný: 11.01.09
Prihlásený: 29.03.24
Príspevky: 1385
Témy: 9
Bydlisko: Hrinova
Príspevok NapísalOffline : 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.
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 13.12.09
Prihlásený: 19.12.19
Príspevky: 109
Témy: 47
Príspevok Napísal autor témyOffline : 29.05.2011 14:05

Prepáč mi ale voliako to tam nevidim :/ mohol by si mi sem napisat ten link? Dakujem.


Offline

Skúsený užívateľ
Skúsený užívateľ
Zobrazenie GIF obrazku

Registrovaný: 11.01.09
Prihlásený: 29.03.24
Príspevky: 1385
Témy: 9
Bydlisko: Hrinova
Príspevok NapísalOffline : 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.


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 13.12.09
Prihlásený: 19.12.19
Príspevky: 109
Témy: 47
Príspevok Napísal autor témyOffline : 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


Offline

Skúsený užívateľ
Skúsený užívateľ
Zobrazenie GIF obrazku

Registrovaný: 11.01.09
Prihlásený: 29.03.24
Príspevky: 1385
Témy: 9
Bydlisko: Hrinova
Príspevok NapísalOffline : 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.
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 13.12.09
Prihlásený: 19.12.19
Príspevky: 109
Témy: 47
Príspevok Napísal autor témyOffline : 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.


Offline

Skúsený užívateľ
Skúsený užívateľ
Zobrazenie GIF obrazku

Registrovaný: 11.01.09
Prihlásený: 29.03.24
Príspevky: 1385
Témy: 9
Bydlisko: Hrinova
Príspevok NapísalOffline : 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 :rolleyes:
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.


Odpovedať na tému [ Príspevkov: 16 ] 


Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy. Skript na zobrazenie obrázku

v JavaScript, VBScript, Ajax

1

678

08.06.2008 13:49

neutronmind Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Zobrazenie obrazku cez PHP.

v PHP, ASP

5

1373

19.07.2006 22:32

ronny Zobrazenie posledných príspevkov

Táto téma je zamknutá, nemôžete posielať nové príspevky alebo odpovedať na staršie. Zobrazenie obrázku po prejdení myšou

v JavaScript, VBScript, Ajax

11

1276

15.03.2012 18:45

shaggy Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Hover obrazku a zobrazenie title

v HTML, XHTML, XML, CSS

4

347

21.04.2015 18:11

erikzet Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Zobrazenie obrazku z odkazu v MYSQL

v PHP, ASP

1

390

26.08.2007 14:55

javo Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. gif alebo png? ak gif aky export?

v HTML, XHTML, XML, CSS

5

543

12.10.2009 18:39

don jebot Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. GIF

v Grafické programy

4

2553

24.10.2006 21:08

proxim Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Gif + zvuk

v Grafické programy

2

628

05.11.2009 11:08

camo Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. GIF animace

v Video programy

1

1389

06.07.2006 11:59

Cupi Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. gif creator

v Ostatné

14

966

19.06.2008 17:26

Blackshadow Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. obrazek.gif

v Ostatné

11

781

02.11.2007 11:16

martun Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Ulead Gif Animator

v Grafické programy

1

670

29.09.2008 10:28

baumax Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. gif v DEPLHI

v Delphi, Visual Basic

10

954

10.11.2009 11:17

Fico Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. SWF convert GIF

v Grafické programy

1

2043

04.11.2008 13:58

exipo3 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. .gif play/stop

v Ostatné

4

587

28.02.2017 13:44

Ryxwaer Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Vlajky (png, gif)

v Ostatné

5

922

02.05.2011 20:10

exoomer Zobrazenie posledných príspevkov


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

Skočiť na:  

Powered by phpBB Jarvis © 2005 - 2024 PCforum, webhosting by WebSupport, secured by GeoTrust, edited by JanoF
Ako väčšina webových stránok aj my používame cookies. Zotrvaním na webovej stránke súhlasíte, že ich môžeme používať.
Všeobecné podmienky, spracovanie osobných údajov a pravidlá fóra