CreateNamedPipe

← →
DoG © (2004-04-29 16:56) [0]

Здр !

Ниже написанный код, выбрасывает ошибку 53, как можно узнать что ето за ошибка ! и правильно ли я етот код написал !
Я его с копировал и сишного примера !

var
hPipe : HWND;
lpBuf : DWORD;
cName : Char;
N : String;
begin
hPipe := CreateNamedPipe("C:\PipeSvr",PIPE_ACCESS_DUPLEX or WRITE_DAC, PIPE_TYPE_BYTE,1,100,100,100,Nil);
if hPipe=INVALID_HANDLE_VALUE then
begin
ShowMessage("Error:"+IntToStr(GetLastError()));
end;
ConnectNamedPipe(hPipe,nil);
ZeroMemory(@cName,SIZEOF(cName));
StringToWideChar(Edit1.Text,@cName,5);
WriteFile(hPipe,cName,sizeof(cName),lpBuf,nil);
DisconnectNamedPipe(hPipe);
CloseHandle(hPipe);

end;

← →
BiN © (2004-04-29 17:00) [1]

как можно узнать что ето за ошибка ! и правильно ли я етот код написал !
Я его с копировал и сишного примера !

зачем так врать-то :)

← →
BiN © (2004-04-29 17:02) [2]

интересный у тебя пайп получается - "C:\PipeSvr",
замени лучше на A:\PipeSvr

← →
clickmaker © (2004-04-29 17:12) [3]

> DoG © (29.04.04 16:56)

Help - Windows SDK - Using Pipes. Там есть примеры

← →
Игорь Шевченко © (2004-04-29 17:23) [4]

> Там есть примеры

Так там и есть сишные примеры :))

← →
Digitman © (2004-04-29 17:49) [5]

> выбрасывает ошибку 53

> как можно узнать что ето за ошибка

оч просто ..

1) открываешь модуль Windows.pas
2) жмакаешь <CTRL><F>
3) вводишь модель поиска "53"
4) жмакаешь <ENTER>
5) в рез-те как минимум второй итерации поиска получаешь инф-цию

{ The network path was not found. }
ERROR_BAD_NETPATH = 53;

А если винда русская, то можно даже на великом и могучем ашипку прочитать: SysErrorMessage(GetLastError)

а если не оч русская, то на не менее могучем увуидим то же самое, что увидели при "жмаканьи" в контексте модуля Windows.pas

CreateNamedPipe Найти похожие ветки