Client/server

[fatih_muti]

Client/Server İlişkisini daha önce hiç denemedim. Birkaç gündür deniyorum ama yapamıyorum Kodlar aşağıda hata nerde. Yada nasıl yapmam gerekio.




Client Kodları

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin
tcpclient1.remotehost:='localhost';
tcpclient1.Remoteport:='5110';
tcpclient1.Connect;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
tcpclient1.Sendln(edit1.text);
end;

Server Kodları

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin
tcpclient1.localhost:='localhost';
tcpclient1.localport:='5110';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.Items.Add(tcpclient1.Receiveln());
end;

Değiştirildi: FreeMan35
Bold değil Code seçerek kod kısımlarını belirtin

[freeman35]

Forumda bu konular defalrca geçti, Indy Demolarını incelersen orda her component ın kullanıldığı basit ve açıklayıcı demolar var. Anahtar kelimen Indy

Kolay gele