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,
Ïà¹ØÎĵµ£º
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 ......
¹ØÓÚIntraWeb³ÌÐòÔÚ±àÒëʱ³öÏÖ´íÎóµÄ½â¾ö·½·¨
´íÎóÌáʾ£º[Error] IWLicenseKey.pas(12): Undeclared identifier: 'SetLicenseKey'
´¦Àí·½·¨£º½øÈë²Ëµ¥Tools->Environment Options£¬Ñ¡Ôñ‘Library’£¬½«'Library path'²ÎÊýÖÐÓйØintrawebµÄĿ¼·ÅÔÚÇ°Ãæ¼´¿É¡£
ʹÓÃ&n ......
2009-12-01 00:41:35
֮ǰ°²×°ÁËoracle 10g£¬ºóÀ´ÎªÁËÔÚC#ÀïÃæÁ¬½Óoracle£¬°²×°ÁËODAC£¬Ö®ºóÁ¬½ÓÊý¾Ý¿âʱ£¬ÌîдÊý¾Ý¿â·þÎñÃû£¬×ÜÊÇ»á³ö´í£¬Á¬½Ó²âÊÔÎÞ·¨Í¨¹ý£¬²»ÌîÊý¾Ý¿â·þÎñÃû£¬µ¹»¹¿ÉÒÔͨ¹ýÁ¬½Ó²âÊÔ
½ñÍíÖÕÓڲ鵽ÔÒòÁË¡£¡£¡£
ϵͳÊôÐÔÄÇÀïµÄ»·¾³±äÁ¿£¬pathÕâÀoracleµÄÁ½¸öĬÈÏ·¾¶£º
d:\oracle\product\10. ......
×î½ü×öÒ»¸öÏîÄ¿£¬ÒªÓÃDelphi£¬ÒÔÇ°´Óδѧ¹ý£¬ºÃÊǷѾ¢°¡£¬¹þ¹þ¹âÊÇ×Ö·û´®ÇиîÕâ¸öÎÊÌâ¾ÍÀ§ÈÅÁ˼¸¸öСʱ£¬Í¨¹ý²é×ÊÁÏÖÕÓÚ½â¾ö£¬ÔÚÕâÓë´ó¼Ò·ÖÏíÒ»ÏÂ
Function split(src: pchar; ch: char):TStringList;
// ·Ö¸î×Ö·û´®
var
i: Integer;
tmp : string;
begin
Result:=TStringList.Create;
......
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¡¢×Ö·ûÊý×éµ ......