İ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
Kod: Tümünü seç
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
Aslında hazır örnek varmı bu konuda geliştirebileceğim....