Форум: "Сети";
Текущий архив: 2004.10.10;
Скачать: [xml.tar.bz2];
Внизсообщение Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.04 c