DelphiͼÏñ´¦Àí
	
    
    
	    ¡¶DelphiͼÏñ´¦Àí -- Êý¾ÝÀàÐͼ°ÄÚ²¿¹ý³Ì¡·Ò»ÎÄÖж¨ÒåÁË»ù±¾µÄͼÏñÊý¾ÝÀàÐͼ°Ò»Ð©ÄÚ²¿¹ý³Ì£¬±¾ÎĽøÒ»²½½«Delphi³£ÓõÄͼÏñÀàÐÍת»»ÎªÍ¼Ïñ´¦ÀíËùÐèµÄÊý¾Ý½á¹¹£¬Îª¾ßÌåµÄDelphiͼÏñ´¦Àí¹ý³Ì×÷×¼±¸£¬Í¬Ê±Ò²Òª½«´¦ÀíºÃµÄͼÏñÊý¾Ýת»»ÎªDelphiµÄ³£ÓÃͼÏñÀàÐÍ¡£¡¶DelphiͼÏñ´¦Àí¡·ÏµÁгýͼÏñÊý¾Ýת»»¹ý³ÌÍ⣬ÆäËüͼÏñ´¦Àí¹ý³Ì¶¼Í³Ò»Ê¹ÓÃ32λARGBÏñËØ¸ñʽ¡£
    Ò»¡¢»ñÈ¡TGraphicµÄͼÏñÊý¾Ý¡£
    TGraphicÊÇDelphiµÄͼÏñÀà»ùÀà£¬ÌØ±ðÊÇÆäÅÉÉúÀàTBitmap£¬¸üÊÇDelphi×îÖØÒª£¬Ò²ÊÇ×î»ù´¡µÄͼÏñÀ࣬Ëü·â×°ÁËWindowsλͼµÄ³£ÓòÙ×÷£¬ÆäËüTGraphicÅÉÉúÀࣨ°üÀ¨Ò»Ð©µÚÈý·½ÅÉÉúÀࣩ¶¼¿ÉÒÔת»»ÎªTBitmap£¬Òò´Ë£¬»ñÈ¡ÁËTBitmapµÄͼÏñÊý¾Ý£¬Ò²¾Í»ñÈ¡ÁËTGraphicÅÉÉúÀàµÄͼÏñÊý¾Ý¡£
    Óжà¸ö·½·¨»ñÈ¡TBitmapµÄͼÏñÊý¾Ý£¬Ò»ÊÇÖ±½ÓÔÚTBitmapµÄɨÃèÏßÉϲÙ×÷£¬ÆäºÃ´¦ÊÇͼÏñ´¦ÀíºóÖ±½Ó·´Ó³ÔÚTBitmapÖУ¬²»±ØÔÙ½øÐÐת»»£¬È±µãÊÇÓÉÓÚ±¾Í¼Ïñ´¦ÀíϵÁвÉÓÃÁËͳһµÄ32λARGBÏñËØ¸ñʽ£¬ËùÒÔ±ØÐëÉèÖÃTBitmap.PixelFormatÊôÐÔ£¬Èç´ËÒ»À´£¬ÊÆ±ØÆÆ»µÁËÔͼÏñÏñËØ¸ñʽ£¬¶øÇÒ³ýÔ32λͼÏñÍ⣬ʵ¼ÊÉÏÒ²½øÐÐÁËÒ»´ÎͼÏñÊý¾Ý¿½±´£»¶þÊDz»ÆÆ»µTBitmapµÄÏñËØ¸ñʽ£¬Ö±½ÓÔÚTBitmap.ScanLineÖнâÎö¿½±´Í¼ÏñÊý¾Ý£¬ÕâÊǼä½ÓµÄTBitmapͼÏñÊý¾Ý´¦Àí£¬´¦ÀíÍê±Ï£¬ÓпÉÄÜҪת»»ÎªÐµÄTBitmap£»ÈýÊÇ£¬ÓÃTBitmap.HandleÊôÐÔ½èÖúWindows API½øÐÐÊý¾Ýת»»£¬ÕâÖÖ·½Ê½ÓëµÚ¶þÖÖ·½Ê½²î²»¶à£¬¡¶DelphiͼÏñ´¦Àí -- Õæ²ÊɫͼÏñת»»ÎªµÍÉ«²ÊͼÏñ¡·Ò»ÎÄÖоÍÊDzÉÓõÄÕâÖÖ·½Ê½¡£±¾ÎIJÉÓÃǰ2ÖÖ·½Ê½»ñÈ¡TBitmapͼÏñÊý¾Ý£¬¾ßÌå²ÉÓúÎÖÖ·½Ê½ÓɾßÌåÇé¿ö¶ø¶¨¡£ÏÂÃæÊÇʵÏÖ´úÂ룺
¹ý³Ì¶¨Ò壺
  // »ñÈ¡GraphicµÄͼÏñÊý¾Ý¡£±ØÐëÓÃFreeImageDataÊÍ·ÅÊý¾Ý½á¹¹
  function GetImageData(Graphic: TGraphic): TImageData; overload;
  // »ñÈ¡BitmapµÄͼÏñÊý¾Ý¡£Èç¹ûIsCopyData=True£¬¸´ÖÆBitmapÊý¾Ý£¬
  // ÓÃFreeImageDataÊÍ·ÅÊý¾Ý½á¹¹£¬·ñÔò£¬Bitmapת»»Îª32λºóÖ±½Ó²Ù×÷ɨÃèÏß
  function GetImageData(Bitmap: TBitmap; IsCopyData: Boolean): TImageData; overload;
  // ¿½±´Sourceµ½32λDest¡£Èç¹ûÊÇ8λ»òÕß4λSource£¬±ØÐëÒªÓÐÏàÓ¦µÄÑÕÉ«±íColors
  procedure CopyImageDatafrom(var Dest: TImageData;
    const Source: TImageData; Colors: PRGBQuad = nil);
  // ¿½±´32λSourceµ½32 or 24λDest¡£
ʵÏÖ´úÂ룺
// Ìî³äAlphaͨµÀ
procedu
    
     
	
	
    
    
	Ïà¹ØÎĵµ£º
        
    
    Delphi µÄ×Ö·û¼°×Ö·û´®[1] - string¡¢AnsiString¡¢WideString¡¢String[n]¡¢ShortString 
2008-10-17 14:57:17
//×î³£ÓÃµÄ string
var
  str: string;   {¶¨Òå}
begin
  str := 'ÍòÒ»'; {¸³Öµ}
  ShowMessage(IntToStr(Length(str))); {³¤¶ÈÊÇ: 4}
end;
//³¤×Ö·û´® AnsiString; ÔÚµ±Ç°°æ± ......
	
    
        
    
    
Unt_Machine_WebDll.pas
  BODY {background: #FFFFFF}
  A:link { color: #0000FF}
  A:visited { color: #0000FF}
  A:Active { color: #0000FF}
  .bold {font-weight: bold}
  .italic {font-style: italic}
  .underline {text-decoration: underline}
unit Unt_Machine_WebDll;
{$WARN SYMBOL_PLATFORM OF ......
	
    
        
    
    Ò»¸öºÜ¼òµ¥µÄÎÊÌ⣬µ«ÎÒÆ¾ÎÒѧϰC++/VCÒ»Äê¶à£¬½Ó´¥DelphiµÄʱ¼äÒ²²»¶ÌÁË£¬µ«ÈÔȻд²»³öÀ´¡£
±¾À´ÒÔΪ£¬²»¾ÍÊǽ«Form1.ShowºÍForm1.Hideô£¬µ«È´¾ÍÊÇ´ïµ½²»µ½×Ô¼ºÏëÒªµÄ½á¹û
Õâ¸öÎÊÌâµ¹²»ÓÃ×÷ÉîÈëÑо¿ÁË£¬µ½ÊÇÈÃÎÒ·¢ÏÖ£¬DelphiÒ²²»ÊÇÐÅÊÖÕªÀ´£¬Ê²Ã´¶¼ÊÇÄÇôÈÝÒ׵ģ¬ÒÔΪ×Ô¼ºÓеã¶ùVCµÄµ××Ó£¬¾ÍС¿´ÁËDelphi¡£
×î½üÒ»¶Îʱ ......
	
    
        
    
    ǰÑÔ
    ¾¡ÈýÄêÀ´£¬±¾ÈËÂ½ÐøÐ´ÁËÁùÊ®¶àƪBOLOÎÄÕ£¬ÆäÖоø´ó²¿·ÖÊÇÓйØÍ¼Ïñ´¦ÀíµÄ£¬Òò´Ë£¬ÓÐÈËÏ·³ÆÎÒΪͼÏñ´¦Àíר¼Ò£¨»òGDI+ר¼Ò£©£¬´ËÏ·³Æµ±È»ÊǶÔÎÒµÄÔÞÑµ«ÎÒ×Ô¼ºÈ´¾õµÃÂÔº¬Ò»Ë¿Ë¿±áÒ壬¼´³ýÁËͼÏñ´¦Àí£¬±ðµÄ·½Ã棨ÈçÍøÂç¡¢Êý¾Ý¿âµÈ£©¶¼²»Õ¦µÄ£¬ÊÂʵҲȷʵÈç´Ë¡£
    ÎÒÊÇÒ»Ãû»ú¹Ø¹¤ ......
	
    
        
    
        ÕâÀïÏÈ˵˵Á½¸ö¸ÅÄTheme(Ö÷Ìâ)ºÍ Visual Style ¡£Theme ×îÔç³öÏÖÔÚ Microsoft Plus! for Windows 95 ÖУ¬ÊÇ Windows ÖÐ Wallpaper¡¢Cursors¡¢Fonts¡¢Sounds ¡¢Icons µÈµÄÉèÖÃÖµ¼¯ºÏ¡£Visual Style ÔÚ Windows XP Öвű»ÒýÈ룬Visual Style ¹æ¶¨ÁË Contorls µÄÍâ¹Û£¬ÁíÍ⻹°üÀ¨Ê¹ÓÃÕâЩÍâ¹ÛµÄÒ»Ì× API ......