2,507
社区成员




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);