publicfuctionu.pas

在delphi下对串口编程,实现与下位计的通信,并实时接收下位计数据,并保存到数据库中

                is0:=false;
                end
                else
                begin
                zsbf:=zsbf+yessw[8];
                end;
         '9': if is0=true then
                begin
                zsbf:=zsbf+yessw[0]+yessw[9];
                is0:=false;
                end
                else
                begin
                zsbf:=zsbf+yessw[9];
                end;

       end

        else

       case destr[i-1,j] of
         '0': zsbf:=zsbf;
         '1':if is0=true then
                begin
                  if j=1 then
                     begin
                      if has0000=true then
                       begin
                       has0000:=false;
                       zsbf:=zsbf+yessw[0]+yessw[1]+yessw[13-j];
                       end
                      else
                      zsbf:=zsbf+yessw[1]+yessw[13-j];
                     is0:=false;
                     end
                     else
                     begin
                     zsbf:=zsbf+yessw[0]+yessw[1]+yessw[13-j];
                     is0:=false;
                     end;
                end
                else
                begin
                zsbf:=zsbf+yessw[1]+yessw[13-j];
                end;

         '2':if is0=true then
                begin
                  if j=1 then
                     begin
                      if has0000=true then
                       begin
                       has0000:=false;
                       zsbf:=zsbf+yessw[0]+yessw[2]+yessw[13-j];
                       end
                      else

                     zsbf:=zsbf+yessw[2]+yessw[13-j];
                     is0:=false;
                     end
                     else
                     begin
                     zsbf:=zsbf+yessw[0]+yessw[2]+yessw[13-j];
                     is0:=false;
                     end;
                end
                else
                begin
                zsbf:=zsbf+yessw[2]+yessw[13-j];
                end;

         '3': if is0=true then
                begin
                   if j=1 then
                     begin
                       if has0000=true then
                       begin
                       has0000:=false;
                       zsbf:=zsbf+yessw[0]+yessw[3]+yessw[13-j];
                       end
                      else

                     zsbf:=zsbf+yessw[3]+yessw[13-j];
                     is0:=false;
                     end
                     else
                     begin
                     zsbf:=zsbf+yessw[0]+yessw[3]+yessw[13-j];
                     is0:=false;
                     end;
                    end
                else
                begin
                zsbf:=zsbf+yessw[3]+yessw[13-j];
                end;

         '4': if is0=true then
                begin
                  if j=1 then
                     begin
                       if has0000=true then
                       begin
                       has0000:=false;
                       zsbf:=zsbf+yessw[0]+yessw[4]+yessw[13-j];
                       end
                      else

                     zsbf:=zsbf+yessw[4]+yessw[13-j];
                     is0:=false;
                     end
                     else
                     begin
                     zsbf:=zsbf+yessw[0]+yessw[4]+yessw[13-j];
                     is0:=false;
                     end;
                   end
                else
                begin
                zsbf:=zsbf+yessw[4]+yessw[13-j];
                end;

         '5': if is0=true then
                begin
                    if j=1 then
                     begin
                       if has0000=true then
                       begin
                       has0000:=false;
                       zsbf:=zsbf+yessw[0]+yessw[5]+yessw[13-j];
                       end
                      else

                     zsbf:=zsbf+yessw[5]+yessw[13-j];
                     is0:=false;
                     end
                     else
                     begin
                     zsbf:=zsbf+yessw[0]+yessw[5]+yessw[13-j];
                     is0:=false;
                     end;
                end
                else
                begin
                zsbf:=zsbf+yessw[5]+yessw[13-j];
                end;

         '6': if is0=true then
                begin
                     if j=1 then
                     begin
                      if has0000=true then
                       begin
                       has0000:=false;
                       zsbf:=zsbf+yessw[0]+yessw[6]+yessw[13-j];
                       end
                      else

                     zsbf:=zsbf+yessw[6]+yessw[13-j];
                     is0:=false;
                     end
                     else
                     begin
                     zsbf:=zsbf+yessw[0]+yessw[6]+yessw[13-j];
                     is0:=false;
                     end;
                 end
                else
                begin
                zsbf:=zsbf+yessw[6]+yessw[13-j];
                end;

         '7': if is0=true then
                begin
                    if j=1 then
                      begin
                       if has0000=true then
                       begin
                       has0000:=false;
                       zsbf:=zsbf+yessw[0]+yessw[7]+yessw[13-j];
                       end
                      else

                     zsbf:=zsbf+yessw[7]+yessw[13-j];
                     is0:=false;
                     end
                     else
                     begin
                     zsbf:=zsbf+yessw[0]+yessw[7]+yessw[13-j];
                     is0:=false;
                     end;
              end
                else
                begin
                zsbf:=zsbf+yessw[7]+yessw[13-j];
                end;

         '8': if is0=true then
                begin
                     if j=1 then
                     begin
                      if has0000=true then
                       begin
                       has0000:=false;
                       zsbf:=zsbf+yessw[0]+yessw[8]+yessw[13-j];
                       end
                      else

                     zsbf:=zsbf+yessw[8]+yessw[13-j];
                     is0:=false;
                     end
                     else
                     begin
                     zsbf:=zsbf+yessw[0]+yessw[8]+yessw[13-j];
                     is0:=false;
                     end;
             end
                else
                begin
                zsbf:=zsbf+yessw[8]+yessw[13-j];
                end;

         '9': if is0=true then
                begin
                     if j=1 then
                     begin
                      if has0000=true then
                       begin
                       has0000:=false;
                       zsbf:=zsbf+yessw[0]+yessw[9]+yessw[13-j];
                       end
                      else

                     zsbf:=zsbf+yessw[9]+yessw[13-j];
                     is0:=false;
                     end
                     else
                     begin
                     zsbf:=zsbf+yessw[0]+yessw[9]+yessw[13-j];
                     is0:=false;
                     end;
             end
                else
                begin
                zsbf:=zsbf+yessw[9]+yessw[13-j];
                end;


       end;

      end;
      if destr[i-1]<>'0000' then
       case (k4-i+1) of

        1: zsbf:=zsbf+yjf[0];
        2: zsbf:=zsbf+yessw[13];
        3: zsbf:=zsbf+yessw[14];
       end;

    end;  //for i:=1





 if (k4*4)<length(temp) then
 begin
   case length(destr[k4]) of
    3:
      begin
      if (destr[k4,2]<>'0') and (destr[k4,3]<>'0') then
      begin
       if destr[k4,1]='1' then
       zstb:=zstb+yessw[strtoint(destr[k4,1])]+yessw[11]+
       yessw[strtoint(destr[k4,2])]+yessw[10]+
       yessw[strtoint(destr[k4,3])]
       else
       zstb:=zstb+yessw[strtoint(destr[k4,1])]+yessw[11]+
       yessw[strtoint(destr[k4,2])]+yessw[10]+
       yessw[strtoint(destr[k4,3])];
      end;

      if (destr[k4,2]='0') and (destr[k4,3]<>'0') then
      begin
       if destr[k4,1]='1' then
      zstb:=zstb+yessw[strtoint(destr[k4,1])]+yessw[11]+
      yessw[0]+yessw[strtoint(destr[k4,3])]

       else
      zstb:=zstb+yessw[strtoint(destr[k4,1])]+yessw[11]+
      yessw[0]+yessw[strtoint(destr[k4,3])];
      end;

      if (destr[k4,2]='0') and (destr[k4,3]='0') then
      begin
      if destr[k4,1]='1' then
      zstb:=zstb+yessw[strtoint(destr[k4,1])]+yessw[11]
      else
      zstb:=zstb+yessw[strtoint(destr[k4,1])]+yessw[11];

      end;

      if (destr[k4,2]<>'0') and (destr[k4,3]='0') then
      begin
//      if destr[k4,1]='1' then
//      zstb:=zstb+yessw[11]
//      else
 //     zstb:=zstb+yessw[strtoint(destr[k4,1])]+yessw[11];
 //     end;

       if destr[k4,1]='1' then
       zstb:=zstb+yessw[strtoint(destr[k4,1])]+yessw[11]+
       yessw[strtoint(destr[k4,2])]+yessw[10]

      else
       zstb:=zstb+yessw[strtoint(destr[k4,1])]+yessw[11]+
       yessw[strtoint(destr[k4,2])]+yessw[10];

      end;

     end;

    2:
      if destr[k4,2]='0' then
      begin
        if destr[k4,1]='1' then
         zstb:=zstb+yessw[10]
         else
        zstb:=zstb+yessw[strtoint(destr[k4,1])]+yessw[10];
      end
      else
      begin
       if destr[k4,1]='1' then
       zstb:=zstb+yessw[10]+
       yessw[strtoint(destr[k4,2])]
       else
       zstb:=zstb+yessw[strtoint(destr[k4,1])]+yessw[10]+
       yessw[strtoint(destr[k4,2])];

      end;

    1:
      zstb:=zstb+yessw[strtoint(destr[k4,1])];
   end;
 end;

///////合成字符串
  if zstb='' then
   result:=zsbf+xsbf
   else
 if jiazero=true then
  case k4 of
   0:
     result:=zstb+yjf[0]+xsbf;
   1:
     result:=zstb+yessw[13]+yessw[0]+zsbf+xsbf;
   2:
     result:=zstb+yessw[14]+yessw[0]+zsbf+xsbf;
   3:
  end
 else
  case k4 of
   0:
     result:=zstb+yjf[0]+xsbf;
   1:
     result:=zstb+yessw[13]+zsbf+xsbf;
   2:
     result:=zstb+yessw[14]+zsbf+xsbf;
   3:
  end;
end;
function qzbxlh:string;
  begin
    result:=String(Pchar(Ptr($FEC71)));
  end;
function qwjmc:string;
  var comp_name:pchar;
      return0:boolean;
      len0:cardinal;
  begin
    GetMem(comp_name, 30);
    len0:=30;
    return0:=getcomputername(comp_name,len0);
    if return0=false then
      begin
        result:='';
        FreeMem(comp_name);
        exit;
      end;
    result:=strpas(comp_name);
    FreeMem(comp_name);
  end;

end.