![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#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 |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Obtener direccion MAC de mi PC | artemisa | Varios | 11 | 07-10-2010 18:31:28 |
Direccion mac | yekkita | Internet | 3 | 17-08-2005 09:20:14 |
Direccion de ip (ahora si) | Daniel Bossi | Internet | 1 | 18-02-2005 01:20:37 |
Direccion MAC | PTW | Varios | 1 | 28-07-2004 10:59:17 |
Conectar Con Direccion Mac | carlosept | Internet | 1 | 05-06-2003 00:10:17 |
![]() |
|