Close;

    SQL.Text := 'select tid,tdata from device_param where tid=' + IntToStr(vid) ;

    Open;



    First;

    if not Eof then

    begin

      (FieldByName('tdata') as TBlobField).SaveToStream(ms);

      ms.Position :=0;

      ms.read(RecBuf[0],129);