Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.10;
Скачать: CL | DM;

Вниз

сообщение   Найти похожие ветки 

 
rosl   (2004-07-30 03:23) [0]

Как послать сообщение всем пользователям в локальной сети.
Нужно, чтоб выходило просто, как

showmessage("Ok");


 
Rouse_ ©   (2004-07-30 09:29) [1]

net send
NetMessageBufferSend


 
Vetek_2   (2004-07-30 12:58) [2]

код из моей проги:

type TNetMessageBufferSend = function (ServerName, MsgName,FromName:PWideChar; Buf:Pointer;BufLen: DWord):word; stdcall;

function NetSend(Host, Msg, ot: String): boolean;
var Error:word;
PWCHost,PWCMsg,otp: PWideChar;
Hlib: Cardinal;
NetMessageBufferSend: TNetMessageBufferSend;
begin
@NetMessageBufferSend := nil;
HLib:=LoadLibrary("netapi32.dll");
if HLib=0 then messagebox(0,"error load api","error",0);
if HLib<>0 then
begin
@NetMessageBufferSend:=GetProcAddress(HLib,"NetMessageBufferSend");
if @NetMessageBufferSend=nil then messagebox(0,"error load api 2","error",0);
if @NetMessageBufferSend<>nil then
begin
try
Error:=1;
GetMem(PWCHost, 2*Length(Host)+2);
GetMem(PWCMsg, 2*Length(Msg)+2);
GetMem(otp, 2*Length(ot)+2);
StringToWideChar(ot, otp, Length(ot)+2);
StringToWideChar(Host, PWCHost, Length(Host)+2);
StringToWideChar(Msg, PWCMsg, Length(Msg)+2);
Error:=NetMessageBufferSend(nil, PWCHost, otp, PWCMsg, 2*Length(Msg));
finally
FreeMem(PWCHost);
FreeMem(PWCMsg);
Result := (Error = 0);
end;
end;
end;
FreeLibrary(HLib);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Caption:="жди, мессаги идёт ...";
if not  NetSend(edit1.Text, edit2.Text,edit3.Text)
then MessageBox(form1.handle,Pchar("Error # "+inttostr(GetlastError)),"Error",0);
button1.Caption:="ПослАть !";
end;


 
Vixen   (2004-07-30 13:09) [3]

net send 95/98win не очень-то и поддерживается...


 
Rouse_ ©   (2004-07-30 14:01) [4]

Ну тогда мэйлслотами на \\имя компа\mailslot\messngr


 
OSokin ©   (2004-07-30 20:45) [5]

WinExec("net send /domain:WorkGroupName Your Message",0);



Страницы: 1 вся ветка

Текущий архив: 2004.10.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
4-1094556875
Apolo
2004-09-07 15:34
2004.10.10
Обмен данными между двумя программами через SendMessage


14-1095429006
DeadMeat
2004-09-17 17:50
2004.10.10
HDD Image


4-1094276415
Гаврилов В.А.
2004-09-04 09:40
2004.10.10
Как построить диаграммы к расчетам


14-1095340645
Программер_
2004-09-16 17:17
2004.10.10
Кто найдет ошибку?


3-1095263457
Surrender
2004-09-15 19:50
2004.10.10
DateTime в формате String в базе Access