enviar mensajes en la red...

[uper]

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

[*Emilio*]

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;

[S.M.S.]

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.

[*Emilio*]

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.

[sgarciam]

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