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
|