Ayuda con conexion por internet

[Carlos Hurtado]

Es probable que tu problema sea que no te estas conectando a tu IP Real. Para eso agrega esta rutina que te deja en Edit1 la IP real del Servidor.


Coloca en una Form un Componente Indy Clients TidHTTP , un TButton y un TEdit.


procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
x,s:ansistring;
begin
try
x:=IdHTTP1.Get('http://checkip.dyndns.org');
i:= AnsiPos('Address:',x);
i:=i+9;
while x[i]<>'<' do
begin
s:=s+x[i];
inc(i);
end;
Edit1.Text:=s;
finally
end;
end;


Esto puedes hacerlo con un programa que este en el PC Servidor y lo ejecutas una vez conectado a Internet y te dara tu IP Real la cual puedes comunicar por E-Mail a los Clientes.

Todo esto con Delphi 7.



Ojala te sirva.