如何在DLL中封装以太网通讯程序，使用了UDP等网络通讯控件？
正在制作一个电脑与考勤机通讯的程序，考勤机是以太网接口的，通讯部分的功能已完成，但是太零散了，想将通讯部分封装成一个DLL，可以随时调用，又可以为用户提供二次开发的机会。但是通讯程序中使用了三个INDY网络通讯的控件，如UDPCLIENT UDPSERVER IDANTIFREEZE等，如果想制作成DLL的话，如何做才能全部封状进去啊？有些程序都在这些控件的事件里的呀。
在线等，急急急！
请详细说明制作过程
我是第一次制作DLL，没有经验。所以请尽量说的简单点。

[解决办法]
个人建议：直接使用WinApi编写吧，封装到Dll里调用比较麻烦。
[解决办法]
我昨天也 碰到同样的问题，UDPSOCKET做好封进DLL时，用程序调用DLL就会出错，但是没有实质性的提示，郁闷啊
[解决办法]
主程序可以向DLL提供一个接口,这样DLL通过调用接口函数与主程序进行交互,就解决了事件的问题。
[解决办法]

Delphi(Pascal) code

unit MainUnit;interfaceuses  Windows, SysUtils, Forms, SPComm, Messages;type  TDllComm = class(TComm)  private    procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer;      BufferLength: Word);  end;const  ERR_SC_SUCCESS = 0;  ERR_SC_NOTACTIVE = 1;  ERR_SC_BUSY = 2;  ERR_SC_TIMEOUT = 3;var  IsActive: Boolean = False;  IsBusy: Boolean = False;  Received: Boolean;  RcvBuf: PChar;  BufLen: PInteger;  Comm: TDllComm;  ReadTimeout: DWord;type  TReceiveProc = function (RcvBuffer: PChar; Len: Integer): Integer;function OpenComm(Com: DWord; Bandrate: DWord): Boolean; stdcall;procedure CloseComm(); stdcall;function SendCommCmd(Command: PChar; RcvBuffer: PChar; var Len: Integer): Integer; stdcall;procedure SetCommTimeout(Timeout: DWord); stdcall;function SendData(Data: PChar; Len: Integer): Integer;procedure SetReceiveProc(OnReceive: TReceiveProc); stdcall;implementationvar  ReceiveProc: TReceiveProc;procedure TDllComm.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;  BufferLength: Word);begin  if IsBusy then  begin    CopyMemory(RcvBuf, Buffer, BufferLength);    BufLen^ := BufferLength;    Received := True;  end;  if Assigned(ReceiveProc) then    ReceiveProc(Buffer, BufferLength);end;function OpenComm(Com: DWord; Bandrate: DWord): Boolean; stdcall;begin  if IsActive then CloseComm();  ReadTimeout := 30000;  Comm := TDllComm.Create(nil);  Comm.CommName := 'COM' + IntToStr(Com);  Comm.OnReceiveData := Comm.Comm1ReceiveData;  Comm.BaudRate := Bandrate;  Comm.Inx_XonXoffFlow := False;  Comm.Outx_XonXoffFlow := False;  try    Comm.StartComm;    Sleep(200);    IsActive := True;  except    IsActive := False;  end;  Result := IsActive;end;procedure CloseComm(); stdcall;begin  if not IsActive then Exit;  Comm.StopComm;  IsActive := False;  Comm.Free;end;function SendCommCmd(Command: PChar; RcvBuffer: PChar; var Len: Integer): Integer; stdcall;var  i: DWord;begin  if not IsActive then  begin    Result := ERR_SC_NOTACTIVE;    Exit;  end;  if IsBusy then  begin    Result := ERR_SC_BUSY;    Exit;  end;  IsBusy := True;  try    Received := False;    RcvBuf := RcvBuffer;    BufLen := @Len;    Comm.WriteCommData(Command, Len);    i := GetTickCount();    while (not Received) and IsActive do    begin      if GetTickCount() - i >= ReadTimeout then      begin        Result := ERR_SC_TIMEOUT;        Exit;      end;      Application.ProcessMessages;    end;    if not IsActive then    begin      Result := ERR_SC_NOTACTIVE;      Exit;    end;    Result := ERR_SC_SUCCESS;  finally    IsBusy := False;  end;end;procedure SetCommTimeout(Timeout: DWord); stdcall;begin  ReadTimeout := Timeout;end;function SendData(Data: PChar; Len: Integer): Integer;begin  if not IsActive then  begin    Result := ERR_SC_NOTACTIVE;    Exit;  end;  if IsBusy then  begin    Result := ERR_SC_BUSY;    Exit;  end;  IsBusy := True;  try    Comm.WriteCommData(Data, Len);    Result := ERR_SC_SUCCESS;  finally    IsBusy := False;  end;end;procedure SetReceiveProc(OnReceive: TReceiveProc);begin  ReceiveProc := OnReceive;end;end.