01.08.2011, 16:40
|
#6
|
Рыцарь
Регистрация: 13.10.2009
Сообщений: 665
Сказал Спасибо: 38
Имеет 172 спасибок в 108 сообщенях
|
Цитата:
Сообщение от StekloReZ
Оффтоп
Захочешь получить помощь, а получишь головную боль лишнюю.
Либо нет времени, либо нет желания помочь.
Тему можно удалять, конкретного простого примерчика, как понял, никто не даст.
|
по 2-й ссылке которую дал ксор ( http://coderx.ru/showthread.php?t=8219) мною выложен исходник, где работа с пайпами в несколько строк....
Оффтоп
чтение из пайпов
Код:
procedure Packet_Sniffer;stdcall;
var
//buffer:Pointer;
cbRead:DWORD;
packet_head:PNetworkPacket;
lpszPipeName:string;
buffer:array[1..10240]of byte;
i:integer;
s:string;
c_size:dword;
v1,v2:dword;
begin
lpszPipeName:='\\.\pipe\eye';
hNamedPipe:= CreateNamedPipe(
pchar(lpszPipeName),
PIPE_ACCESS_DUPLEX,
PIPE_TYPE_MESSAGE or PIPE_READMODE_MESSAGE or PIPE_WAIT,
PIPE_UNLIMITED_INSTANCES,
10240, 10240, 100, nil);
if not ConnectNamedPipe(hNamedPipe, nil) then MessageBOx(0,pchar(' no connect pipe #'+IntToStr(GetLastError())),'',$10);
while true do
begin
if(ReadFile(hNamedPipe, buffer, 10240, cbRead, nil)) then
begin
тут читаем из buffer
end;// else Form1.Memo1.Lines.Add('no read');
end;
end;
запись в пайпы
Код:
szPipeName:='\\.\pipe\eye';
hNamedPipe:=CreateFile(pchar(szPipeName),GENERIC_READ or GENERIC_WRITE,0, nil, OPEN_EXISTING, 0, 0);
WriteFile(hNamedPipe,pBuffer^,size,cbWritten,nil);
__________________
каждый раз, когда ты пишешь int i вместо short i, сотни пользователей вынуждены докупать планку памяти
служба поддержки 4gay - ICQ 642274822
Последний раз редактировалось Morfik, 01.08.2011 в 16:45.
|
|
|