Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Результаты опроса: Подключон ли ваш комп к локалке?
да 12 70.59%
нет 5 29.41%
Голосовавшие: 17. Вы еще не голосовали в этом опросе

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 18.04.2009, 03:50
Аватар для Arcanis
Arcanis Arcanis вне форума
Новичок
 
Регистрация: 18.04.2009
Адрес: Петропавловск-Камчатский
Сообщения: 53
Репутация: 10
Вопрос Чат для локалки.Почему не работает?

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

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

Последний раз редактировалось Admin, 18.04.2009 в 12:57.
Ответить с цитированием
  #2  
Старый 19.04.2009, 02:25
Аватар для Arcanis
Arcanis Arcanis вне форума
Новичок
 
Регистрация: 18.04.2009
Адрес: Петропавловск-Камчатский
Сообщения: 53
Репутация: 10
По умолчанию Сори

Сори, буду знать
__________________
Не судите строго, пожалуйста
Ответить с цитированием
  #3  
Старый 19.04.2009, 02:30
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

О да, делай, делай через Indy... Indy - говно (имхо), я с ServerSocket и ClientSocket тебе чат за пол часа сооружу, а с "Индейцами" ты недели 2 возиться будеш...
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
  #4  
Старый 19.04.2009, 02:45
Аватар для Arcanis
Arcanis Arcanis вне форума
Новичок
 
Регистрация: 18.04.2009
Адрес: Петропавловск-Камчатский
Сообщения: 53
Репутация: 10
По умолчанию )

Спасибо, буду иметь ввиду. Но всёравно мне интересно, что я не так зделал?
__________________
Не судите строго, пожалуйста
Ответить с цитированием
  #5  
Старый 27.04.2009, 20:55
Аватар для Sphinx
Sphinx Sphinx вне форума
Прохожий
 
Регистрация: 27.04.2009
Адрес: Kemcity
Сообщения: 36
Репутация: 12
Подмигивание

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

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

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

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

To popyurv и данный чат пишется максимум 5 минут, а не твои 30
Ответить с цитированием
Этот пользователь сказал Спасибо Sphinx за это полезное сообщение:
Arcanis (02.02.2024)
  #6  
Старый 11.05.2009, 02:29
Аватар для Arcanis
Arcanis Arcanis вне форума
Новичок
 
Регистрация: 18.04.2009
Адрес: Петропавловск-Камчатский
Сообщения: 53
Репутация: 10
По умолчанию

смотрю опрос м думаю: многие имеют локальную сеть нонекто не может мне помочь, почему?
__________________
Не судите строго, пожалуйста
Ответить с цитированием
  #7  
Старый 28.05.2009, 01:16
Аватар для Casper-Hacker
Casper-Hacker Casper-Hacker вне форума
Начинающий
 
Регистрация: 19.05.2008
Сообщения: 147
Версия Delphi: x
Репутация: 15
По умолчанию

Исходник чата
Ответить с цитированием
  #8  
Старый 01.07.2009, 02:23
Аватар для Arcanis
Arcanis Arcanis вне форума
Новичок
 
Регистрация: 18.04.2009
Адрес: Петропавловск-Камчатский
Сообщения: 53
Репутация: 10
По умолчанию

Огромное спасибо за исходник!
__________________
Не судите строго, пожалуйста
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 15:45.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter