Results 1 to 7 of 7
Hybrid View
-
3rd June 2006 02:28 #1
Delphi 7 è íàé-áúðçî èçâåæäàíå íà êàðòèíêè íà åêðàíà
Òàêà... òðÿáâà äà íàïðàâÿ ïðîãðàìà, êîÿòî ïðåç îïðåäåëåí èíòåðâàë îò âðåìå (îò ïîðÿäúêà íà ìèëèñåêóíäè) èçâåæäà êàðòèíêè, òàêà ÷å äà ñå ïîëó÷è àíèìàöèÿ.
Ïðîáâàõ äà ãåíåðèðàì ìàêàð è ïðîñòèòå áèòìàïè â ðåàëíî âðåìå - íå ñòàíà. Êîëåãèòå ìè êàçàõà äà ãåíåðèðàì ñàìî îáåêòèòå, äà ãè ñëîæà â ImageList è ïîñëå ñ CopyRect (çàùîòî çà äà ñå îñúùåñòâè àíèìàöèÿòà ìè òðÿáâàò ñàìî ÷àñòè îò áèòìàïèòå) äà ïðåõâúðëÿì íà åêðàíà... ùå ãî ïðîáâàì. Íî àêî íÿêîé èìà ïî-äîáðà èäåÿ äà êàçâà.
Îáà÷å åäíî äðóãî íåùî ìå ïðèòåñíÿâà - ïðîáâàõ â ImageList äà çàïàìåòÿ îñíîâíèòå îáåêòè, êîèòî òðÿáâà äà ñå ïîêàçâàò, íî ìå ñå ïîÿâè åäèí ïðîáëåì - íå ìîãà äèðåêòíî äà èçâèêâàì êàðòèíêàòà êàòî Bitmap (ïðèìåðíî ñ ImageList1.Image[0]).  ìîìåíòà èçâèêâàì ñ
ImageList1.GetBitmap(0,Image1.Picture.Bi tmap);
îáà÷å òúïîòî å, ÷å íå ðàáîòè! Íå áúðêàì - ïðîñòî ñëåäâàùèÿò ïúò, êîãàòî èçâèêàì òîçè ðåä âå÷å íóëåâàòà êàðòèíêà å äðóãà! Ïîêàçâà ñå ïúðâèÿ ïúò è ñëåäâàùèÿò ïúò íå ñå ïîêàçâà, îñâåí àêî íå íàïðàâÿ ñëåäíîòî:
Image1.Width := Image1.Width + 1;
Image1.Width := Image1.Width - 1;
Åãàòè òúïîòèÿòà. Íÿêîé äà ìè êàæå çàùî ñòàâà òàêà...
Èíà÷å ìè ñòàíà ÿñíî, ÷å âìåñòî ñ ImageList ùå çàïàçâàì îáåêòèòå ñ åäèí äèíàìè÷åí ìàñèâ îò TBitmap, è áåç òîâà òàêà áÿõ ñâèêíàë äî ñåãà....
-
3rd June 2006 11:06 #2
Àáå òàêà íÿìà äà ñòàíå. Ïðîñòî ñòàíäàðòíèòå êîìïîíåíòè íå ìîãàò äà ïîêàæàò äîñòàòú÷íî áúðçî êàðòèííêèòå, ùå ñå ïîÿâè ìíîãî ãàäíî òðåïòåíå. Áåç çíà÷åíèå äàëè ïîëçâàø timage èëè ïèøåø äèðåêòíî âúðõó canvas-à. Òàêà ÷å ñè èçòåãëè íÿêàêâà ãðàôè÷íà áèáëèîòåêà îò òèïà íà òâà http://www.g32.org/graphics32/index.html
-
3rd June 2006 12:55 #3
Àç áÿõ ïèñàë íÿêàêúâ åäíæèí íà Äåëôè, òîãàâà îáà÷å ïîëçâàõ DirectX... Òàêà ÷å, ïðåïîðú÷âàì òè äà ñè íàìåðèø íÿêîé êîìïîíåíò çà Äåëôè (àç ïîëçâàõ DelphiX), óäîáíî å è ïðè òîâà áúðçî.
Åòî òàêà ñå ïëîäÿò òå, êàçâàì ñè àç. Ïîä íîñà òè.
"640K îught to be enough for anybody" - Bill Gates, 1981
Òåñòîâå íà áàòåðèè::Machine specs::Fract::AGG::ÍåÑåÑúðäè×îâå÷å::Baileys::blog::YouTube channel
-
3rd June 2006 13:56 #4
Èäåÿòà áåøå ïðèëîæåíèåòî äà å ìúíè÷êî è äà íå ìè ñå íàëàãà äà ãî ïèøà 3 ñåäìèöè äåíîíîùíî... òàêà ÷å DirectX ìàé ùå ìè äîéäå âïîâå÷å, íî òîâà, êîåòî ìè å ïðåäëîæèë RazorJack ìàé ùå ñâúðøè ðàáîòà... Ñàìî ÷å ïàê ùå ïàäíå ÷åòåíå... íåùî, êîåòî íå ìè ñå èñêàøå äà ïðàâÿ...

Äîáðå, à ïî âúïðîñà ñ Image-a, êîéòî èñêà äà ãî ïðåîðàçìåðÿ çà äà ïîêàæå êàðòèíêà... íÿêîé äà èìà èäåÿ? Ïðîñòî ìè å èíòåðåñíî çàùî òàêà ñòàâà.
-
3rd June 2006 14:56 #5
Àêî òàêà èëè èíà÷å ùå ïàäà ÷åòåíå, ïîëçàé API-òî íà ÎÑ-à. Âÿðíî, ïî äîñàäíî è áàâíî å, íî ðåçóëòàòèòå ñè ñòðóâàò. Íàé-áúðçî ñå êîïèðàò áèòìàïè(èëè ÷àñòè) ñ ôóíêöèÿòà BitBlt, à è ñ íåÿ ìîãàò äà ñå ïðàâÿò ðàñòåðíè îïåðàöèè â ñúùîòî âðåìå. Íàäÿâàì ñå çíàåø, ÷å äèâàéñ êîíòåêñòèòå ìîãàò äà ñå äîñòúïÿò îò Äåëôè ñ Canvas.Handle(Ìîæå äà ñå íàëîæè äà èçâèêàø HandleNeeded ìåòîäà, Äåëôè íå âèíàãè èíèöèàëèçèðà òîâà ïîëå).Ïî ñïîìåíè, íàé-äîáðèÿ íà÷èí íà íàïúëíèø îáåêò íà Äåëôè
(ÒBitmap,TPicture èëè ÒImage, íå ïîìíÿ êîé íà êîé áåøå äåðèâàò) ñ ÀÏÈ-øêè áèòìàï å ñ ìåòîäà Assign, êàòî ïîäàâàø ñàìî ìàíèïóëàòîðà íà áèòìàïà - HBITMAP(Handle ïîëåòî â Äåëôè). Ïî ñúùèÿ íà÷èí ñå ïúëíè è îáåêòà Canvas ñ óèíäîóñêè äèâàéñ êîíòåêñò. ImageLista å áàâåí è íà ÀÏÈ, òàêà ÷å ïîëçâàíåòî ìó å ïðîòèâîïîêàçíî.
Äàíî íå ñúì òå ïîäâåë,íî àç ñå îòêàçàõ îò Äåëôè ïðåäè ìíîãî ãîäèíè è åäíà îò ïðè÷èíèòå áåøå, ÷å îòíå òâúðäå ìíîãî âðåìå è ñëîæåí êîä çà ñúâìåñòíàòà ðàáîòà íà îáåêòèòå ñ ÀÏÈ ôóíêöèè è îáåêòè.
È äà, DirectX e íàé-áúðçèÿ ìåòîä, âúïðåêè ÷å çà ïðîñòà àíèìàöèÿ ñ áèòìàïè, àç íå áèõ ãî ïîëçâàë.
Ï.Ñ. Íå ðàçáðàõ - èñêàø äà èçðåæåø êàðòèíêà èëè äà ðàçïúíåø êàðòèíêà? Àêî å âòîðîòî - StretchBlt e òâîÿòà ôóíêöèÿ. Ïðèëàãàì òè ëèíêîâå çà äâåòå ôóíêöèè:
BitBlt
StretchBlt
Ïðèìåð êàê ñòàâàLast edited by Bombera; 3rd June 2006 at 15:05.
EVGA X299 FTW K|i9-7960X@4.7|4x8 Patriot Viper Steel 4000|GTX 1660 Ti|970 EVO 1 TB|Seasonic Focus GX-1000|Xigmatek Elysium|Êèëî è ïîëîâèíà âîäà
Rampage IV Extreme BE|E5-1680v2@4.7|4x4 HyperX 1866|Cougar Aqua 240|GTX 1050 Ti|970 EVO 1/4 TB|CM 850 SilentPro|HAF-X|Áåç èñòèíñêî âîäíî
-
5th June 2006 13:47 #6
Âèæ òóê Ìîæå äà òè ñâúðøè ðàáîòà




Reply With Quote
Lenovo ThinkPad 15 èëè IdeaPad 15
5th May 2023, 22:16 in Ìîáèëíè êîìïþòðè