Dotaz: Monitorování komunikace mezi procesy

[PetrHL]

Dobrý den,

pokouším se komunikovat s jedním programem pomocí  msgget a msgrcv. Nějak mi to nechodí a bohužel netuším jestli je chyba u mě nebo v aplikaci, která by měla poslat data. Je nějaká možnost jak tuto komunikaci monitorovat? Nevím jak zjistit jestli daná app data vůbec odeslala. Děkuju za případnou radu.

Petr

Odpovědi

[Semo]

Nieco sa da vidiet sledovanim suboru cat /proc/sysvipc/msg (napr. pomocou watch). Nie je to uplne odpocuvanie, ale da sa zistit cas posledneho zapisu a pod.

[PetrHL]

Díky moc, to pomohlo. Zjistil jsem, že aplikace odesílá data a jak jsou velká.

Použil jsem to takto:

watch -d cat /proc/sysvipc/msg

Bohužel se mi stále data nedaří přijímat. Nikde jsem nenašel nějaký rozumný příklad. Problém může být v tom, že se něco takového snažím udělat ve freepascalu.

Zdroják je zde:

var
  myid : LongInt;
  rcvdm : TMSGbuf;
  s : String = '';
  i : Integer = 0;
  e : LongInt;
begin
  myid  :=   msgget(1238,0666  or  IPC_CREAT);
  Writeln(myid); //
  e := msgrcv(myid, @rcvdm, 1024, 0, 0 or IPC_NOWAIT);
  if e = MSG_NOERROR then
  begin
    for i:=0 to Length(rcvdm.mtext)-1 do
      s:= s + rcvdm.mtext[i];
    Memo1.Lines.Text := s
  end
  else
    Writeln(e)
end;

Bohužel už získání samotného myid nedopadne dobře. Stále se vrací -1. Ve zdrojáku v C je toto:

msgid = msgget ((key_t) 1238, 0666 | IPC_CREAT);

a chodí jim to.

Nenapadá Vás co dělám blbě?

Petr

[chochi]

Ahoj,

V Pascalu jsem neprogramoval uz dlouho, takze nevim jestli to neni blbost - cislo zapsane v C zacinajici nulou je v osmickove soustave - nejsem si jist zda je to tak i v Pascalu.

Takze bych zkusil misto 0666 napsat 438, nebo 0x186 (nebo jak se to pise).

[Semo]

Ked som sa hraval s msgqueues, tak castym problemom po chvily hrania bolo, ze starymi nezrusenymi frontami som vycerpal maximalny pocet queues v systeme. Takze:

1.) pomocou utility ipcrm premazat vytvorene a opustene fronty (nezanikaju po skonceni programu tak ako deskriptory). Zaroven pri konceni vlastnych programov korektne mazat vytvorene IPC prostriedky.

2.) zvacsit pocet moznych front v systeme: zapisat kernel.msgmni = 512 do /etc/sysctl.conf alebo spustit sysctl -w kernel.msgmni=512

3.) po zfailovani msgget sa pozriet do globalnej premennej errno (ako sa do nej pozera v Pascale neviem) a zistit presnejsi kod chyby.

[PetrHL]

Děkuju moc!

Smazání fronty pomohlo, stejně tak i zapsání číšla v dekadickém tvaru. Trošku jsem se posunul. Teď program padne na hubu  na řádku, kde je ten for i:=0 atd. Padá to i když si chci hodnotu vypsat najednou pomocí Writeln. Jdu zkoumat dál.

Moc díky za rady, naučil jsem se něco nového.

Petr

[pht]

Můžete použít utility strace a ltrace. A samozřejmě nástroj gdb.