哪位朋友会C语言和DELPHI请帮我看看 [复制链接]

下面这段代码转换为delphi怎么写呀？
消息回调函数举例如下：
void callback messcallback(int command,char *ipaddr,char *buf,int ilen)
{
  alarminfo *palarminfo = null;
  char tempbuf[256];
  char outbuf[20];
  int i = 0;

  zeromemory(tempbuf,256);
  zeromemory(outbuf,20);
  switch(command)
  {
  case 22:
    palarminfo = (alarminfo *)buf;
    sprintf(tempbuf,"服务器报警信息\r\n");
    serverlogfile.write(tempbuf,strlen(tempbuf));

    sprintf(tempbuf," 服务器ip地址:%s\r\n",ipaddr);
    serverlogfile.write(tempbuf,strlen(tempbuf));

    switch(palarminfo->dwalarmtype)
    {
    case 0:
        sprintf(tempbuf," 报警类型:信号量报警\r\n");
        break;
    case 1:
        sprintf(tempbuf," 报警类型:硬盘满\r\n");

*palarminfo 是什么用？
delphi里没有指针变量的。