请教关于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里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
请教各路高手。武林前辈。我将B.EXE做成资源文件，然后加到123.dll中。用A.EXE来调用123.dll中的B.EXE
请各位前辈帮忙指教下。A.exe如何来调用dll中的exe？代码又该如何写？
无人回答？
做成资源� ......
var
FXmlDoc:IXMLDomDocument;
begin
使用FXmlDoc.save('文件路径')；
结果发现保存后的该文件中文全部为乱码，如何解决
end；
参考这个
http://blog.csdn.net/jiangnanandi/archive/2008/11/28/3399804.aspx ......
就一个button事件
procedure TForm1.btn7Click(Sender: TObject);
Type
TMyArr = array of array of array of Integer; {定义一个三维动态数组类型}
Pint = ^TMyArr;
var
PArr: Pint; ......
三国偏门的技术有很多，也很期待出一些共享贴来让我们学习！Delphi版也会越来越红火！
周末愉快!
sf
接分 ^_^
等着学习……
希望三國兄 開個專題講座帖，介 ......
