VPF::обмен инфой - Форум программистов

NiJazz

Дата 13.1.2005, 14:24 (ссылка)

(нет голосов)

Загрузка ...

Jazz coder

Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 6
Всего: 23

Код клиента:

Код


procedure TForm1.Button1Click(Sender: TObject);
var hPipe: THandle;
    Size: cardinal;
    Buf: PChar;
begin
 if not WaitNamedPipe('\\.\pipe\mypipe', 0) then begin
   Application.MessageBox('Именованный канал не создан',
                          'Ошибка',
                          MB_OK or MB_ICONINFORMATION);
   exit;
 end;
 hPipe := CreateFile('\\.\pipe\mypipe',
                     1,  // В С++ это было бы FILE_WRITE_DATA
                     FILE_SHARE_WRITE,
                     nil,
                     OPEN_EXISTING,
                     FILE_ATTRIBUTE_NORMAL,
                     0);
 Size := Length(Edit1.Text);
 Buf := PChar(Edit1.Text);
 WriteFile(hPipe, Buf, Size, Size, nil);
 CloseHandle(hPipe);
end;

Код сервера:

Код


procedure TForm1.Button1Click(Sender: TObject);
var hPipe: THandle;
    Buf: PChar;
    Size: cardinal;
begin
 Size := 255;
 hPipe := CreateNamedPipe('\\.\pipe\mypipe',
                          PIPE_ACCESS_INBOUND,
                   PIPE_TYPE_BYTE,
     1,
     0,
     Size,
     NMPWAIT_USE_DEFAULT_WAIT,
     nil);
 ConnectNamedPipe(hPipe, nil);
 GetMem(Buf, Size);
 ReadFile(hPipe, Buf, Size, Size, nil);
 FlushFileBuffers(hPipe);
 DisconnectNamedPipe(hPipe);
 CloseHandle(hPipe);
 Edit1.Text := string(Buf);
 FreeMem(Buf);
 ShowMessage(IntToStr(GetLastError));
end;

Medved

Дата 13.1.2005, 15:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154

Цитата

WM_COPYDATA специально для таких случаев

Собственно согласен на 100%.

--------------------

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »