Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Работа с мэйлслотами

Автор: NetDigger 15.11.2004, 08:22

Здравствуйте, уважаемые!

Возник вопрос при работе с мэйлслотами. Есть приложение, которое может выступать либо как клиент, либо как сервер. При запуске сервера открывается мэйлслот-канал, теперь запустив ту же самую программу с помощью кнопки Send можно посылать сообщения серверу, который их, допустим, выводит в ShowMessage. Это теоретически. На практике получается так: если строка задается константой, т.е. идет присвоение типа Message := 'test', то все замечательно работает, но стоит попробовать присвоить текст какого-либо контрола (Edit1.Text) - все вылетает c Acces Violation. Грешил на Вин98, однако на винтукее то же самое. Как только не извращался с типами, добавлял насильно нуль в конец строки - БЕС-ПО-ЛЕЗ-НО. Потом решил разделить клиент и сервер - штука точна такая же - не получается. Посмотрите незамыленным глазом - может подскажете, где собака зарыта. И еще - подскажите как то же самое можно реализовать с Named Pipes, сокетами и DDE - вдруг получится там =). Но код с мэйлслотами все равно доделать нужно.

Код



procedure TForm1.Button3Click(Sender: TObject); - создаем сервер
Var
  szBuf: String; // само сообщение
  cbMsgNumber: DWORD; // количество сообщений в слоте
  cbMessages: DWORD; 
  cbRead: DWORD;// байт прочтено
  HS : THandle;
begin
  HS := CreateMailSlot(PChar('\\.\mailslot\MySlot'), 0, MAILSLOT_WAIT_FOREVER,nil);
  if HS = INVALID_HANDLE_VALUE then
    raise Exception.Create('MailSlotServer: ни черта не создан!');
  While( true ) do begin
    If not(GetMailslotInfo( hs, nil, cbMessages, @cbMsgNumber, nil))
          then Halt;
If cbMsgNumber  <> MAILSLOT_NO_MESSAGE then Begin // если есть сообщение-вывести и  выйти из цикла
       ReadFile(hs, szBuf, 200, cbRead, nil);
          ShowMessage( szBuf );
        break;
    End;

  End;
   ShowMessage('The message has been showed');
end;



procedure TForm1.Button2Click(Sender: TObject);// а вот посылка сообщения
Var
  StrMess : String;
  Written: DWORD;
  blank: String;
    hC: THandle;
begin
  hc:=CreateFile( PChar('\\.\mailslot\MySlot'), GENERIC_WRITE,
                 FILE_SHARE_READ,nil,OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  If Hc <> INVALID_HANDLE_VALUE then Begin
  StrMess := Edit1.text;
    If not(WriteFile(hc,strmess,Length(StrMess)+1, written,nil)) then
      ShowMessage('laja');
    CloseHandle(hc);
  End;
end;

Автор: maxim1000 15.11.2004, 11:41

первое, что приходит в голову:
когда в качестве PChar используется строковая константа, она автоматически приводится к PChar, может, стоит сделать приведение PChar(Edit1.Text)?

Автор: NetDigger 15.11.2004, 11:47

Пробовал, не помогает - но выводятся кракозябры - зато в любом случае выдает сообщение - это уже прогресс, разбираться буду с кракозябрами

Автор: NetDigger 15.11.2004, 12:24

Разобрался! Перебрал все, что можно, заработало только с AnsiChar =) Если нужно - иходник кину попозжее. Хотя просто почитайте статью про Named Pipes на www.delphimaster.ru (Автор: Игорь Шевченко) - практически все можно перенести и на слоты

Автор: wesadex 22.9.2005, 15:48

В продолжение темы...

Код


      hc:=CreateFile( PChar('\\.\mailslot\MailBox'),
                      GENERIC_READ,
                      FILE_SHARE_READ,
                      nil,
                      OPEN_EXISTING,
                      FILE_ATTRIBUTE_NORMAL,
                      0 );
      if hc= INVALID_HANDLE_VALUE then begin
                                       ShowMessage('zhopa kakaya-to! handle''s dead!');
                                       exit;
                                       end;

       if not GetMailSlotInfo( hc, nil, Mss, @MsgNum, nil) then ShowMessage('Zhopa kakaya-to!');
       if MsgNum  <> MAILSLOT_NO_MESSAGE then
              Begin 
              ReadFile(hc, Message1, 255, BytesRead, nil);
              if Length(Message1)<>0 then ListBox1.Items.Add(Message1);
              End;

Левая программулина создает МэйлСлот и кидает сама же в него инфу...

Приведенным куском кода я пытаюсь прочитать в таймере, что именно она туда кидает... но ничего не выходит... GetMailSlotInfo дает на выходе False. Ошибка "Параметр задан неверно!"
Какой параметр, ткните носом, а?
Если hc:=CreateMailslot(PChar('\\.\mailslot\MailBox'), 0, MAILSLOT_WAIT_FOREVER, nil); поставить перед hc:=CreateFile... эффект тот же...
Я уже просто не вижу где грабли!

NetDigger, может использовать CreateMailslotA вместо CreateMailSlot ?