Delphi²¥·ÅGifºÍFlash¶¯»µÄ·½·¨
ÏÔʾһ¸öGIF¶¯»
procedure ShowGIF( GIFFileName : String );
var TargetFrameName,PostData,Heads,Flags : OleVariant; URL : widestring; begin TargetFrameName := '';{Ö¸¶¨FrameµÄ¿Õ×Ö·û´®Ê±,ÔòÔÚµ±Ç°FrameÖдò¿ª¶¯»Îļþ} PostData := false;{²»·¢ËÍÊý¾Ý} Heads := '';{HeaderÐÅϢΪ¿Õ} Flags := 0;{FlagsÉèΪ0} URL := GIFFileName; with formGIF.webbrowser do{ÔÚÖ¸¶¨´°¿ÚÖеÄIEä¯ÀÀÆ÷¿Ø¼þÖÐÏÔʾ¶¯»} begin navigate(URL,Flags,TargetFrameName,PostData,Heads);{ÏÔʾ¶¯»Îļþ} end; end;
²¥·ÅFlash ¡¡¡¡
Ê×ÏÈ£¬ÄãµÄ»úÆ÷ÀïҪװÓÐ Flash ²¥·ÅÈí¼þ£¨ÄãµÄ IE ÄÜÏÔʾ Flash £©¡£IE Ö®ËùÒÔÄÜÏÔʾ Flash Êǰ²×°ÁËÓÉ Macromedia ¹«Ë¾ÌṩµÄ swflash.ocx ¿Ø¼þ£¬ÎÒÃÇ¿ÉÒÔÔÚWin98 µÄ $Windows\System\Macromed\Flash ÖлòÔÚ Win2000 ÖÐµÄ $Winnt\System32\ Macromed\Flash ÖÐÕÒµ½Ëü¡£ActiveX ¿Ø¼þÔÚ Windows ÀïÊÇͨÓõģ¬DelphiҲͬÑùÖ§³Ö¡£
¡¡¡¡ÔËÐÐ Delphi ºó£¬Ñ¡ÔñÑ¡µ¥Component→Import ActiveX Control£¬ÕÒµ½SWFlash.OCX Îļþ½øÐа²×°¡£°²×°Íê³Éºó£¬ActiveX Ãæ°åÀï³öÏÖ TShockwaveFlash¿Ø¼þ£¬ÕâÊÇDelphi¶ÔSWFlash.OCX µÄ·â×°£¬ÏÖÔÚÎÒÃǾͿÉÒÔÓÃÕâ¸ö¿Ø¼þÀ´²¥·Å Flash ÁË¡£ÍÏÒ»¸ö Flash ¹ýÀ´£¬·ÅÔÚ Form ÉÏ£¬Ö¸¶¨Æä Movie ÊôÐÔΪ d:\test.SWF£¬²¢°´ F9 ¼ü¼ÓÒÔÔËÐм´¿É¡£ÔõôÑù£¬ÔËÐÐЧ¹û²»´í°É£¿
¡¡¡¡ÏÂÃæ£¬±ÊÕß½«¾ßÌå½éÉÜTShockwaveFlashÖ÷ÒªÊôÐÔ¡¢·½·¨ºÍʼþ£¬ÒÔ±ãÓÚ¶ÁÕß¿ª·¢¡£
TShockwaveFlashÖ÷ÒªÊôÐÔÈçÏ£º
ReadyState£º¶ÁÒ»¸öflashÎļþʱµÄ״̬£¬ÆäÖаüÀ¨0=Loading¡¢1=Uninitialized¡¢2=Loaded¡¢ 3=InteractiveºÍ4=Complete£» TotalFrames£º×ÜÖ¡Êý£¬Ö»Óе±ReadyState = 4ʱ²ÅÄÜ·ÃÎʸÃÊôÐÔ£» FrameNum£ºµ±Ç°²¥·ÅµÄÖ¡£» Playing£º²¥·Å»òÔÝÍ£Ò»¸öflash£» Quality£ºÖ¸¶¨µ±Ç°äÖȾµÄÖÊÁ¿£¬°üÀ¨0=Low, 1=High¡¢2=AutoLow¡¢3=AutoHigh£» ScaleMode£ºËõ·Åģʽ£¬0=ShowAll¡¢1= NoBorder¡¢2 = ExactFit£» AlignMode£º¶ÔÆëģʽ£¬Left=+1¡¢Right=+2¡¢Top=+4¡¢Bottom=+8£» BackgroundColor£º±³¾°É«£¬-1ΪĬÈÏÑÕÉ«£» Loop£ºÊÇ·ñÑ»·£» Movie£ºÖ¸¶¨²¥·ÅµÄflashÎļþ·¾¶£¬¿ÉÒÔΪһ¸öURL¡£
TShockwaveFlashÖ÷Òª·½·¨ÈçÏ£º
Play()£º¿ªÊ¼²¥·Å¶¯»£» Stop()£»Í£Ö¹²¥·Å¶¯»£» Back()£»²¥·Åǰһ֡¶¯»£» Forward()£º²¥·ÅºóÒ»Ö¡¶¯»£» Rewind()£º²¥·ÅµÚÒ»Ö¡¶¯»£» SetZoomRect(int left, int top, int right, int bottom)£ºÉèÖÃËõ·ÅµÄÇøÓò£» Zoom(int
Ïà¹ØÎĵµ£º
½ñÌì¿´ÁËÍâ¹úһƪÎÄÕ£¬¾õµÃºÜÓÐÒâ˼£¬ÓÚÊÇÔÚÕâÀï¼Ç¼һÏ¡£²Êɫͼת»»³ÉºÚ°×ÕÕ¡£ÔÚps ÒªÊǽ«²ÊÉ«µÄͼת»»ºÚ°×Õյķ½Ê½Ö»ÊÇÐèÒª¼òµ¥µÄ¶¯×÷¡£¶øÔÚflash ´¦ÀíÆðÀ´Ò²·Ç³£¼òµ¥¡£
ÏÈÑ¡ÔñÒ»ÕÅϲ»¶µÄͼƬ£¬È»ºó½øÐд¦Àí¡£ÀýÈçÕâÕÅÕÕÆ¬£¬Í¼Æ¬ÖеÄÊÇÒ»¸öºÜ²»´íµÄö¦Å®¡£ºÇºÇ
ÏÖÔÚͨ¹ýÒ ......
DELPHIÖвÙ×÷ACCESSÊý¾Ý¿â(½¨Á¢.mdbÎļþ,ѹËõÊý¾Ý¿â)
ÒÔÏ´úÂëÔÚWIN2K,D6,MDAC2.6ϲâÊÔͨ¹ý,
±àÒëºÃµÄ³ÌÐòÔÚWIN98µÚ¶þ°æÎÞACCESS»·¾³ÏÂÔËÐгɹ¦.
//ÉùÃ÷Á¬½Ó×Ö·û´®
Const
SConnectionString
= 'Provider=M ......
Delphi²Ù×÷XMLÊǺܷ½±ãµÄ£¬Ö÷ÒªÓÐÁ½ÖÖ·½·¨£»
1.ÓÃTClientDataSet²Ù×÷XML£»TClientDataSetÊǸöºÃ¶«Î÷£¬ÓÃËü²Ù×÷XMLÊǺܼòµ¥µÄÊ£¬²»¹ýȱµãÊÇÖ»ÄܲÙ×÷¹Ì¶¨¸ñʽµÄ XML£¬ËüÊʺϲÙ×÷±í½á¹¹µÄÊý¾Ý£¬Èç¹ûÄãÐèÒª°ÑÊý¾Ý±íµ¼³ö³ÉXMLÄÇÓÃTClientDataSetÊǸöºÃÖ÷Ò⣬±ÈÈçÏÂÃæÊÇÒ»¸öÊý¾Ý¼¯µ¼³ö³ÉXMLµÄ· ......
Delphi²Ù×÷XMLÊǺܷ½±ãµÄ£¬Ö÷ÒªÓÐÁ½ÖÖ·½·¨£»
1.ÓÃTClientDataSet²Ù×÷XML£»TClientDataSetÊǸöºÃ¶«Î÷£¬ÓÃËü²Ù×÷XMLÊǺܼòµ¥µÄÊ£¬²»¹ýȱµãÊÇÖ»ÄܲÙ×÷¹Ì¶¨¸ñʽµÄ XML£¬ËüÊʺϲÙ×÷±í½á¹¹µÄÊý¾Ý£¬Èç¹ûÄãÐèÒª°ÑÊý¾Ý±íµ¼³ö³ÉXMLÄÇÓÃTClientDataSetÊǸöºÃÖ÷Ò⣬±ÈÈçÏÂÃæÊÇÒ»¸öÊý¾Ý¼¯µ¼³ö³ÉXMLµÄ· ......