Çë½Ì¹ØÓÚdelphiÃüÃû¹ÜµÀµÄÎÊÌâ
ÏÂÃæÊÇÍøÉÏÕÒµÄÒ»¸öÊÂÀý,µ«ÔÚ±¾»ú±¨´í.
Çë½ÌÏ´íÎóÔÒò,»òÕ߸øÁíÍâµÄÊÂÀý¸üºÃ!лл
//Server
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TServer = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Server: TServer;
const
pipename:string='\\.\pipe\Server';
implementation
{$R *.dfm}
procedure TServer.Button1Click(Sender: TObject);
var
SPipeHandle:THandle;
Se:TSecurityAttributes;
WriteBuffer:DWORD;
Buffer:pchar;
begin
Se.nLength:=Sizeof(TSecurityAttributes);
Se.lpSecurityDescriptor:=nil;
Se.bInheritHandle:=True;
SPipeHandle:=CreateNamedPipe(pchar(pipename),PIPE_ACCESS_OUTBOUND OR FILE_FLAG_WRITE_THROUGH, PIPE_TYPE_BYTE or PIPE_WAIT,2,512,0,1000,@Se);
//´Ë´¦½¨Á¢²¢·Å»Ø¾ä±ú
if SPipeHandle=-1 then
raise Exception.Create('Create pipe Failed');
try
if not Connec
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......
Ò»Ö±ÏëʹÓÃdll£¬µ«delphiµÄdll×Ó´°Ìå¾³£Óи÷ÖÖÎÊÌ⣬±ÈÈçÖ÷´°¿ÚÓëdll×Ó´°¿ÚµÄ½¹µãÎÊÌ⣬×Ó´°¿ÚÖпؼþµÄtab¼ü¡¢Èȼü¡¢enter¼üµÈµÄÎÊÌ⣬×Ó´°¿ÚÍ˳öµÄÎÊÌâ¡¢Æ½Ãæ°´Å¥ÎÊÌâµÈµÈ£¬ÍøÕ¾ÉϽøÐÐÁËËÑË÷£¬Ã»ÓбȽÏÍêÃÀµÄ½â¾ö· ......
ËÖªµÀ£¬ÓÃʲô¹¤¾ß?
ÓÃFreePascal¿ÉÒÔ
ĿǰDELPHI²»Ö§³ÖÒÆ¶¯¿ª·¢
ѧϰÁË
²»ÖªµÀ2011ÊÇ·ñ¿ÉÒÔ£¬ÊÃÄ¿ÒÔ´ý¡£
ÓÐÈËÖªµÀô~
Ã²ËÆÇ°¶Îʱ¼ä¿´µ½ÓÐÖ§³ÖµÄ
prim
Delphi for iPhone 1.0 released!
......
Èý¹úÆ«Ãŵļ¼ÊõÓкܶ࣬ҲºÜÆÚ´ý³öһЩ¹²ÏíÌùÀ´ÈÃÎÒÃÇѧϰ£¡Delphi°æÒ²»áÔ½À´Ô½ºì»ð£¡
ÖÜÄ©Óä¿ì!
sf
½Ó·Ö ^_^
µÈ×Åѧϰ¡¡
Ï£ÍûÈý國ÐÖ 開個專題講×ùÌû£¬½é ......