mqtt for delphi7

delphi 7下可用用的mqtt //连接MQTT服务器 procedure TfrmMain.btnConnClick(Sender: TObject); begin MQTTClient.Port := StrToIntDef(edtPort.Text, 1883); MQTTClient.Host := edtHost.Text; MQTTClient.Activate(true); btnClearClick(Sender); //清空计数器 end; //断开MQTT服务器 procedure TfrmMain.btnDisConnClick(Sender: TObject); begin MQTTClient.Activate(false); end; //发布消息 procedure TfrmMain.btnPublishClick(Sender: TObject); var i : Integer; begin for i:=1 to edtLoop.Value do begin MonLed.Brush.Color :