Пример работы с MailSlotDelphi , Интернет и Сети , E-mailПример работы с 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; Статья Пример работы с MailSlot раздела Интернет и Сети E-mail может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |