WIN32ÏÂDELPHIÖеĶàÏ̡߳¾ÉîÈëVCLÔ´Âë¡¿£¨Ò»£©
Ï̵߳Ļù´¡ÖªÊ¶
Ï̵߳Ä×é³É¡£Ïß³ÌÓÐÁ½²¿·Ö×é³É¡£
1¡¢Ò»¸öÊÇÏ̵߳ÄÄں˶ÔÏ󣬲Ù×÷ϵͳÓÃËüÀ´¶ÔÏß³Ìʵʩ¹ÜÀí¡£Äں˶ÔÏóÒ²ÊÇϵͳÓÃÀ´´æ·ÅÏß³Ìͳ¼ÆÐÅÏ¢µÄµØ·½¡£
2¡¢ÁíÒ»¸öÊÇÏ̶߳ÑÕ»£¬ËüÓÃÓÚά»¤Ïß³ÌÔÚÖ´ÐдúÂëʱÐèÒªµÄËùÓк¯Êý²ÎÊýºÍ¾Ö²¿±äÁ¿¡£
½ø³Ì´ÓÀ´²»Ö´ÐÐÈκζ«Î÷£¬ËüÖ»ÊÇÏ̵߳ÄÈÝÆ÷¡£Ïß³Ì×ÜÊÇÔÚij¸ö½ø³Ì»·¾³Öд´½¨µÄ£¬¶øÇÒËüµÄÕû¸öÊÙÃüÆÚ¶¼Ôڸýø³ÌÖС£ÕâÒâζ×ÅÏß³ÌÔÚËüµÄ½ø³ÌµØÖ·¿Õ¼äÖÐÖ´ÐдúÂ룬²¢ÇÒÔÚ½ø³ÌµÄµØÖ·¿Õ¼äÖжÔÊý¾Ý½øÐвÙ×÷¡£Òò´Ë£¬Èç¹ûÔÚµ¥½ø³Ì»·¾³ÖУ¬ÄãÓÐÁ½¸ö»ò¶à¸öÏß³ÌÕýÔÚÔËÐУ¬ÄÇôÕâÁ½¸öÏ߳̽«¹²Ïíµ¥¸öµØÖ·¿Õ¼ä¡£ÕâЩÏß³ÌÄܹ»Ö´ÐÐÏàͬµÄ´úÂ룬¶ÔÏàͬµÄÊý¾Ý½øÐвÙ×÷¡£ÕâЩÏ̻߳¹Äܹ²ÏíÄں˶ÔÏó¾ä±ú£¬ÒòΪ¾ä±ú±íÒÀÀµÓÚÿ¸ö½ø³Ì¶ø²»ÊÇÿ¸öÏ̴߳æÔÚ¡£
Ïß³ÌÊÇÒ»ÖÖ²Ù×÷ϵͳ¶ÔÏó£¬Ëü±íʾÔÚ½ø³ÌÖдúÂëµÄÒ»ÌõÖ´Ðз¾¶¡£ÔÚÿһ¸öWi n32µÄÓ¦ÓóÌÐòÖж¼ÖÁÉÙÓÐÒ»¸öỊ̈߳¬Ëüͨ³£±»³ÆÎªÖ÷Ï̻߳òĬÈÏÏ̡߳£ÔÚÓ¦ÓóÌÐòÖÐÒ²¿ÉÒÔ×ÔÓɵش´½¨±ðµÄÏß³ÌÈ¥Ö´ÐÐÆäËûÈÎÎñ¡£Ï̼߳¼Êõʹ²»Í¬µÄ´úÂë¿ÉÒÔͬʱÔËÐС£µ±È»£¬Ö»ÓÐÔÚ¶àC P UµÄ¼ÆËã»úÉÏ£¬¶à¸öÏ̲߳ÅÄܹ»ÕæÕýµØÍ¬Ê±ÔËÐС£ÔÚµ¥¸öCPUÉÏ£¬ÓÉÓÚ²Ù×÷ϵͳ°ÑC P UµÄʱ¼ä·Ö³ÉºÜ¶ÌµÄƬ¶Î·ÖÅä¸øÃ¿¸öỊ̈߳¬ÕâÑù¸øÈ˵ĸоõºÃÏñÊǶà¸öÏß³ÌÕæµÄͬʱÔËÐУ¬ËûÃÇÖ»ÊÇ“¿´ÆðÀ´”ͬʱÔÚÔËÐС£
Win32ÊÇÒ»ÖÖÇÀռʽ²Ù×÷ϵͳ£¬²Ù×÷ϵͳ¸ºÔð¹ÜÀíÄĸöÏß³ÌÔÚʲôʱºòÖ´ÐС£Èç¹ûµ±Ïß³Ì1ÔÝÍ£Ö´ÐÐʱ£¬Ïß³Ì2²ÅÓлú»á»ñµÃC P Uʱ¼ä£¬ÎÒÃÇ˵Ïß³Ì1ÊÇÇÀÕ¼µÄ¡£Èç¹ûij¸öÏ̵߳ĴúÂëÏÝÈëËÀÑ»·£¬Õâ²¢²»¿ÉÅ£¬²Ù×÷ϵͳÈԻᰲÅÅʱ¼ä¸øÆäËûÏ̡߳£
´´½¨Ò»¸öÏß³Ì
×¢Ò⣺ÿ¸öÏ̱߳ØÐëÓµÓÐÒ»¸ö½øÈëµãº¯Êý£¬Ï̴߳ÓÕâ¸ö½øÈëµã¿ªÊ¼ÔËÐС£Ï̺߳¯Êý¿ÉÒÔʹÓÃÈκκϷ¨µÄÃû×Ö¡£¿ÉÒÔ¸øÏ̺߳¯Êý´«µÝµ¥¸ö²ÎÊý£¬²ÎÊýµÄº¬ÒåÓÉÄã×Ô¼º¶¨Òå¡£Ï̺߳¯Êý±ØÐëÓÉÒ»¸ö·µ»ØÖµ£¬Ëü½«³ÉΪ¸ÃÏ̵߳ÄÍ˳ö´úÂë¡£Ï̺߳¯ÊýÓ¦¸Ã¾¡¿ÉÄܵÄʹÓú¯Êý²ÎÊýºÍ¾Ö²¿±äÁ¿¡£Ï̺߳¯ÊýÀàËÆÏÂÃæµÄÑù×Ó(Object Pascal)£º
//×¢Òâ×îºóµÄstdcall£¬ºóÃæÎÒ»áÃèÊöһЩÓÐÓõĶ«Î÷
function MyThread(info : Pointer):DWORD; stdcall;
var
i : integer;
begin
for i := 0 to Pinfo(info)^.count-1 do
Form1.Canva
Ïà¹ØÎĵµ£º
Delphi ÖÐÈçºÎ°²×°×é¼þ?
delphiÖÐÈçºÎ°²×°×é¼þÓÐÎåÖÖÇé¿ö£º
1¡¢Ö»ÓÐÒ»¸öDCUÎļþµÄ×é¼þ¡£DCUÎļþÊDZàÒëºÃµÄµ¥ÔªÎļþ£¬ÕâÑùµÄ×é¼þÊÇ×÷Õß²»Ïë°ÑÔ´Â빫²¼¡£Ò»°ãÀ´Ëµ£¬×÷Õß±ØÐë˵Ã÷´Ë×é¼þÊʺÏDelphiµÄÄÄÖÖ°æ±¾£¬Èç¹û°æ±¾²»¶Ô£¬ÔÚ°²×°Ê±¾Í»á³öÏÖ´íÎó¡£Ò²ÕýÊÇÒòΪûÓÐÔ´Â룬¸øÊ¹ÓÃÕß´øÀ´Á˲»±ã£¬ÄǾÍÊÇÒ»µ©Delphi°æ±¾Éý¼¶£¬´Ë× ......
====================================================
Delphi²Ù×÷ÎļþµÄÒ»°ã²½Ö裺
1£©¹ØÁªÎļþ£º
AssignFile(var F; FileName :string)£»
2£©³õʼ»¯Îļþ£º
Append(var F :Text);
//ֻд£¬ÓÚÎļþ×îºó×·¼ÓÊý¾Ý
Reset(var F [; RecSize :Word]);   ......
Ò») ʹÓö¯Ì¬´´½¨µÄ·½·¨
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application'  ......
°Ù¶ÈÖªµÀÕæÀ¬»ø£¬ÄÇô´óµÄÒ»¸öÆóÒµ£¬¾Í¸øÄÇôµã¿Õ¼ä£¬Ìá¸öÎÊ1500×ÖÏÞÖÆÁË¡£ÏëÏëÀ´csdn£¬¹ÒÁËÒ»¸öÐÇÆÚ¶¼Ã»ÈËÀí£¬²»ÖªµÀÊÇÎÒ·ÖÌ«ÉÙ£¬»¹ÊÇÕæµÄ¸ßÊÖ¶¼²»À´ÕâÀ£¿£¿ÆÚ´ýÒ»¸öÓ¢Ð۵ĵ½À´£¬²ËÄñÎÒÔÚÕâÀï°ÝлÁË£¡£¡ÆäʵÕâ¸ù±¾²»ÊÇÉúÃüÄÑÌ⣬ÎҲŸոÕѧ£¬Îʲ»³öÉúÃü¸ßÉîµÄÌâÄ¿À´£º
rT;
delphi7 ,DB:oracle
ÎÊÌâÔËÐй¤³ÌÎļþexe²» ......
3.2 Óû§µÇ¼·½°¸
ÔÚ½øÈëÒ»¸öϵͳʱ£¬±ØÐëÏÈÔڵǼ´°ÌåÖÐÊäÈëÕýÈ·µÄÓû§ÃûºÍÃÜÂë²ÅÄܽøÈë¡£ÕâÑù¿ÉÒÔÈ·±£ÏµÍ³µÄ°²È«ÐԺͱ£ÃÜÐÔ£¬µÇ¼´°ÌåµÄÖÆ×÷°´ÕÕϵͳµÄ´óС¼°Óô¦£¬¿ÉÒÔ·ÖΪ²»Í¬µÄµÇ¼´°ÌåÑùʽ£¬ÔÚϵͳµÚÒ»´ÎµÇ¼ǰ£¬Ê×ÏÈÒª¶Ô²Ù×÷Ô±ÐÅÏ¢½øÐÐÏàÓ¦µÄÉèÖᣱ¾½Ú½«¶ÔµÇ¼´°Ìå¼°²Ù×÷Ô±¹ÜÀí´°ÌåµÄÖÆ×÷¹ý³Ì½øÐÐÏêϸµÄ˵Ã÷ ......