| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdUDPServer, IdBaseComponent, IdComponent, IdUDPBase,
IdUDPClient, IdSocketHandle, Buttons, Menus, Sockets, WinSock, ExtCtrls;
type
TMainForm = class(TForm)
Memo: TMemo;
Edit: TEdit;
IdUDPClient: TIdUDPClient;
IdUDPServer: TIdUDPServer;
BitBtn: TBitBtn;
Edit2: TEdit;
Label1: TLabel;
PopupMenu: TPopupMenu;
N1: TMenuItem;
Memo2: TMemo;
IdUDPClient2: TIdUDPClient;
IdUDPServer2: TIdUDPServer;
procedure ButtonClick(Sender: TObject);
procedure IdUDPServerUDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
procedure BitBtnClick(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure IdUDPServer2UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
procedure TMainForm.ButtonClick(Sender: TObject);
begin
IdUDPClient.Send(Edit.Text);
end;
procedure TMainForm.IdUDPServerUDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
StringFormatedStream: TStringStream;
s: String;
begin
StringFormatedStream:=TStringStream.Create('');
StringFormatedStream.CopyFrom(AData, AData.Size);
Memo.Lines.Add(StringFormatedStream.DataString);
ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s [1], Length(s));
StringFormatedStream.Free;
end;
procedure TMainForm.BitBtnClick(Sender: TObject);
begin
IdUDPClient.Send(Edit2.Text+' > '+Edit.Text);
Edit.Clear;
end;
function GetLocalIP: String;
const WSVer = $101;
var
wsaData: TWSAData;
P: PHostEnt;
Buf: array [0..127] of Char;
begin
Result := '';
if WSAStartup(WSVer, wsaData) = 0 then begin
if GetHostName(@Buf, 128) = 0 then begin
P := GetHostByName(@Buf);
if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
end;
WSACleanup;
end;
end;
procedure TMainForm.N1Click(Sender: TObject);
begin
IdUdpClient2.Send(GetLocalIP);
end;
procedure TMainForm.IdUDPServer2UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
StringFormatedStream: TStringStream;
s: String;
begin
StringFormatedStream:=TStringStream.Create('');
StringFormatedStream.CopyFrom(AData, AData.Size);
Memo2.Lines.Add(StringFormatedStream.DataString);
ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s [1], Length(s));
StringFormatedStream.Free;
end;
end.
|
Вот чат, он самый простой. Я хочу чтобы там был просто список юзеров, как это правильнее сделать? |
