Cita:
Empezado por totote
Hola foro!!!
Ando en busca de materia que explique como hacer un programa que se comunique con otro via red, tenia ganas de aprender pero no encuentro casi nada, que me explique, en pricipio queria hacer algo que mande un texto de un lado y mostrarlo del otro, se puede, como lo tengo que buscar.
Saludos.
|
La opcion óptima es utilizar Sockets... para aprender acerca de ello busca en el foro dicha palabra.
Para variar te dare un ejemplo usando MailSlots;
Equipo1 (servidor):
Código Delphi
[-]uses SysUtils, Windows; {$apptype console}
var
Handle, Dummy: Cardinal;
Buffer: array [0..399] of Char;
begin
SetConsoleTitle('Esperando un nuevo mensaje de algún equipo...');
Handle := CreateMailslot('\\.\mailslot\prueba', 0, MAILSLOT_WAIT_FOREVER, nil);
ReadFile(Handle, Buffer, SizeOf(Buffer), Dummy, nil);
CloseHandle(Handle);
WriteLn(string(@Buffer));
ReadLn;
end.
Equipo2 (cliente):
Código Delphi
[-]uses SysUtils, Windows; {$apptype console}
var
Handle: Integer;
Line: string;
begin
Write('Ingrese el mensaje a ser "difundido": ');
ReadLn(Line);
Handle := _lopen('\\*\mailslot\prueba', OF_WRITE);
_lwrite(Handle, @Line[1], Length(Line));
CloseHandle(Handle);
end.
El ejemplo anterior hace broadcast (envia a todos los equipos de la LAN), el mensaje. Son aplicaciones de consola. Pero te dará una idea de cómo
enviar mensajes.
Si deseas enviar a un equipo determinado; reemplaza el asterisco por el nombre del equipo.
Saludos
Edito: Es mi impresión o este hilo debería estar en
Redes