Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Ayuda con direccion no-ip (https://www.clubdelphi.com/foros/showthread.php?t=51281)

angelp4492 11-12-2007 16:57:15

Ayuda con direccion no-ip
 
Hola como estan..:-))

bueno estoy haciendo una aplicacion cliente servidor, cuando pongo la ip mia en el cliente tengo conexion con el cliente, pero cuando pongo mi cuenta de no-ip
que seria (nombre.no-ip.biz) me da un error de sinconosmo.
aqui les dejo el codigo del cliente en delphi 7 opr si me pueden dar una ayuda
gracias.

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp;
type
TForm1 = class(TForm)
Memo1: TMemo;
Edit1: TEdit;
Button1: TButton;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Button2: TButton;
Button3: TButton;
ClientSocket1: TClientSocket;
procedure Button2Click(Sender: TObject);
procedure ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocket1Connecting(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);

begin
clientsocket1.Address :=edit2.Text ;
clientsocket1.Active :=true;
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Text:='Conectado';
end;
procedure TForm1.ClientSocket1Connecting(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Text :='Conectando'
end;
procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Text :='Desconectado'
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
clientsocket1.Close;
memo1.Text :='Desconectado'
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
clientsocket1.Socket.SendText(edit1.Text );
end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add(socket.ReceiveText )
end;
end.

gracias de antemano

Neftali [Germán.Estévez] 11-12-2007 17:53:28

Revisa la Guia de estilo y utiliza TAG's cuando escribas código Delphi.

duilioisola 11-12-2007 17:54:24

Primero:
- para que sea más fácil de leer pon el código delphi dentro de los marcadores (Tags) [delphi ] y [ /delphi ]

Segundo:
Puede ser que el componente no acepte direcciones que no sean IP (AAA.BBB.CCC.DDD)
Quizás deberías probar con algún componente que la traduzca con un acceso a un DNS.


La franja horaria es GMT +2. Ahora son las 19:54:57.

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