[Chydik]

Гуру помогите плиз понять в чем проблема. Впервые работаю с сокетами в принципе и пытаюсь соорентироваться что к чем.
Суть: Хочу написать чат. На форме листбокс со списком пользователей(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;

Вопрос почему и как реализовать срабатывание сообщения на получение пакета((

[Chydik]

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