Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 23-09-2004
Avatar de k4sp3r
k4sp3r k4sp3r is offline
Miembro
 
Registrado: sep 2004
Posts: 14
Poder: 0
k4sp3r Va por buen camino
Unhappy Ayuda con las Indy por favor :'(

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...
__________________
"Parad el mundo que me bajo"
Grouxo Marcs

Última edición por k4sp3r fecha: 23-09-2004 a las 15:46:35.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 23:16:58.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi