Cita:
Empezado por Casimiro Notevi
¿Y por qué no te funciona?, ¿qué problema tienes?, ¿qué error sale?, ¿qué hace o qué no hace?, ¿cómo lo usas?, ¿por qué tiene comentarios en idioma ruso?
|
¿Y por qué no te funciona? --- No lo sé, por eso pido ayuda
¿qué problema tienes? ---- La cargo, se agrega a la paleta de botones y la puedo usar sin errores lo más bien.
¿qué error sale? ----- No tira error alguno, solo no hace lo que tiene que hacer
¿qué hace o qué no hace? ----- No hace nada (ue yo me haya dado cuenta) y lo que no hace es decirme los puertos que entran, leer los datos, los headers, las ip, etc, etc
¿cómo lo usas? -- Sólo lo agrego, tiene una propiedad STARTCAP. y un Procedure OnCap asi:
Código:
procedure TForm1.CapturarCap(ip, proto, sourceIP, destIP, SourcePort,
DestPort: string; header: PWideChar; header_size: Integer; data: PWideChar;
data_size: Integer);
begin
//sourceport := '80';
memo2.Lines.Add('HEADER : ' + header);
memo2.Lines.Add('DATA : ' + data);
end;
En este código quiero que en el memo2 me agregue el header y los datos, es solo de prueba.
¿por qué tiene comentarios en idioma ruso? --- Es una biblioteca que la bajé de algún lugar alguna vez. Creo que tiene que ser chino- Mira:
http://www.codeforge.com/read/141889/cap_ip.pas__html
Muchas gracias.