![]() |
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 |
Revisa la Guia de estilo y utiliza TAG's cuando escribas código Delphi.
|
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