Author: remi
Date: 2009-02-10 11:29:10 +0100 (Tue, 10 Feb 2009)
New Revision: 3594
Modified:
software_suite_v2/software/http_server_resources/chatter_tux/trunk/ChatterTux/IMMonitoring.pas
Log:
* fixed the mask address of the monitoring
Modified:
software_suite_v2/software/http_server_resources/chatter_tux/trunk/ChatterTux/IMMonitoring.pas
===================================================================
---
software_suite_v2/software/http_server_resources/chatter_tux/trunk/ChatterTux/IMMonitoring.pas
2009-02-10 09:40:02 UTC (rev 3593)
+++
software_suite_v2/software/http_server_resources/chatter_tux/trunk/ChatterTux/IMMonitoring.pas
2009-02-10 10:29:10 UTC (rev 3594)
@@ -36,6 +36,7 @@
P_connected : boolean;
P_ip : string;
P_CardName : string;
+ P_MaskAddress : string;
P_splitedFrame : TStringList;
P_monitor : TMonitorPcap;
P_onError : TMonMessage;
@@ -104,6 +105,7 @@
P_ip := '';
P_connected := false;
P_CardName := '';
+ P_MaskAddress := '';
P_splitedFrame := TStringList.Create;
end;
@@ -126,6 +128,7 @@
P_monitor.StopMonitor;
P_connected := false;
P_CardName := '';
+ P_MaskAddress := '';
if assigned(P_onInfo) then P_onInfo('Monitoring Successfuly stopped');
sleep(500);
end;
@@ -147,6 +150,7 @@
begin
P_connected := false;
P_CardName := '';
+ P_MaskAddress := '';
// Wait for dll
retryCounter := 0;
while not self.Terminated do
@@ -209,11 +213,12 @@
if IpList[j] = P_ip then
begin
P_CardName := P_monitor.AdapterNameList[i];
+ P_MaskAddress := MaskList[j];
if assigned(P_onInfo) then
begin
P_onInfo('Adaptor work : ' + P_monitor.AdapterDescList[i]);
P_onInfo('Symbolic name : ' + P_CardName);
- P_onInfo('Mask address : ' + MaskList[j]);
+ P_onInfo('Mask address : ' + P_MaskAddress);
break;
end;
end;
@@ -228,10 +233,10 @@
// Configure the monitoring
P_monitor.MonAdapter := P_CardName;
P_monitor.Addr := P_ip;
- P_monitor.AddrMask := '255.255.255.0';
+ P_monitor.AddrMask := P_MaskAddress;
P_monitor.IgnoreData := false;
P_monitor.IgnoreLAN := false;
- P_monitor.IgnoreNonIP := true;
+ P_monitor.IgnoreNonIP := false;
P_monitor.Promiscuous := true;
P_monitor.ClearIgnoreIP;
// Attempt to start the capture
------------------------------------------------------------------------------
Create and Deploy Rich Internet Apps outside the browser with Adobe(R)AIR(TM)
software. With Adobe AIR, Ajax developers can use existing skills and code to
build responsive, highly engaging applications that combine the power of local
resources and data with the reach of the web. Download the Adobe AIR SDK and
Ajax docs to start building applications today-http://p.sf.net/sfu/adobe-com
_______________________________________________
Tux-droid-svn mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tux-droid-svn
