No puedo encontrar el problema

[Casimiro Noteví]

¿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?

[MaxiDucoli]

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:

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.

[Casimiro Noteví]

Seguramente es por el unicode, haz una búsqueda por los foros, se ha tratado otras veces, pero básicamente tendrás que cambiar algunas variables string por ansistring. En fin, paciencia y a probar.

[MaxiDucoli]

Empezado por Casimiro Notevi

Seguramente es por el unicode, haz una búsqueda por los foros, se ha tratado otras veces, pero básicamente tendrás que cambiar algunas variables string por ansistring. En fin, paciencia y a probar.

hay una variable buffer que me dá error y creo que es por el PAnsiChar, pero ya probé de todo y no puedo hacer que funcione.
No puedes darme una mano tratando de compilarlo a ver si se te ocurre qué puede ser?
Gracias

[Casimiro Noteví]

Empezado por MaxiDucoli

hay una variable buffer que me dá error y creo que es por el PAnsiChar, pero ya probé de todo y no puedo hacer que funcione.
No puedes darme una mano tratando de compilarlo a ver si se te ocurre qué puede ser?
Gracias

Sí, podría si explicaras algo, antes has dicho que no da ningún error y ahora dices que "da error", así que con información confusa es casi imposible ayudar.

De todas formas, buscar por "ansichar", "unicode", etc. ya que se ha tratado muchas veces ese tema.

[MaxiDucoli]

Empezado por Casimiro Notevi

Sí, podría si explicaras algo, antes has dicho que no da ningún error y ahora dices que "da error", así que con información confusa es casi imposible ayudar.

De todas formas, buscar por "ansichar", "unicode", etc. ya que se ha tratado muchas veces ese tema.

No sé pasar esto, al compilar me dice "Incompatible ARRAY and PAnsiChar:

var
  phe: PHostEnt;
  pptr: PaPInAddr;
  Buffer: Array[0..63] of Char;
  I: Integer;
begin
  setlength(FActiveIP,20);
  GetHostName(Buffer, SizeOf(Buffer));
  phe := GetHostByName(buffer);

Este es el que trato de convertir. Creo que solo esto es el error, por que instalé el Virtual Box, puse XP e instalé el Delphi 7 y funciona lo más bien de esa manera.

var
  phe: PHostEnt;
  pptr: PaPInAddr;
  Buffer: Array[0..63] of Char;
  I: Integer;
begin
  setlength(FActiveIP,20);

  GetHostName(PAnsiChar(AnsiString(Buffer)), SizeOf(Buffer));
  phe := GetHostByName(PAnsiChar(AnsiString(buffer)));

[Casimiro Noteví]

Prueba con

Buffer: array[0..63] of ansichar;

[MaxiDucoli]

Solucionado!!!!
Era eso de la incompatibilidad en el Char y el PAnsiChar.
Lo único que hice fue agregar un PAnsiChar(@Buffer[0]) y listo!
Y en cada incompatibilidad lo mismo y problema resuelto!!
Gracias por las ideas, me ayudaron en todo