Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Colaboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #6  
Antiguo 02-09-2007
FFe_ FFe_ is offline
Registrado
 
Registrado: ago 2007
Posts: 8
Poder: 0
FFe_ Va por buen camino
Thumbs up

Gracias Dec, lo que dices es cierto. muy buena observación ;
aquí encontré una página en borland que trata sobre las diferencias entre indy 9 e indy 10:

http://bdn1.borland.com/borcon2004/a...,32160,00.html

a mí me sirvió para comprender un par de cosas... quizás a otros también.
con lo que lei aquí, hice mi primer servidor. que es muy tonto en realidad pero aún así...
Código Delphi [-]
unit server;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,IdBaseComponent, IdComponent, IdCustomTCPServer, IdTCPServer, idcontext, StdCtrls; type TForm1 = class(TForm)
    server: TIdTCPServer;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure IndyConnect(AContext: TIdContext);
    procedure serverExecute(AContext: TIdContext);
    procedure Button1Click(Sender: TObject);
  private     
{ Private declarations }   
public     
{ Public declarations }   
end;

var   Form1: TForm1;  

implementation  {$R *.dfm}  

procedure TForm1.IndyConnect(AContext: TIdContext);
// cuando se produce una conexión, enviar el mensaje 'hola....'
begin          
acontext.Connection.IOHandler.WriteLn('Hola!!!! estás conectado');
end;

procedure TForm1.serverExecute(AContext: TIdContext);
//cuando llega información al servidor, si esta es igual a 'hola' responder...
var text: string;
begin       
     with acontext.Connection.IOHandler do begin           
           text:= readln;           
           if sametext (text, 'hola')
              then                
                  begin                   
                     text:= 'hola.¿que tal?';
                     writeln (text);
                  end;
      end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin //setea el puerto de escucha del servidor y lo abre(escucha)
     server.DefaultPort:=10300;      
     server.active:= true;  end;

end.
lo probe haciendo un telnet al puerto 10300 de 127.0.0.1, aparentemente funciona, pero no me muestra el mensaje 'hola estas conectado' . porque puede ser esto? es por el telnet?
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Compatibilidad entre aplicaciones ASP.NET entre Delphi 8 .Net y Visual Studio.Net kenyamg .NET 0 21-02-2007 07:30:33
Conexión a Interbase a través de internet seldonito Firebird e Interbase 18 27-11-2006 21:12:50
Aplicaciones MySQL a traves de Internet dimony MySQL 5 27-11-2006 01:20:58
conexion DB a traves de internet oscjae Firebird e Interbase 1 30-09-2005 16:54:39
Aplicaciones internet con delphi jgutti Internet 1 09-06-2003 16:49:52


La franja horaria es GMT +2. Ahora son las 02:41:15.


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