holas:
La deficion en delphi es esta
Cita:
|
TDataEvent = procedure (AThread: TIdPeerThread;AData:TObject) of object;
|
Acabo de probar en el builder lo siguiente y no me genera errores
Cita:
//esto en el h
#include <IdNNTPServer.hpp>
...
void __fastcall Puntero(TIdPeerThread * AThread, TObject * AData);
...
|
Cita:
//esto en el cpp
void __fastcall TForm1::Puntero(TIdPeerThread * AThread, TObject * AData)
{
//TODO: Add your source code here
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TDataEvent mio;
mio=Puntero;
}
|
y no me genera ningun error salvo
Código Delphi
[-][C++ Warning] Unit1.cpp(28): W8004 'mio' is assigned a value that is never used
que es por q no utilizo.
Haber asigna a mio la la direccion d tu funcion aver q sucede??????
Saludos