F
Also ich hab ma sowas gemacht:
class TServer
{
public:
void __fastcall SocketError(TObject *Sender,
TCustomWinSocket *Socket, TErrorEvent ErrorEvent,int &ErrorCode);
void __fastcall ClientConnect(TObject *Sender,
TCustomWinSocket *Socket);
void __fastcall ClientDisConnect(TObject *Sender,
TCustomWinSocket *Socket);
void __fastcall print(AnsiString txt);
};
void __fastcall TServer::print(AnsiString txt){
txt=txt+"\r\n";
cprintf(txt.c_str());
}
void __fastcall TServer::SocketError(TObject *Sender,TCustomWinSocket *Socket, TErrorEvent ErrorEvent,int &ErrorCode){
print(" ***Error: Code "+AnsiString(ErrorCode));
}
void __fastcall TServer::ClientConnect(TObject *Sender,TCustomWinSocket *Socket){
print(" ***Client Connected ("+Socket->RemoteAddress+") at "+Now());
}
void __fastcall TServer::ClientDisConnect(TObject *Sender,TCustomWinSocket *Socket){
print(" ***Client Disconnected ("+Socket->RemoteAddress+") at "+Now());
}
TServer *Server1;
TServerSocket *server=new TServerSocket(NULL); // ich weiss net ob NULL richtig is, also bitte bescheid sagen, wenn net
server->Port=37015;
server->OnClientError=Server1->SocketError;
server->OnClientConnect=Server1->ClientConnect;
server->OnClientDisconnect=Server1->ClientDisConnect;
server->Active=true;
die Event-Funktionen werden aber net ausgeführt!