скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Пример работы с MailSlot



Автор: Baa

procedure TForm1.Button1Click(Sender: TObject);
var
  hSlot1: THandle;
  lpszSlotName: LPSTR;
begin
  lpszSlotName := '\\\\.\\mailslot\\sample_mailslot';
  hslot1 := CreateMailslot(lpszSlotName,
    0,
    MAILSLOT_WAIT_FOREVER,
    nil);
  // тут поидее должна быть обработка ошибки, если не удалось создать
  // Далее работаем
  // с ним, как с файлом т.е.WriteFile и т.д.
    CloseHandle(hSlot1); //а кады закрываем за собой дескриптор,
  // то память чистится т.е.все, что мы туда поназаписали удаляется
end;





Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook