Compilando Ares <Error>

[ixMike]

Ese mensaje aparece cuando en algún evento de un componente tienes escrito algo (por ejemplo, en OnClick tener puesto "Button1Click"), pero el procedimiento no está implementado en el código (por ejemplo, por haberlo borrado). Puedes darle "tranquilamente" al botón "Yes", o mirar a ver si hay algún pequeño fallo tipográfico que altere el nombre del procedimiento.

O al menos, creo que es eso.


Salu2.

P.D.: Acabo de leer más detalladamente el código que has puesto. Prueba a añadir esta línea

Código Delphi [-]
procedure btn_opt_chat_startClick(Sender: TObject);

Debajo de esta otra (o entre las que están con ella):

Código Delphi [-]
btn_opt_chat_start: TTntButton;

[Mav]

Llevo más de veinte dias intentando compilar el Ares...tuve problemas hasta para instalar los componentes := http://www.clubdelphi.com/foros/showthread.php?t=51997, ahora ya estan todos instalados en mis dos maquinas...Y sigo intentando corregir montones de ¿fallos?
Por eso me pregunto ¿Alguien ha conseguido compilarlo? Creo que bastantes de los errores son un problema de las compilaciones condicionales de los componentes , y las versiones de Delphi claro.
En cada uno de mis ordenadores los errores son distintos.
Si alguna vez lo consigo compilar, postearé todo para que lo pueda compilar
quien lo desee..
Saludos atodos
Miguel

[JXJ]

yo solo lo logre compilar pero sin funcionar, lo mas imporante,
que es el sistema de transferencia de archivos. por que me salian
los mismos errores que a ti Mav
y errores de nodos y del supernodo, y de el mecanismo buscador.

yo creo que es por que el ares lo desarrollan, delphi, como compilador y algunas
cosas graficas con el ide, pero, el grueso, por codigo, como con el notpad y usando el compilador de linea de comandos...

[Mav]

Sigo tratando de resolver los múltiples errores de compilación que me da el Ares,
estoy parado aquí ahora....no lo encuentro..????

Código Delphi [-]
function estrai_path_da_lnk(filen:widestring):widestring;
var
  AnObj: IUnknown;
  ShLink: IShellLinkW;
  PFile: IPersistFile;
  Data: TWin32FindData;
  Buffer: array [0..255] of widechar;
begin
result:='';
try
  AnObj := CreateComObject(CLSID_ShellLink);
  ShLink := AnObj as IShellLinkW;
  PFile := AnObj as IPersistFile;

  PFile.Load(PWChar(FileN), STGM_READ);


  ShLink.GetPath(Buffer, Sizeof(Buffer), Data, SLGP_UNCPRIORITY);
  result := Buffer;

 except
 end;
end;

En esta linea es donde dá el siguiente error:
ShLink.GetPath(Buffer, Sizeof(Buffer), Data, SLGP_UNCPRIORITY);

[DCC Error] helper_urls.pas(153): E2033 Types of actual and formal var parameters must be identical

En ShlObj.pas:

Código Delphi [-]
IShellLinkW = interface(IUnknown) { sl }
    [SID_IShellLinkW]
    function GetPath(pszFile: PWideChar; cchMaxPath: Integer;
      var pfd: TWin32FindDataW; fFlags: DWORD): HResult; stdcall;

De la "Guia de Referencia de Delphi":

(E2033)Types of actual and formal var parameters must be identical:
For a variable parameter, the actual argument must be of the exact type of the formal parameter.

Código Delphi [-]
program Produce;
procedure SwapBytes(var B1, B2: Byte);
var
Temp: Byte;
begin
Temp := B1; B1 := B2; B2 := Temp;
end;
var
C1, C2: 0..255; (*Similar to a byte, but NOT identical*)
begin
SwapBytes(C1,C2); (*<-- Error message here*)
end.

Arguments C1 and C2 are not acceptable to SwapBytes, although they have the exact memory representation and range that a
Byte has.

Código Delphi [-]
program Solve;
procedure SwapBytes(var B1, B2: Byte);
var
Temp: Byte;
begin
Temp := B1; B1 := B2; B2 := Temp;
end;
var
C1, C2: Byte;
begin
SwapBytes(C1,C2); (*<-- No error message here*)
end.

So you actually have to declare C1 and C2 as Bytes to make this example compile.
He realizado varias pruebas, pero, no lo pillo....
¿Alguna idea? Por supuesto gracias de antemano...
Saludos
Miguel