[Arcanis]

Мой отец провёл локалку. По вечерам, пока мать спит, хочется по общатся не выходя из комнаты. Решил попробовать сдаелать чат.
Вот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53

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: Учимся правильно оформлять код!
Но он не работает, почему?

[Arcanis]

Сори, буду знать

[PhoeniX]

О да, делай, делай через Indy... Indy - говно (имхо), я с ServerSocket и ClientSocket тебе чат за пол часа сооружу, а с "Индейцами" ты недели 2 возиться будеш...

[Arcanis]

Спасибо, буду иметь ввиду. Но всёравно мне интересно, что я не так зделал?

[Sphinx]

Сообщение от popyurv

О да, делай, делай через Indy... Indy - говно (имхо), я с ServerSocket и ClientSocket тебе чат за пол часа сооружу, а с "Индейцами" ты недели 2 возиться будеш...

Ололо =) Если не умеешь с Indy работать, не надо гнать на них...
Ты через сокеты полный функционал Indy и за год не воспроизведешь, а если такой умный, кинул бы текст исходничка парню, раз всего полчаса работы.
Сразу видно Фленова не читал =) Кусок кода этот из книги "Программирование в Delphi глазами хакера"

А не работает там потому, что господин Фленов забыл добавить в Uses IdSocketHandle

З.Ы. Indy рулит, стоит только разобраться

To popyurv и данный чат пишется максимум 5 минут, а не твои 30

[Arcanis]

смотрю опрос м думаю: многие имеют локальную сеть нонекто не может мне помочь, почему?

[Casper-Hacker]

Исходник чата

[Arcanis]

Огромное спасибо за исходник!