请教关于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
相关问答：
delphi 手动装载驱动文件提示：
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
是不是这个驱动必需要用INF来安装。。用自带的INF来装是正常的。用手动装载就提示如上� ......
具体要求与报酬QQ729851670
771234717
“拼音编程”是什么意思
引用
“拼音编程”是什么意思
1.给一个字可以显示拼音，多音字的话能显示对应的多个拼音
2.对包含多音字的词语智能识别给出拼音。
3.对一段 ......
各位好！！
假设我有两个text文件
一个名叫 1.text
内容：
I like PC....
另外一是2.text
内容:
function yk as string
endfunction
globals
endglobals
***********************分界线********** ......
代码如下：
unit DllExport;
interface
uses
windows, SysUtils;
type
TKzString = packed record
returnlength: byte; //?????
returnstring: array[0..255] of char; ......
我做毕业设计-酒店管理系统，我想做一个功能，实现把当天所以预订的客户，入住的客户。。等算起来，在edit中显示，请大家跟我说大体在怎么弄？
所謂“算”應該不是算數量吧？
幹嘛� ......
