enviar mensajes en la red...
 

hola a todos los del club.
tengo una duda, existe la posibilidad de enviar mensajes de una pc a otra, es decir hacer una pequeña aplicacion grafica en delphi que me permita enviar mensajes por la red, quizas usar ciertos comandos.
esto es parecido cuando se puede enviar mensajes en xp, o 2000 prof por medio del simbolo de sistema (dicho de otro modo con msdos).

gracias

Ese es el código que uso yo para tal finalidad.

Código Delphi [-]
procedure TFormStrogoff.Button1Click(Sender: TObject);
   procedure EnviarMensaje( ServidorRemoto,Destinatario,Remitente,Mensaje : String);
   var
     sTemp    : string;
     Manejador: THandle;
     Cuantos  : DWord;
   begin
     sTemp := '\\'+ServidorRemoto+'\mailslot\messngr';
     Manejador := CreateFile( PChar(sTemp),GENERIC_WRITE,FILE_SHARE_READ,
                          NIL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);

     If Manejador = INVALID_HANDLE_VALUE then
       raise Exception.create( 'Error abriendo el manejador');

     sTemp:=Remitente+#0+Destinatario+#0+Mensaje;
     try
       Cuantos := 0;
       If (NOT WriteFile(Manejador,Pchar(sTemp)^,Length(sTemp),Cuantos,NIL)) or
          (Cuantos <> Length(sTemp)) then
          raise Exception.create( 'Disculpe, podría decirme dónde encontrar la máquina '+edPC.Text);
     finally
       CloseHandle(Manejador);
     end;
   end;
var
Mensajito: Widestring;
 begin
    if ( UpperCase(edPC.Text) <> 'GRUPO_DESCANSO' ) and ( UpperCase(edPC.Text) <> 'WORKGROUP' ) and
       ( UpperCase(edPC.Text) <> 'GRUPO_TRABAJO' ) and ( UpperCase(edPC.Text) <> 'OTRO_GRUPO' ) then
    begin
      Sleep( SpinEdit1.Value * 1000 );
      EnviarMensaje( edPC.text,edDestinatario.text,
                  edRemitente.text,edMensaje.Text);
    end
    else showmessage('No está permitido enviar mensajes a todo el grupo');
 end;

Código mensajes por red
 

Hola Emilio, no he probado tu código, pero revisándolo observo que declaras la variable Mensajito, pero no veo que luego la utilices ¿falta algo?.

Saludos.

Pues no falta nada, más bien le sobra, esa declaración era para intentar paliar que los mensajes llegan con extraños caracteres cuando se hace uso de acentos y similares. Por cierto en ese código sigue pendiente y todavía usa edMensaje.Text en lugar de Mensajito.

[quote=uper;77277]hola a todos los del club.
me marca este error cuando compilo el codigi
comparing signed types : widend both operands