Synapse Multicast and Linux
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
ChristianH · 2019-02-27 16:41

Hi,

i do have a question, maybe somebody can help me with this. For a
project i need to listen to a Multicast Port. My Code looks like this:

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TLineupManager.Execute;var  Socket: TUDPBlockSocket;  Len: integer; 
LLS_table: PLLSHeader;  Buffer: TUDPBuffer; //Max Size of UDP
Packetbegin  Socket := TUDPBlockSocket.Create();  try    Socket.Family
:= SF_IP4;    Socket.bind('0.0.0.0', FPort);   
Socket.AddMulticast(FHost);     while not terminated do    begin     
if Socket.CanRead(33) then      begin        Len :=
Socket.RecvBufferFrom(@Buffer[0], SizeOf(Buffer));       
PerformData(Buffer, Len);             end;       sleep(0);    end; 
finally    Socket.Free;  end;end;
This runs fine under Windows and is also tested under Android and iOS
using Delphi. Anyhow it does not receive any data under linux and i
have no idea why.

Christian

----------------------------------------------------------------------
Mukatai · 2019-09-02 15:37

Hello,

Did you find a solution ?

I have the same problem. My code work on Windows but not on linux i
can't pass Socket.AddMulticast(). If i use the debugger on
TUDPBlockSocket.AddMulticast(MCastIP: string), it block on
Multicast.imr_multiaddr.S_addr := swapbytes(strtoip(MCastIP)). Error
message : RunError(201).

I use this code for UPnP, i have an other UPnP program build with
MiniUPnP and it work perfectly.

Thanks.
@+

----------------------------------------------------------------------
Mukatai · 2019-09-02 16:07

small clarification: The code work sometimes with Release mode but
never with Default/Debug modes. (Only on Linux, on Windows it works in
all modes)