Hola,
me he propuesto empezar con las Indy, poruqe según he leido dan mas soporte. No se si será cierto, pero es igual, me decido por las Indy
Tengo Delphi 7 y he encontrado un programa demo de una especie de Cliente-Servidor, no se muy bien que es lo que hace.
Entre todo el código, pude distinguir (No me entero de nada
) el siguiente código y entendí algo.
Lo que no se es donde hay que introducir el "Command" en este caso, (creo que es esa la variable que me permita mandar texto, ¿no?) ni donde queda escrito lo que yo escribo... no se si me explico
Bueno, el código es este:
Código Delphi
[-]
var
Command : String;
begin
Command := AThread.Connection.ReadLn;
Command := uppercase(Command);
if Command = 'TIME' then
AThread.Connection.WriteLn(FormatDateTime('hh:nn:ss',now))
else if Command = 'DATE' then
AThread.Connection.WriteLn(FormatDateTime('dd/mmm/yyyy',date))
else if Command = 'TICKCOUNT' then
AThread.Connection.WriteInteger(GetTickCount)
else if Command = 'QUIT' then
begin
AThread.Connection.WriteLn('Goodbye!');
AThread.Connection.Disconnect;
end
else AThread.Connection.WriteLn('Command not recognised - try again!')
end;
Lo que yo quiero hacer es una pequeña aplicación que me permita controlar el ordenador en el que esta el servidor, y aunque muchos no me creais... de momento no es para un troyano, ya que hacer eso supone tener mucha mas experiencia de la que yo tengo
.
Un saludo, y gracias de antemano.
PD: Estoy abierto a cualquier tipo de información que me puedan proporcionar...
PD 2: Perdonadme por no identar, pero no se como es... Me dijeron algo del Ctrl + I , pero cuando le doy a eso no hace nada...