Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

Delphi Öд®¿ÚͨѶµÄʵÏÖ

  Delphi ÊÇÐÂÒ»´ú¿ÉÊÓ»¯¿ª·¢¹¤¾ß£¬Ëü¾ßÓй¦ÄÜÇ¿´ó¡¢¼ò±ãÒ×ÓúʹúÂëÖ´ÐÐËٶȿìµÈÌص㣬ÊÇÈ«Çò¹«ÈϵĿìËÙÓ¦Óÿª·¢¹¤¾ß¼¼ÊõµÄÏÈÇýÕߣ¬ËüÔ½À´Ô½ÔÚ¹¹¼ÜÆóÒµÐÅϢϵͳ·½Ãæ·¢»Ó×ÅÖØÒª×÷Óá£ÓÉÓÚDelphi ÕâЩÏÔÖøÌص㣬Ðí¶à³ÌÐòԱѡÔñDelphi×÷Ϊ¿ª·¢¹¤¾ß±àÖƸ÷ÖÖÓ¦ÓóÌÐò¡£µ«ÊÇ£¬ÁîÈËÍïϧµÄÊÇDelphiûÓÐ×Ô´ø´®¿ÚͨѶµÄ¿Ø¼þ£¬ÔÚËüµÄ°ïÖúÎĵµÀïҲûÓÐÌá¼°´®¿ÚͨѶ£¬Õâ¾Í¸ø±àÖÆͨѶ³ÌÐòµÄ¿ª·¢ÈËÔ±´øÀ´ÖÚ¶àÂé·³£¬Ó°ÏìÁË¿ª·¢½ø¶È£¬ÏÂÃæ¾ÍÕâÒ»¼¼Êõ½øÐÐÌÖÂÛ¡£
¡¡¡¡ÓÃDelphi ÊµÏÖ´®¿ÚͨѶ£¬³£Óõļ¸ÖÖ·½·¨Îª£ºÊ¹ÓÿؼþÈçMSCOMMºÍSPCOMM£¬Ê¹ÓÃAPIº¯Êý»òÕßÔÚDelphi Öе÷ÓÃÆäËü´®¿ÚͨѶ³ÌÐò¡£ÀûÓÃAPI±àд´®¿ÚͨÐųÌÐò½ÏΪ¸´ÔÓ£¬ÐèÒªÕÆÎÕ´óÁ¿Í¨ÐÅ֪ʶ£¬ÆäÓŵãÊÇ¿ÉʵÏֵŦÄܸüÇ¿´ó£¬Ó¦ÓÃÃæ¸ü¹ã·º£¬¸üÊʺÏÓÚ±àд½ÏΪ¸´ÔӵĵͲã´ÎͨÐųÌÐò¡£Ïà±È½Ï¶øÑÔ£¬ÀûÓÃSPComm¿Ø¼þÔòÏà¶Ô½Ï¼òµ¥£¬¸Ã¿Ø¼þ¾ßÓзḻµÄÓë´®¿ÚͨÐÅÃÜÇÐÏà¹ØµÄÊôÐÔ¼°Ê¼þ£¬ÌṩÁ˶Դ®¿ÚµÄ¸÷ÖÖ²Ù×÷¡£
¡¡¡¡Ê¹ÓÿؼþÕâÒ»·½·¨ÈÝÒ×ÕÆÎÕ£¬¶øSPCOMMÖ§³Ö¶àỊ̈߳¬ËùÒÔSPCOMM¿Ø¼þµÄÓ¦Óøü¼Ó¹ã·º¡£½áºÏʵÀýÏêϸ½éÉÜSPCOMMµÄʹÓá£
Ò»£®SPCOMM¿Ø¼þµÄ°²×°
      1£®Ñ¡ÔñÏÂÀ­²Ëµ¥ComponentµÄµÚ¶þÏîInstall Component ¡£
            
              Í¼1
            µ¯³öͼ1ËùʾµÄ´°¿Ú,ÔÚUnit file name ´¦Ìîд¿Ø¼þSPCOMM¿Ø¼þËùÔÚ·¾¶£¬ÆäËü¿ÉÓÃĬÈÏÖµ£¬µã»÷OK°´Å¦
      2£®°²×°³É¹¦ºó£¬system¿Ø¼þÃæ°åÖн«³öÏÖÒ»¸öºìÉ«¿Ø¼þCOMM¡£ÏÖÔÚʹÓÃCOMM¿Ø¼þ¿ÉÒÔÏóDelphi×Ô´ø¿Ø¼þÒ»ÑùʹÓá£
¶þ£®SPCOMMµÄÖ÷ÒªÊôÐÔ£¬·½·¨ºÍʼþ
   1.ÊôÐÔ
       CommName£ºÌîдCOM1,COM2…µÈ´®¿ÚµÄÃû×Ö,ÔÚ´ò¿ª´®¿ÚÇ°£¬±ØÐëÌîдºÃ´ËÖµ¡£ 
       BaudRate:É趨²¨ÌØÂÊ9600£¬4800µÈ£¬¸ù¾Ýʵ¼ÊÐèÒªÀ´¶¨£¬ÔÚ´®¿Ú´ò¿ªºóÒ²¿É¸ü¸Ä²¨ÌØÂÊ£¬Êµ¼Ê²¨ÌØÂÊËæÖ®¸ü¸Ä¡£
       ParityCheck£ºÆæżУÑé¡£
       ByteSize£º×Ö½Ú³¤¶È_5,_6,


Ïà¹ØÎĵµ£º

DelphiÎļþ²Ù×÷

 unit unitFileOP;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
implementation
function GetSys32Dir:String;
var
Sys32Dir: string;
pSys32Dir: array[0..Max_Path] of char;
begin
GetSystemDirectory(pSys32Dir,Max_Pat ......

Delphi ×ÊÔ´


 ¹ØÓÚIntraWeb³ÌÐòÔÚ±àÒëʱ³öÏÖ´íÎóµÄ½â¾ö·½·¨
´íÎóÌáʾ£º[Error] IWLicenseKey.pas(12): Undeclared identifier: 'SetLicenseKey'
´¦Àí·½·¨£º½øÈë²Ëµ¥Tools->Environment Options£¬Ñ¡Ôñ‘Library’£¬½«'Library path'²ÎÊýÖÐÓйØintrawebµÄĿ¼·ÅÔÚÇ°Ãæ¼´¿É¡£
ʹÓÃ&n ......

delphiÖÐÓÃadoÁ¬½Óoracle 10g

2009-12-01  00:41:35
֮ǰ°²×°ÁËoracle 10g£¬ºóÀ´ÎªÁËÔÚC#ÀïÃæÁ¬½Óoracle£¬°²×°ÁËODAC£¬Ö®ºóÁ¬½ÓÊý¾Ý¿âʱ£¬ÌîдÊý¾Ý¿â·þÎñÃû£¬×ÜÊÇ»á³ö´í£¬Á¬½Ó²âÊÔÎÞ·¨Í¨¹ý£¬²»ÌîÊý¾Ý¿â·þÎñÃû£¬µ¹»¹¿ÉÒÔͨ¹ýÁ¬½Ó²âÊÔ
½ñÍíÖÕÓڲ鵽ԭÒòÁË¡£¡£¡£
ϵͳÊôÐÔÄÇÀïµÄ»·¾³±äÁ¿£¬pathÕâÀoracleµÄÁ½¸öĬÈÏ·¾¶£º
d:\oracle\product\10. ......

delphiѧϰ ×Ö·û´®ÇиîÎÊÌ⣨split£©

×î½ü×öÒ»¸öÏîÄ¿£¬ÒªÓÃDelphi£¬ÒÔÇ°´Óδѧ¹ý£¬ºÃÊǷѾ¢°¡£¬¹þ¹þ¹âÊÇ×Ö·û´®ÇиîÕâ¸öÎÊÌâ¾ÍÀ§ÈÅÁ˼¸¸öСʱ£¬Í¨¹ý²é×ÊÁÏÖÕÓÚ½â¾ö£¬ÔÚÕâÓë´ó¼Ò·ÖÏíÒ»ÏÂ
Function split(src: pchar; ch: char):TStringList;
// ·Ö¸î×Ö·û´®
var
  i: Integer;
  tmp : string;
begin
  Result:=TStringList.Create;
  ......

Delphi×Ö·û´®¡¢PCharÓë×Ö·ûÊý×éÖ®¼äµÄת»»

Delphi×Ö·û´®¡¢PCharÓë×Ö·ûÊý×éÖ®¼äµÄת»»
ÉèÓÐÒÔÏÂÈý¸ö±äÁ¿£º
var
s:string;
p:pchar;
a:array[1..20] of char;
ÄÇôÈýÕßÖ®¼äµÄת»»ÈçÏ£º
1¡¢×Ö·û´®µ½PChar
    p:=PChar(s);
2¡¢PCharµ½×Ö·û´®
    s:=p;
3¡¢PCharµ½×Ö·ûÊý×é
    StrCopy(@a,p);
4¡¢×Ö·ûÊý×éµ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ