|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
Результаты опроса: Подключон ли ваш комп к локалке? | |||
да | 12 | 70.59% | |
нет | 5 | 29.41% | |
Голосовавшие: 17. Вы еще не голосовали в этом опросе |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Чат для локалки.Почему не работает?
Мой отец провёл локалку. По вечерам, пока мать спит, хочется по общатся не выходя из комнаты. Решил попробовать сдаелать чат.
Вот код: Код:
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, 18.04.2009 в 12:57. |
#2
|
||||
|
||||
Сори
Сори, буду знать
Не судите строго, пожалуйста |
#3
|
||||
|
||||
О да, делай, делай через Indy... Indy - говно (имхо), я с ServerSocket и ClientSocket тебе чат за пол часа сооружу, а с "Индейцами" ты недели 2 возиться будеш...
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#4
|
||||
|
||||
)
Спасибо, буду иметь ввиду. Но всёравно мне интересно, что я не так зделал?
Не судите строго, пожалуйста |
#5
|
||||
|
||||
Цитата:
Ололо =) Если не умеешь с Indy работать, не надо гнать на них... Ты через сокеты полный функционал Indy и за год не воспроизведешь, а если такой умный, кинул бы текст исходничка парню, раз всего полчаса работы. Сразу видно Фленова не читал =) Кусок кода этот из книги "Программирование в Delphi глазами хакера" А не работает там потому, что господин Фленов забыл добавить в Uses IdSocketHandle З.Ы. Indy рулит, стоит только разобраться To popyurv и данный чат пишется максимум 5 минут, а не твои 30 |
Этот пользователь сказал Спасибо Sphinx за это полезное сообщение: | ||
Arcanis (02.02.2024)
|
#6
|
||||
|
||||
смотрю опрос м думаю: многие имеют локальную сеть нонекто не может мне помочь, почему?
Не судите строго, пожалуйста |
#7
|
||||
|
||||
|
#8
|
||||
|
||||
Огромное спасибо за исходник!
Не судите строго, пожалуйста |