请教关于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
相关问答：
请教各路高手。武林前辈。我将B.EXE做成资源文件，然后加到123.dll中。用A.EXE来调用123.dll中的B.EXE
请各位前辈帮忙指教下。A.exe如何来调用dll中的exe？代码又该如何写？
无人回答？
做成资源� ......
hongqi162、windindance
此2人长期不在线，特别是windindance
更换有能力的人上
hongqi162还是经常上来转转的
引用
更换有能力的人上
其实也不是什么能力的原因，主要可能是时间问题吧
工作的还要上班，学� ......
例子程序见附件，用Delphi 7进行编译
问题代码为
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
var
FXmlDoc:IXMLDomDocument;
begin
使用FXmlDoc.save('文件路径')；
结果发现保存后的该文件中文全部为乱码，如何解决
end；
参考这个
http://blog.csdn.net/jiangnanandi/archive/2008/11/28/3399804.aspx ......
我做毕业设计-酒店管理系统，我想做一个功能，实现把当天所以预订的客户，入住的客户。。等算起来，在edit中显示，请大家跟我说大体在怎么弄？
所謂“算”應該不是算數量吧？
幹嘛� ......
