Мой отец провёл локалку. По вечерам, пока мать спит, хочется по общатся не выходя из комнаты. Решил попробовать сдаелать чат.
Вот код:
Код:
unit chatLAN;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer,
IdUDPServer, IdUDPBase, IdUDPClient;
type
TForm1 = class(TForm)
Memo1: TMemo;
Edit1: TEdit;
Edit2: TEdit;
Label2: TLabel;
Label1: TLabel;
Button1: TButton;
Label3: TLabel;
IdUDPClient1: TIdUDPClient;
IdUDPServer1: TIdUDPServer;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPClient1.Send(Edit2.Text+''+Edit1.Text);
end;
procedure TForm1.IdUDPServer1Status(Sender:TObject;AData:
TStream;ABinding:TIdSocetHandle);
var
StringFormatedStream:TStringStream;
s:String;
begin
StringFormatedStream:=TStringStream.Create('');
StringFormatedStream.CopyForm(AData,AData.Size);
Memo1.Lines.Add(ABinding.PeerIP+''+StringFormatedStream.DataString);
ABinding.SendTo(ABinding.PeerIP,Abinding.PeerPort,S[1], Length(s));
StringFormatedStream.Free;
end;
end.
Admin: Учимся правильно оформлять код!
Но он не работает, почему?