Sockets.

[tetrahydrex]

Salutations,

I have written an Apllication (that uses sockets)

This is a general question.

I told it to connect to another server that was running (localhost) and it successfully connected and was able to send the messages.

But I can't seem to use it over the internet, i tried it with a friends echo server and it failed (but my friends echo server is the only one i know of to test it with, and is the only one i tested it with over the internet, could someone please help me?

I am using Delphi 7 Enterprise.

Thanks.

 

[tetrahydrex]

here's the code, which works fine on the local network, but not the internet.

procedure TForm1.TEMPClick(Sender: TObject);
begin
txcont1 := TXTYPE1.Text;
TSOCK1.RemotePort := ESOCKPORT1.Text;
TSOCK1.RemoteHost := ESOCKHOST1.Text;
TSOCK1.Active := true;
TSOCK1.Connect;
TSOCK1.Open;
end;

procedure TForm1.Button1Click(Sender: TObject);
var test: string;
begin
TSOCK1.Sendln(txtype1.Text);
TXM1.Lines.Add(txtype1.Text);
TXTYPE1.Clear;
end;