// var devDimSrv : Integer; { Reference of DIM server device }
// devDimSrv:=RefFind('Device '+ReadIni('DimSrv'));
// if devDimSrv=0 then Trouble('Could not find DIM server device!');
{
Send a message to DIM server.
}
procedure DIM_Send(msg:String);
begin
 if Length(msg)>0 then
 if DevSend(devDimSrv,msg)=0
 then Trouble('Could not send message to '+DimSrv);
end;
{
Send message to DIM server to update tag.
Send also new tag value if data specified.
}
procedure DIM_UpdateTag(tag:Integer; data:String);
begin
 if TypeTag(tag)>0 then begin
  if Length(data)=0
  then DIM_Send('##'+Str(tag)+CRLF)
  else DIM_Send('##'+Str(tag)+'='+mime_encode(data)+CRLF);
 end;
end;
