Tam Sürümü Göster: İnternet Bileşenleriyle Chat Programı
Sayfalar: 1
İnternet Bileşenleriyle Chat Programı Gönderen: xbarakuda Tarih: 08 October 2005 19:26:01
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
indirmek için tıklyın
Ynt: İnternet Bileşenleriyle Chat Programı Gönderen: mrblackman Tarih: 18 July 2006 00:52:41
teşekkür ettim, elinize saglık... bi iki arkadasla denedik baglantı kuramadık ama yine de sagolun... bi seferinde onlarda bi seferinde de bende bagladı yazdı aynı anı tutturamadık bir türlü... tuttursak calışır zannımca...
Ynt: İnternet Bileşenleriyle Chat Programı Gönderen: xbarakuda Tarih: 18 July 2006 14:32:29
nasıl bir hata veriyor hata söylersen yardimci olurum
Ynt: İnternet Bileşenleriyle Chat Programı Gönderen: mrblackman Tarih: 18 July 2006 18:03:41
Henüz tam olarak hata şudur diyemiyorum. Cünkü farklı bir bilgisayarla hiç aynı anda "baglandı" yazısını göremedik ki sonrasında calışıyor mu diye bakabilelim. Bundan önce aslında mail göndermek konusunda yardımcı olsanız cok daha sevinirim. Örnekler var sitede fakat delphi 7 ile calıştıramadım hiçbirisini...
Ynt: İnternet Bileşenleriyle Chat Programı Gönderen: xbarakuda Tarih: 19 July 2006 14:33:20
chat programını tekrardan test ettim calışıyor email gelince hotmail yahoo gibi servislerden email atamyayınca pek anlamı yok gibi geliyor
Ynt: İnternet Bileşenleriyle Chat Programı Gönderen: sanalboq Tarih: 06 June 2007 17:35:39
çok çok ozur dilerim ama bende internet tabında TSERVERSOCKET yok TcpClient var TSERVERSOCKET nasıl bulabilirim
Ynt: İnternet Bileşenleriyle Chat Programı Gönderen: kocaturk Tarih: 06 June 2007 18:06:43
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
Ynt: İnternet Bileşenleriyle Chat Programı Gönderen: sanalboq Tarih: 09 June 2007 20:09:54
dediğinizi yaptım oldu yanlız dclsockets100.bpl die bi dosya yoktu dclsockets70.bpl vardı sanırım benimki delphi 7 ondan heralde
Ynt: İnternet Bileşenleriyle Chat Programı Gönderen: kocaturk Tarih: 09 June 2007 20:38:28
demek ki
Ynt: İnternet Bileşenleriyle Chat Programı Gönderen: cdmesut Tarih: 05 September 2007 00:08:07
çok işime yaradı... ben de diyordun nerde bu compadentler cok teşekküeler delphidunyasi teşekkürler teknolok
Ynt: İnternet Bileşenleriyle Chat Programı Gönderen: cdmesut Tarih: 05 September 2007 00:23:24
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...
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.
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
Ynt: İnternet Bileşenleriyle Chat Programı Gönderen: mrblackman Tarih: 18 July 2006 00:52:41
teşekkür ettim, elinize saglık... bi iki arkadasla denedik baglantı kuramadık ama yine de sagolun... bi seferinde onlarda bi seferinde de bende bagladı yazdı aynı anı tutturamadık bir türlü... tuttursak calışır zannımca...
Ynt: İnternet Bileşenleriyle Chat Programı Gönderen: xbarakuda Tarih: 18 July 2006 14:32:29
nasıl bir hata veriyor hata söylersen yardimci olurum
Ynt: İnternet Bileşenleriyle Chat Programı Gönderen: mrblackman Tarih: 18 July 2006 18:03:41
Henüz tam olarak hata şudur diyemiyorum. Cünkü farklı bir bilgisayarla hiç aynı anda "baglandı" yazısını göremedik ki sonrasında calışıyor mu diye bakabilelim. Bundan önce aslında mail göndermek konusunda yardımcı olsanız cok daha sevinirim. Örnekler var sitede fakat delphi 7 ile calıştıramadım hiçbirisini...
Ynt: İnternet Bileşenleriyle Chat Programı Gönderen: xbarakuda Tarih: 19 July 2006 14:33:20
chat programını tekrardan test ettim calışıyor email gelince hotmail yahoo gibi servislerden email atamyayınca pek anlamı yok gibi geliyor
Ynt: İnternet Bileşenleriyle Chat Programı Gönderen: sanalboq Tarih: 06 June 2007 17:35:39
çok çok ozur dilerim ama bende internet tabında TSERVERSOCKET yok TcpClient var TSERVERSOCKET nasıl bulabilirim
Ynt: İnternet Bileşenleriyle Chat Programı Gönderen: kocaturk Tarih: 06 June 2007 18:06:43
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
Ynt: İnternet Bileşenleriyle Chat Programı Gönderen: sanalboq Tarih: 09 June 2007 20:09:54
dediğinizi yaptım oldu yanlız dclsockets100.bpl die bi dosya yoktu dclsockets70.bpl vardı sanırım benimki delphi 7 ondan heralde
Ynt: İnternet Bileşenleriyle Chat Programı Gönderen: kocaturk Tarih: 09 June 2007 20:38:28
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 kiYnt: İnternet Bileşenleriyle Chat Programı Gönderen: cdmesut Tarih: 05 September 2007 00:08:07
çok işime yaradı... ben de diyordun nerde bu compadentler cok teşekküeler delphidunyasi teşekkürler teknolok
Ynt: İnternet Bileşenleriyle Chat Programı Gönderen: cdmesut Tarih: 05 September 2007 00:23:24
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...