| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Чат для локалки [D6, WinME, Win2k, WinXP]

Sheng ©   (2004-04-18 18:28:00) 

Вот, решил разобраться с сетью и сделать чат. Сделал на TServerSocket и TClientSocket - два приложения сервер и клиент. Это всё нормально работает.
А вот сам вопрос - как сделать чат в виде одного приложения - без отдельного сервера и клиентов?

---

Anvar Turakulov   (2004-04-21 09:16:00) [1]

Удалено модератором
Примечание: Задай вопрос в своей ветке...

---

Rouse_   (2004-04-20 11:32:00) [2]

На практике, кидай на форму IdUDPServer и IdUDPClient с закладки IndyServers и IndyClients, в uses добавь IdSocketHandle

Потом положи на форму кнопку, Edit и Memo
При нажатии на кнопку будем отправлять содержимое Edit
При приёме - отображать полученное в Memo

код получится примерно такой:

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, IdUDPClient, IdBaseComponent, IdComponent, IdUDPBase,
 IdUDPServer, IdSocketHandle;

type
 TForm1 = class(TForm)
   IdUDPServer1: TIdUDPServer;
   IdUDPClient1: TIdUDPClient;
   Button1: TButton;
   Edit1: TEdit;
   Memo1: TMemo;
   procedure FormCreate(Sender: TObject);
   procedure Button1Click(Sender: TObject);
   procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
     ABinding: TIdSocketHandle);
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 IdUDPServer1.DefaultPort := 25080;
 IdUDPServer1.Active := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 IdUDPClient1.Broadcast(Edit1.Text, 25080);
end;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
 ABinding: TIdSocketHandle);
var
 Str: TStringStream;
begin
 Str := TStringStream.Create('');
 try
   Str.CopyFrom(AData, AData.Size);
   Str.Position := 0;
   Memo1.Lines.Add(Str.DataString);
 finally
   Str.Free;
 end;
end;

end.

---

Sheng   (2004-04-19 11:17:00) [3]

Народ, мож кто занимался так сетью - киньте какие-нибудь исходнички на мыло, на них проще разбираться.

> Rouse_
Теорию прочитал, кое-что понял, кое-что нет, но всё равно не допру как работать правильно с сетью.

---

Sheng   (2004-04-19 10:04:00) [4]

> Rouse_

UDP - броадкаст...

А порты как определять? Или там не надо?... Я ж не знаю...

---

XAOC   (2004-04-18 22:56:00) [5]

у  меня  есть исходник  одного чата... если  надо то пиши на alex-electronik@list.ru скину...

---

Rouse_   (2004-04-18 22:35:00) [6]

UDP - броадкаст...

---

Sheng   (2004-04-18 22:32:00) [7]

Вообще, есть у кого-нибудь идеи, как при загрузке определить, где загружены чаты, получить инфу о них, установить соединение, и т.д. как это сделано в чатах без выделенного сервера???

---

Наверх