Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

TIdMappedPortTCP. Все ли видно через AThread.NetData?   Найти похожие ветки 

 
AV ©   (2012-04-04 16:13) [0]

Имея чужой компонент в dcu, кинул TIdMappedPortTCP, настроил работу через него. Логирую так:
procedure TMainForm.idmp1Execute(AThread: TIdMappedPortThread);
var
 i: Integer;
 s: string;
begin
 s := "";
 mmo1.Lines.Add("OUT--->>" + DateTimeToStr(now));
 mmo1.Lines.Add("    >in char [" + AThread.NetData + "]");
 for i := 0 to Length(AThread.NetData) do
   s := s + " " + IntToHex( Ord(AThread.NetData[i]), 2);
 mmo1.Lines.Add("    >in hex [" + Trim(s) + "]");
 mmo1.Lines.Add("--->>");
end;

procedure TMainForm.idmp1OutboundData(AThread: TIdMappedPortThread);
var
 i: Integer;
 s: string;
begin
 s := "";
 mmo1.Lines.Add("IN<<===" + DateTimeToStr(now));
 mmo1.Lines.Add("   <in char [" + AThread.NetData + "]");
 for i := 0 to Length(AThread.NetData) do
   s := s + " " + IntToHex( Ord(AThread.NetData[i]), 2);
 mmo1.Lines.Add("   <in hex [" + Trim(s) + "]");
 mmo1.Lines.Add("<<===");
end;

Все ли видно, что присылается/отправляется?
(в символах - очевидно, что нет
а в хексах?)

Лог, кусок
OUT--->>04.04.2012 16:10:42
   >in char [яХ
   >in hex [00 FF D5 00 00 D4]
--->>
IN<<===04.04.2012 16:10:42
  <in char [яХ
  <in hex [00 FF D5 01 00 00 D5]
<<===
OUT--->>04.04.2012 16:10:42
   >in char [
   >in hex [00 00 64 00 00 64]
--->>
OUT--->>04.04.2012 16:10:42
   >in char [d
   >in hex [00 01 64 00 00 65]
--->>
IN<<===04.04.2012 16:10:42
  <in char [
  <in hex [00 00 00 07 00 03 07 C0 E1 00 00 00 B2]
<<===


 
AV ©   (2012-04-04 16:15) [1]

или вообще неправильно думаю?
или правильно, но надо или можно проще как-то по другому?


 
RWolf ©   (2012-04-04 16:16) [2]

это легко проверяется сравнением с показаниями сниффера


 
AV ©   (2012-04-04 16:19) [3]


> RWolf ©   (04.04.12 16:16) [2]

да, но не совсем
так было и начал
но на этом же компьютере несколько важных процессов, каждый связывается с одним и тем же ip|port удаленного. Каша.. разгребать долго..  
Подумал, что так будет проще


 
Дмитрий С ©   (2012-04-04 16:37) [4]


> AV ©   (04.04.12 16:19) [3]

Есть ж сниффер по процессам


 
AV ©   (2012-04-05 10:01) [5]

да, в хексах видно все
проверил WiresharkPortable, он чудненько может показывать стрим практически в виде
  >in hex [00 FF D5 00 00 D4]
 <in hex [00 FF D5 01 00 00 D5]
  >in hex [00 00 64 00 00 64]
 <in hex [00 00 00 07 00 03 07 C0 E1 00 00 00 B2]
совпадение 100%%



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.069 c
15-1338582165
Глеб
2012-06-02 00:22
2013.03.22
Форматирование в дельфи


15-1329421469
TUser
2012-02-16 23:44
2013.03.22
Спокойной ночи


15-1347716987
Roman_man
2012-09-15 17:49
2013.03.22
Какая функция смещает вывод Canvas?


15-1351264428
AV
2012-10-26 19:13
2013.03.22
delphi7 под win7 - сервисы стандартным TService нормальные?


2-1340451890
Кос
2012-06-23 15:44
2013.03.22
Сортировка в ComboBox