Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Go Back   Foros Club Delphi > Principal > Internet
Register FAQ Members List Calendar Guía de estilo Today's Posts

Colaboración Paypal con ClubDelphi

 
 
Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 11/12/2007
angelp4492 angelp4492 is offline
Miembro
 
Join Date: Dec 2007
Posts: 99
Poder: 0
angelp4492 cantidad desconocida en este momento
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
Reply With Quote
 



Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

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


All times are GMT +2. The time now is 03:33.


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
Copyright 1996-2007 Club Delphi