Hello and happy new year ( 2000 )!!!
i'am using "NMMsg1" internet component in Delphi
i have computers on LAN, i have build client/server application that is listening. I want from my computer to send a message to many computers on the LAN with this component, do i have to make "for loop" or what exception if computer not answer.
that would be great if i can let the "NMMsg1" component read from listbox or something. Thanks
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
No i will be able to use "NMMsg1" component because i'm going to do lots more with my program e.g read and write to registry and much more, this is just one part ( send message to listener ( computer on LAN )
Client sends and Server Receive with variable "sMsg" and the code is like that "ShowMessage(sMsg);"
i just want to be able to send to many computer
Thanks
Karen
The NMMsg component, in combination with it's server, is a nice way to accomplish what you are trying to do. The NMMsg can only send a message to one server at a time, so I guess the answer is yes, you would have to make a for-loop.
The server returns an OK message if the message was received, so check the result of PostIt to make sure the message got throuhg ok, and if not, take the necessary steps.
I had a simiilar need once, but since I dont need much more than sending a message, I decided to use NetBEUI's broadcast capabilities (WinPopup), and so on NT I wouldn't even need a client app, cause it has a built in Messenger service. The NetBEUI interface also allows group broadcasts etc.
The Messenger service in NT, is similar to the Winpopup application in 9x. It simply opens a dialog showing the text of the message arrived. Like Winpopup, it is possible to replace the Messenger service with a different application, but since it's a service, you would have to shut it down before the other app would be able to get messages.
It should be a simple for loop which changes the host property of the object, and calls PostIt. PostIt will not return until finish, either with an OK result, or something else. If you get something else, take care of it, if not, continue:
For I := 0 to 3 do
begin
NMMsg1.Host := HostArray[I];
if NMMsg1.PostIt <> 'OK' then
{Take care of it}
end;
hi,
for example look here :
http://www.jgsoftware.com/
( very useful site for nt people )
at mez.zip (example of using the nt messiging service via netapi32.dll.
the actual small code that does the work is in unit2 of the project.
you can also use:
http://home8.inet.tele.dk/
this is a client/server example for win9* or nt.
a few errors on compiling (integers to cardinal etc..cause it was made in d3 but the demo works well enough when installed.you just need to open the slot ,send the message close the slot ,change client name from \\pc1 to \\pc2 then reopen slot and send message ,close slot ...you know what i mean create a small loop thingy ;-)
sorry if ive just added to the confusion of what comps to use ;-)
Regards Barry
ok i try and make one but its possible it will be tuesday night gmt before i get chance to post it(i start work in 6 hrs but only for 2 days then i have proper freetime)
also you will have to test for me to see if it works cause i only have 2 pc's on network (win9*)
oh and which comps you prefer ?
i prefer: mailslot.zip ones (mainly because my nt isnt on network therefore cant test the nt messaging ones)
ok, i thought i tackle this now :-)
i used the mez.zip from jgsoftware link.
i changed the form name to form1
the combobox name to combobox1 and the memo i named memo1 for making it easier to read :untested but should work to sen dsame message to all pcs listed in combobox , this is the button click event:
procedure TForm1.btnSendClick(Sender
var
i, res: Integer;
pcs_count : integer;
begin
for pcs_count := 0 to combobox1.Items.Count -1 do begin //start loop
if Combobox1.Text <> '' then
begin
StatusLabel.Font.Color := clBlack;
StatusLabel.Caption := 'Wait... ';
Update;
if Combobox1.Items.IndexOf(Co
Combobox1.Items.Add(Combob
res := SendMsg(Combobox1.Text,'',
if res = 0 then
Form1.StatusLabel.Font.Col
else
Form1.StatusLabel.Font.Col
case res of
0 : Form1.StatusLabel.Caption := 'The message is sent';
87 : Form1.StatusLabel.Caption := 'The parameter is incorrect';
123 : Form1.StatusLabel.Caption := 'syntax is incorrect';
2273 : Form1.StatusLabel.Caption := 'Can not find '+Form1.Combobox1.Text;
else Form1.StatusLabel.Caption := 'Error: '+IntToStr(res);
end;
end;
end; //end loop
end; //end procedure
can you test it and see if it works
cheers
Barry
Business Accounts
Answer for Membership
by: hubdogPosted on 2000-01-01 at 08:15:35ID: 2317667
I think may be you can use TNMUDP to broadcast msg .You can set the nmudp.remotehost:=255.255.