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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 23.03.2013, 16:48
Chydik Chydik вне форума
Прохожий
 
Регистрация: 19.05.2009
Сообщения: 7
Репутация: 10
По умолчанию посылка сообщения по UDPSocket

Гуру помогите плиз понять в чем проблема. Впервые работаю с сокетами в принципе и пытаюсь соорентироваться что к чем.
Суть: Хочу написать чат. На форме листбокс со списком пользователей(lstUsr) и ПейджКонтрол(pgcChat) для чата, далее будет понятней по коду (надеюсь )
Код:
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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
//Создаю сервер
 ss := TUdpSocket.Create(fmChat);
 ss.LocalHost := ip;
 if length(uid) = 1 then uid := '0'+uid;
 ss.LocalPort := '27'+uid; //порт генерится по id пользователя в базеы
 ss.OnReceive := fmChat.ssReceive; //ТУТ ОСНОВНАЯ ПРОБЛЕММА=((
 ss.Open;
 
//При 2х клике в списке пользователей
procedure TfmChat.lstUsrDblClick(Sender: TObject);
var page: TTabSheet;
    mm,mm1:   TRichEdit;
    pnl, pnl1, pnl2 : TPanel;
    sp: TSplitter;
    btn : TButton;
begin
  if lstUsr.ItemIndex <> -1 then
    Begin
      //Создаем страницу
      page := TTabSheet.Create(pgcChat);
      page.Caption := lstUsr.Items[lstUsr.ItemIndex];
      page.Name := 'sh'+ (fmAdmin.lstLogId[lstUsr.ItemIndex]); //fmAdmin.lstLogId[lstUsr.ItemIndex]-ЭТО id ПОЛЬЗОВАТЕЛЯ В БАЗЕ ДАЛЕЕ ЧАСТО ЮЗАЕТСЯ
      page.PageControl := pgcChat;
 
      //Создаем основную панель
      pnl := TPanel.Create(page);
      pnl.Align := alClient;
      pnl.Name := 'pnlcl'+ (fmAdmin.lstLogId[lstUsr.ItemIndex]);
      pnl.Caption := '';
      pnl.Parent := page;
 
      //Создаем панель для чата
      pnl1 := TPanel.Create(pnl);
      pnl1.Align := alClient;
      pnl1.Name := 'pnlchat'+ (fmAdmin.lstLogId[lstUsr.ItemIndex]);
      pnl1.Caption := '';
      pnl1.Parent := pnl;
 
      //Создаем панель для отправки сообщений
      pnl2 := TPanel.Create(pnl);
      pnl2.Align := alBottom;
      pnl2.Name := 'pnlmsg'+ (fmAdmin.lstLogId[lstUsr.ItemIndex]);
      pnl2.Caption := '';
      pnl2.Height := 200;
      pnl2.Parent := pnl;
 
      //Создаем сплиттер
      sp := TSplitter.Create(pnl);
      sp.Name := 'spl'+ (fmAdmin.lstLogId[lstUsr.ItemIndex]);
      sp.Align := alBottom;
      sp.Parent := pnl;
 
      //Создаем чат
      mm := TRichEdit.Create(pgcChat);
      mm.Name := 'rd'+ (fmAdmin.lstLogId[lstUsr.ItemIndex]);
      mm.Align := alClient;
      mm.ScrollBars := ssVertical;
      mm.WordWrap := True;
      mm.Parent := pnl1;
      mm.ReadOnly := True;
      mm.Clear;
 
      //Создаем сообщения
      mm1 := TRichEdit.Create(pgcChat);
      mm1.Name := 'rdc'+ (fmAdmin.lstLogId[lstUsr.ItemIndex]);
      mm1.Anchors := [akLeft,akTop,akRight,akBottom];
      mm1.Height := pnl2.Height - 32;
      mm1.Width := pnl2.Width -2;
      mm1.ScrollBars := ssVertical;
      mm1.WordWrap := True;
      mm1.Parent := pnl2;
      mm1.Clear;
 
      //Создаем кнопку
      btn := TButton.Create(pnl2);
      btn.Width := 80;
      btn.Height := 22;
      btn.Caption := 'Отправить';
      btn.Left := pnl2.Width - 90;
      btn.Tag := strtoint(fmAdmin.lstLogId[lstUsr.ItemIndex]);
      btn.Top := mm1.Top + mm1.Height + 5;
      btn.Anchors := [akRight,akBottom];
      fmMain.zqry1.SQL.Text := 'SELECT id, ip FROM users WHERE name="'+lstUsr.Items[lstUsr.ItemIndex]+'"';
      fmMain.zqry1.Open;
      if Length(fmMain.ds1.DataSet.FieldByName('id').AsString) = 1 then
        btn.Hint := fmMain.ds1.DataSet.FieldByName('ip').AsString+':'+'270'+fmMain.ds1.DataSet.FieldByName('id').AsString
          else
          btn.Hint := fmMain.ds1.DataSet.FieldByName('ip').AsString+':'+'27'+fmMain.ds1.DataSet.FieldByName('id').AsString;
      btn.ShowHint := True;
      btn.OnClick := SendClick;
      btn.Parent := pnl2;
    end;
end;
 
//Событие при клике
procedure TfmChat.SendClick(Sender: TObject);
var p: TRichEdit;
    ms: TStrings;
    cs: TUdpSocket;
    ip,port: string;
begin
 p := pgcChat.FindComponent('rdc'+IntToStr(TButton(Sender).tag)) as TRichEdit;
  if Assigned(p) then
  begin
 //   ms.Clear;
    ms := p.Lines;
    p := TRichEdit(pgcChat.FindComponent('rd'+IntToStr(TButton(Sender).tag)));
    if Assigned(p) then
      begin
        AddColoredLine(p,'('+DateTimeToStr(Now)+')',clRed);
        P.SelStart  := Length(p.Text);
        P.SelAttributes.Color := clBlack;
        p.Lines.AddStrings(ms);
 
        if pos(':',TButton(Sender).hint) <> 1 then
          Begin
            ip := copy(TButton(Sender).hint,1,pos(':',TButton(Sender).hint)-1);
            port := copy(TButton(Sender).hint,pos(':',TButton(Sender).hint)+1,length(TButton(Sender).hint)-pos(':',TButton(Sender).hint));
            cs := TUdpSocket.Create(pgcChat);
            cs.RemoteHost := ip;
            cs.RemotePort := port;
            cs.Name := 'sck'+IntToStr(TButton(Sender).tag);
            try
              if cs.Connect then
                begin
                  case Length(IntToStr(TButton(Sender).tag)) of
                     1 :cs.Sendln('00'+IntToStr(TButton(Sender).tag)+ms.Text);
                     2 :cs.Sendln('0'+IntToStr(TButton(Sender).tag)+ms.Text);
                     3 :cs.Sendln(IntToStr(TButton(Sender).tag)+ms.Text);
                   end;
                end;
            finally
              cs.Disconnect;
              end;
        end;
        ScrollToEnd(p);
      end;
  end;
end;
 
//И САМОЕ ГЛАВНОЕ СОБЫТИЕ НА ПОЛУЧЕНИЕ СООБЩЕНИЯ КОТОРОЕ НЕ СРАБАТЫВАЕТ
procedure TfmChat.ssReceive(Sender: TObject;Buf: PAnsiChar;var DataLen: Integer);
var id: String;
    p: TRichEdit;
    ms: TStrings;
begin
  id := IntToStr(StrToInt(Copy(Buf,1,3)));
  ShowMessage(Buf);
  p := pgcChat.FindComponent('rd'+(id)) as TRichEdit;
  if Assigned(p) then
  begin
    ShowMessage(p.name);
    AddColoredLine(p,lstUsr.Items[fmAdmin.lstLogId.IndexOf(id)]+'('+DateTimeToStr(Now)+')',clRed);
    P.SelStart  := Length(p.Text);
    P.SelAttributes.Color := clBlack;
    ms.Text := copy(Buf,4,DataLen);
    p.Lines.AddStrings(ms);
    ScrollToEnd(p);
  end;
end;
Вопрос почему и как реализовать срабатывание сообщения на получение пакета((
Ответить с цитированием
  #2  
Старый 24.03.2013, 13:07
Chydik Chydik вне форума
Прохожий
 
Регистрация: 19.05.2009
Сообщения: 7
Репутация: 10
По умолчанию

Может я не корректна вопрос задал? Меня интересует почему я не могу принять сообщение или надо как-то отслеживать приход сообщений через таймер?
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

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