![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Register | FAQ | Members List | Calendar | Guía de estilo | Today's Posts |
|
|
Thread Tools | Search this Thread | Display Modes |
|
#1
|
|||
|
|||
|
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 |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Obtener direccion MAC de mi PC | artemisa | Varios | 11 | 07/10/2010 18:31 |
| Direccion mac | yekkita | Internet | 3 | 17/08/2005 09:20 |
| Direccion de ip (ahora si) | Daniel Bossi | Internet | 1 | 18/02/2005 01:20 |
| Direccion MAC | PTW | Varios | 1 | 28/07/2004 10:59 |
| Conectar Con Direccion Mac | carlosept | Internet | 1 | 05/06/2003 00:10 |
|