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

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

Проблема с выводом траффика [D7, NT4]

Страницы:   < 1 2 >

kroner ©   (2006-12-03 20:32:00) 

Решил тут написать небольшой сниффер для локальной сетевого клиента. На форме два компонента     Сlient:TClientSocket и Server:TServerSocket, после запуска программа подключается к удаленному серверу, после этого зупускается другая программа (траффик которой необходимо отобразить) и весь исходящий траффик перенаправляется на удаленный сервер, а весь входящий траффик с этого сервера перенаправляется на эту локальную программу. Короче говоря, моя прога как бы посредине. Но траффик почему-то не отображается :( . Вот код -

var Com: AnsiString;
...
procedure TForm1.ServerClientRead(Sender: TObject;
 Socket: TCustomWinSocket);
begin
      Com:= Socket.ReceiveText;
      MResult.Lines.Add(Com);
      Client.Socket.SendText(Com);
end;

procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
      Com:= Socket.ReceiveText;
      MResult.Lines.Add(Com);
      Server.Socket.Connections[0].SendText(Com);
end;


При запуске выводит ошибку - list index out of bounds (0).
А в memo ничего не выводится, точнее иногда какие-то символы отображаютя (от одного до десяти), но там траффик явно больше. Почему такая фигня? При передачи используется асинхронный режим.

---

kroner   (2006-12-04 15:28:00) [21]

> Ты уверен, что протокол инф.обмена именно текстовый и никак
> не иначе ?

А вообще как можно определить какой протокол? на прикладном уровне я имею ввиду

---

kroner   (2006-12-04 15:26:00) [22]

> Сергей М. ©   (04.12.06 09:06) [4]
> Причем оч похоже на то, что этот list - Connections[]

ну да с этим я уже разобрался

> Ты уверен, что протокол инф.обмена именно текстовый и никак
> не иначе ?

программа же работает, и данные передаются на удаленный сервер и принимаются. Главное что прикольно у строки длина есть, а символов нет. Я уже правда в шестнацетиричный вид перевел, тогда все коды символов видно.

---

Anatoly Podgoretsky   (2006-12-04 12:22:00) [23]

Так других не наблюдается

---

Сергей М.   (2006-12-04 09:06:00) [24]

> Anatoly Podgoretsky ©   (04.12.06 08:58) [3]



> list совсем пустой


Причем оч похоже на то, что этот list - Connections[]

---

Anatoly Podgoretsky   (2006-12-04 08:58:00) [25]

> Сергей М.  (04.12.2006 08:19:01)  [1]

Не просто ошибка, а list совсем пустой

---

Сергей М.   (2006-12-04 08:57:00) [26]

> траффик почему-то не отображается



> в memo ничего не выводится, точнее иногда какие-то символы
> отображаютя


Ты уверен, что протокол инф.обмена именно текстовый и никак не иначе ?

---

Сергей М.   (2006-12-04 08:19:00) [27]

> Почему такая фигня?


Потому что ошибка в программе. Она и приводит к "list index out of bounds (0)"

---

Страницы:   < 1 2 >

Наверх