9 respuestas en este tema

[Caral]

Hola
Vi este ejemplo en algun lado.
Se supone que envia un mensaje a otro ordenador en red, pero no lo hace.
Que falta, sobra o anda mal?.

delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 procedure MandaWinpopup( ServidorRemoto,
                           Destinatario,
                           Remitente,
                           Mensaje : String);
  var
    sTemp   : string;
    Mango   : THandle;
    Cuantos : DWord;
  begin 
    sTemp := '\\'+ServidorRemoto+'\mailslot\messngr';
 
    Mango := CreateFile( PChar(sTemp),
                         GENERIC_WRITE,
                         FILE_SHARE_READ,
                         NIL,
                         OPEN_EXISTING,
                         FILE_ATTRIBUTE_NORMAL,
                         0);
 
    if Mango = INVALID_HANDLE_VALUE then
      raise Exception.create( 'Error abriendo el slot'+#13+
                              'Error opening the slot');
 
    sTemp:=Remitente+#0+Destinatario+#0+Mensaje;
    try
      Cuantos := 0;
      if (NOT WriteFile(Mango,
                        Pchar(sTemp)^,
                        Length(sTemp),
                        Cuantos,
                        NIL)) or 
         (Cuantos <> Length(sTemp)) then
         raise Exception.create( 'No puedo mandar el mensaje'+#13+
                                 'Cannot send the message');
    finally
      CloseHandle(Mango);
    end; 
  end;
 
begin 
  MandaWinpopup( 'Asistente',           {Remote PC}
                 'carlos',     {Message Receiver}
                 'De Manolo',       {Message Sender}
                 'Invitame a un cafe...');  {Message text}
 
end;
 
 
end.

Saludos

[Rolphy Reyes]

Saludos.

Si tu aplicación utiliza BD porque no lo haces a través de ella, a lo que me refiero que tengas una tabla con los campos necesarios y filtres los mensajes por usuarios y/o PC.

Y si usas Firebird con la posibilidad de los eventos puedes indicarle con "algo" al usuario de que tiene un mensaje nuevo.

[seoane]

¿El otro ordenador tiene el servicio de mensajes activado? El las ultimas versiones de windows venia desactivado por defecto porque algunos lo utilizaban para enviar spam

[egostar]

Hola

Lo que yo creo es que esto tiene que ver mas con el Sistema Operativo, para probar esto has lo siguiente

INICIO, EJECUTAR, cmd

En la pantalla tendrás que poner

NET SEND {ip|nombre maquina} {mensaje}

Si esto lo hace quiere decir que hay un problema en el programa si no lo hace y te muestra un error entonces es la seguridad de tu windows.

Salud OS

[Caral]

Hola
me regresa esto:

Microsoft Windows XP [Version 5.1.2600]
© Copyright 1985-2001 Microsoft Corp.

C:\Documents and Settings\Carlos Gutierrez>NET SEND {Asistente} {mensaje}
An error occurred while sending a message to {ASISTENTE}.

The message alias could not be found on the network.

More help is available by typing NET HELPMSG 2273.


C:\Documents and Settings\Carlos Gutierrez>

saludos

[egostar]

Yeap, es problema de la seguridad de windows, ahora, no me acuerdo como activarlo, pero nuestro amigo seoane nos podría informar como

Salud OS

PD, aunque corras el riesgo de que te lleguen ventanas de SPAM desde internet

Edito: Me parece que no está bien la forma como lo estás enviando debe ser asi

NET SEND Asistente Hola como estas

o

NET SEND 192.168.1.1 Hola como estas

[Caral]

Hola
A mi no me importaría recibir estos spam.

Saludos

[egostar]

jejejeje, lo malo amigo es que no es ese tipo de SPAM, son ventanas con propaganda, bueno eso era hace mucho cuando comenzaron, ahora no se si ya estarán mas sofisticados

Salud OS

[Fenareth]

Hola
A mi no me importaría recibir estos spam.

Saludos

Tranquilos bonitos !!!  ...

Sigamos con el tema que nos atañe (de dónde saqué esa palabra ?    )

[enecumene]

Control Panel->Administrative Tools->Services->Buscar Messenger y activar el servicio y listo.

Saludos.