Gönderen: xbarakuda
                                                   İnternet bileşenleri TSERVERSOCKET VE TCLİENTSOCKET  
bu bileşenler internet tabında yer almaktadır
Ama direk kurulu olarak gelmez kurmak için component intsall packages tıklayın gelen menude add  diyin  bin dosyasına gelin ve dclsockets70.bpl  paketini secin bukadar
Bileşenler internet tabına yerleşmiş olacaktır
Bu bileşenleri  daha iyi anlamanız için bir örnek yaptım hem server hem client daha doğrusu çok önçe yapmıştım ama size örnek olsun
Not : programı çalıştırdıktan sonra  bir port kaydetmiyi untmayın size bağlanmak istiyen  portu bilmeli artık geliştirmek size kalmış internet üzerinden denedim çalışıyor
procedure TForm1.Image4Click(Sender: TObject);
begin
form2.Show;
end;

procedure TForm1.YARDIM1Click(Sender: TObject);
begin
form3.show;
end;

procedure TForm1.Image6Click(Sender: TObject);
begin
if fontdialog1.Execute then
mesaj.Font:=fontdialog1.Font;
memo1.Font:=fontdialog1.Font;
end;

procedure TForm1.KAPAT1Click(Sender: TObject);
begin
form1.Close;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Address: string;
begin

  if not ClientSocket1.Active then
  begin
    ClientSocket1.Host := '';
    ClientSocket1.Address := '';
    Address := edit1.Text;
    if inet_addr(PChar(Address)) = INADDR_NONE then
      ClientSocket1.Host := Address
    else
      ClientSocket1.Address := Address;
    ClientSocket1.Port := spiPort.Value;
  end;
  ClientSocket1.Active := not ClientSocket1.Active;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if clientsocket1.Active then
clientsocket1.Socket.SendText('kulanıcı1::'+ mesaj.Text);
 memo1.Lines.Add(mesaj.Text);
mesaj.Clear;

end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.Lines.Text:='bağlantı koptu';
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.Lines.Text:='bağlantı saglandı';
end;

procedure TForm1.ClientSocket1Connecting(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.Lines.Text:='bağlanıyor';
end;

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
memo1.Lines.Text:='bir hata oluştu';
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.Lines.Add(socket.ReceiveText);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
serversocket1.Active:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
button2.Show;
  button1.Enabled:=false;
  if ServerSocket1.Active then
  begin
    ServerSocket1.Close;
    memo1.Lines.Text:='baglantı koptu';

    Exit;
  end;
  ServerSocket1.Port := spinedit2.Value;
  ServerSocket1.Open;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
button2.Hide;
timer1.Interval:=100;
timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
x:integer;
begin
x:=form1.Height;
form1.Height:=x+13;
 if x>550 then
 timer1.Enabled:=false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
button1.Enabled:=true;
button2.Hide;
serversocket1.Active:=false;
end;

procedure TForm1.mesajKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
  bitbtn2Click(Sender);
end;

procedure TForm1.ServerSocket1Accept(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.Lines.Add(socket.RemoteAddress+'bağlandı');

end;

end.


indirmek için tıklyın

nasıl bir hata veriyor hata söylersen yardimci olurum

chat programını tekrardan test ettim calışıyor email gelince hotmail yahoo gibi servislerden email atamyayınca pek anlamı yok gibi geliyor

Kullandığın IDE D7 den yukarı ise yanlış hatırlamıyorsam D7 den sonra standart olarak kurulu gelmiyor bir kaç alternatifin var birincisi Indy veya ICS den benzer bilşenleri kullanmak yok illa ben onları istiyorum diyorsan,bilşen kütüphanesini manuel olarak kurman gerekir onu nasıl yaparım dersen? kullandığın IDE de  menuden Component->Install Packages... seçip Add... ile kullandığın IDE nin Bin directory sindeki dclsockets100.bpl kütüphanesini şeçmelisin. o kadar

dediğinizi yaptım oldu yanlız dclsockets100.bpl die bi dosya yoktu dclsockets70.bpl vardı sanırım benimki delphi 7 ondan heralde

demek ki

acaba bu programa kişi listesi nasıl ekleriz...yani giren herkes listbox ta vaya herhangi bir bileşen de listelenir..kişiye çift tıklattığımızda onunla yazışırız.... mirh gibi ..şimdiden teşekkğr ederim...