Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Чат

Автор: fire_soft_work 23.12.2004, 16:06

Кто сможет подсказать с помощью каких компонентов можно создать чат в Delphi 7? smile

Автор: SPrograMMer 23.12.2004, 16:59

TSocetConnection - вкладка DataSnap

Автор: SlaUr 23.12.2004, 17:01

В стандартной поставке Delphi есть пример чата
DELPHI7\Demos\Internet\NetChat

Автор: p0s0l 24.12.2004, 12:37

Перенесено из раздела Дельфи

Автор: SoWa 26.12.2004, 05:31

Проинсталль в Д7 Socket`s и юзай их! Будешь жить припеваючи, только замаешься постоянно IP or Host
вводить. Поэтому еще раз советую- ставь Д6, там много таких компонент!
Install Socket`s: Download DRKB

Автор: Crash Override 26.12.2004, 11:34

Самый простой чат лучше делать на UDP

1)Кидай на форму IdUDPClient и IdUDPServer из вкладки INDY, Edit, Button и Memo

2)IdUDPClient.host:='255.255.255.255';
BroadcastEnabled:=true; (для Client'a и для Server'a);
Active:=true (для Client'a и для Server'a);
Port:=Какой захочешь (UDP порты не пересекаются с TCP портами)

3) Обработчик события IdUDPServer.OnUDPRead:

Код


procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
  SFS:TStringStream;
  s:String;
begin
SFS:=TStringStream.Create(''); 
SFS.CopyFrom(Adata,AData.Size);
Memo1.Lines.Add('<'+ABinding.PeerIP+'> '+SFS.DataString);
Abinding.SendTo(Abinding.PeerIP,Abinding.PeerPort,s[1],length(s));
SFS.Free;
end;

4) Обработчик события кнопки отправления сообщения OnClick

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPClient1.Send(Edit1.text);
end;

5) В раздел USES добавь IdSocketHandle
Всё простейший чат готов smile

Автор: death 29.8.2005, 02:18

Народ! Подскажите мне пожалуйста как при помощи этих компонентов запись переслать, срочно надо!

Автор: Nocsm 12.9.2005, 08:49

Crash Override >> а теперь вопрос: нафига в примере третьего пункта нужна строка №10:
Abinding.SendTo(Abinding.PeerIP,Abinding.PeerPort,s[1],length(s));
Подскажи лучше как в рунтайме этим компонентам(IdUDPClient и IdUDPServer) пожно порт сменить? У меня чето не выходит. Только в дизайнтаме получается.