uzaktaki pc lere bağlanamıyorum(indy idtcp-server/client)

[G.Arkas]

ben şu sıralar bir mağaza için sipariş alıp verebileceği tipik serever/client güdümlü bir program tasarlamaktayım fakat!!

bir türlü karşı pc ile bağlantı sağlayamadım.

serveri ve veri tabanını pc me kuruyorum arkadaşımın bilgisayarında clientimi çalıştırıyorum ve bağlantı almaya çalışıyorum fakat hiç bağlanamıyorum;hemen belirteyim;

1)port fowarding işlemleri tamam.
2)server aktif localde çalışıyor ancak uzak pc den bağlanamıyorum

örnek program;(text veri aktarımı);

DENEME AMAÇLI BUNU YAZDIM FAKAT BUNDA BİLE BAĞLANTI SAĞLANAMIYOR BASİT BİR VERİ AKTARIMI(text)

--Client--

procedure TForm1.ClientConnected(Sender: TObject);
begin
label1.Caption:='Bağlanıldı';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
client.Host:=edit1.Text;
client.Port:=1565;
client.Connect;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
s:string;
begin
client.WriteLn('deneme');
if client.ReadLn='deneme:' then
begin
listview1.Items.Add;
begin
s:=client.ReadLn;
listview1.items[0].subitems.Add(s);



end;

end;
end;
END.


--Server--

procedure TForm1.FormCreate(Sender: TObject);
begin
server.DefaultPort:=1565;
server.Active:=true;
end;

procedure TForm1.ServerExecute(AThread: TIdPeerThread);
var
a,deneme:string;
begin
if athread.Connection.Connected then
begin
a:=athread.Connection.ReadLn;
if a='deneme' then
begin
athread.Connection.WriteLn('deneme:');

loglar:=memo1.Text;
athread.Connection.WriteLn(deneme);
end;

end;

end;
end.

Kodda hata yok gibi görünüyor program çalışıyor sorunlar ise;

1)localde bağlantı var ancak veri aktarımı başarısız
2)uzak pc de bağlantı yok doğal olarak veri aktarımı yok (0+0=0)

kullandığım comp. İNDY idtcpclient/server
dediğim gibi portlarıda açtım.
indy versiyon(9.0)

şimdiden çok teşekkürler...

[ikutluay]

firewall u kontrol ettinizmi? port uygunmu?

[G.Arkas]

evet kontrol ettim portlarda uygun açık ama bağlantı yok??

[sadettinpolat]

baglanilacak makinenin ip si kodun herhangi bir yerinde atanmamis.
problem bu olabilir mi ?
bazen basit seyler gozden kacabiliyor.

[unicorn64]

evet
Client.Host a atama yapılmış ancak uzaktan bağlanmaya çalışınca Bilgisayar adı yeterli olmayacaktır ip ye atama yapıp bi deneyin

[G.Arkas]

bu kez client ve port u direk verdim edit kullanmadan yine sonuç yok.

client.host:='88.200.241.17';
client.port:=2222;

ve birde hata verdi porla ilgili port kullanımda tarzında sanırım can use port gibi ancak o kontrol ettim port kullanılmıyor!!
acaba ben modemi delphiyi mouse yi klavye yi monitörü falanmı değiştirsem
neden olmuyor çözemedim?

[unicorn64]

hatayı yazsaydın beki daha kolay olurdu çözüme gitmek. bi de clientin host dan başka ip gibi bi özelliği var mı bi bakarmısın belki host ip adresi yemiyodur. tam bilemiorum ama acaba??

[G.Arkas]

port hatasını çözdüm ama bağlantı hala yok.ilk o aklıma geldi ama baktım host dışında ip gibi bir eventi yok.bu tarz bir özelliğde göremedim.yukarıda verdiğim kısa kodları denermisiniz acaba siz bağlantı sağlayabilecekmisiniz?

[askarad]

modeminin modeli nedir?