Delphi ile IP üzerinden chat uygulaması yapmak

Arkadaşlar canım sıkıldıkca birşeyler yapayım diyorum ve aklıma delphide chat ornegi geldi

SERVER Tarafı

 

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Sockets, StdCtrls;

type
TForm1 = class(TForm)
TcpServer1: TTcpServer;
Label1: TLabel;
Edit1: TEdit;
Memo1: TMemo;
Label2: TLabel;
procedure TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
VAR
X:String;
begin
Edit1.Text:=ClientSocket.RemoteHost;
X:=ClientSocket.Receiveln();// PORTU OKUR
Memo1.Lines.Add(X);// MEMOYA AKTARIR
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
TcpServer1.LocalPort:=’20000’;//string tip
TcpServer1.Active:=True; // 20000 numaralı portu dinlemeye alır

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
TcpServer1.Close;
end;

end.

 

 

BUDA CLİENT TARAFI

 

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, XPMan, StdCtrls, Buttons, Sockets, ComCtrls;

type
TForm1 = class(TForm)
XPManifest1: TXPManifest;
StatusBar1: TStatusBar;
Edit1: TEdit;
BitBtn1: TBitBtn;
TcpClient1: TTcpClient;
Memo1: TMemo;
procedure BitBtn1Click(Sender: TObject);
procedure TcpClient1Connect(Sender: TObject);
procedure TcpClient1Disconnect(Sender: TObject);
procedure TcpClient1Error(Sender: TObject; SocketError: Integer);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

 

procedure TForm1.BitBtn1Click(Sender: TObject);
VAR
A:String;
begin
A:=Memo1.Lines.Text;
TcpClient1.RemoteHost:=Edit1.Text;
TcpClient1.RemotePorT:=’20000’;
TcpClient1.Active:=False;
TcpClient1.Active:=True;
TcpClient1.Sendln(’SELAM’);
end;

procedure TForm1.TcpClient1Connect(Sender: TObject);
begin

end;

procedure TForm1.TcpClient1Disconnect(Sender: TObject);
begin

end;

procedure TForm1.TcpClient1Error(Sender: TObject; SocketError: Integer);
begin

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

Reklamlar