fsdb

Пользователи
  • Публикаций

    70
  • Зарегистрирован

  • Посещение

  • Победитель дней

    3

fsdb стал победителем дня 29 октября 2016

fsdb имел наиболее популярный контент!

Информация о fsdb

Посетители профиля

450 просмотров профиля
  1. MQTT под Ubuntu Server

    вот сделал, кое как. вот так я и хотел
  2. Orange pi h5/h6 , Linux x64+Delphi?

    Ребята, извините. Я немного не точно написал. т.е. дельфи устанавливается под винду как обычно а просто уже подключаются через коннектор. я просто хочу понимать - удаленная отладка получится на этом процессоре? кто то писал что вот линукс отлаживать так нельзя, только андройд на ARM. а тут вроде другой процессор и хотелось бы понимать смогу ли я отлаживать. второй вопрос - а можно допустим отлаживать на виртуальной машине ,а готовый результат запускать на этом Orange pi h5 h6 ?
  3. Orange pi h5/h6 , Linux x64+Delphi?

    Ребята подскажите на Orange pi h5 h6 - под Linux можно компилировать свои приложения? Марка процессора:Allwinner, CPU:H5 Quad-core Cortex-A53 64bit
  4. MQTT под Ubuntu Server

    ну ничего. шишки набивать надо. ото так вас послушать так если ничего не выходит то надо все бросить))) жалко ответа по существу не дали. ну ок
  5. MQTT под Ubuntu Server

    Ребята подскажите /помогите. есть вот эта демка http://www.esegece.com/websockets/protocols/mqtt и использовал crossvcl-trial. получилось забавно (скриншот 1), но не совсем то что я хотел. GUI мне вообще никак не нужен. но в противном случае компоненты ведут себя странно если консольное приложение см скриншот 2. на топики не подписывается, т.е. подписка работает только если VCL и мы подписку в кнопке сделали, а не сразу после подключения к серверу(даже если добавить пазузу не помогает) (в кнсольном). не формируется GUID (скриншот 2) и вообще как то странно себя ведет ИМЕННО В КОНСОЛЬНОМ ПРИЛОЕЖЕНИИ хоть под линукс, хоть под Windows. только если VCL. как будто часть задач отрезали. ошибок не выводит,не понятно что происходит. код прилагаю. я не силен в дельфи- помогите. program LinuxMQTT; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils, sgcWebSocket_Classes, sgcWebSocket_Client, sgcWebSocket, sgcWebSocket_Protocol_Base_Client, idGlobal, sgcWebSocket_Protocols, sgcWebSocket_Types, sgcWebSocket_Classes_Indy, sgcWebSocket_Protocol_MQTT_Client, sgcWebSocket_Protocol_MQTT_Message; Type OnMyPublish = Class procedure OnMQTTPublish(Connection: TsgcWSConnection; aTopic, aText: string); end; procedure OnMyPublish.OnMQTTPublish(Connection: TsgcWSConnection; aTopic: string; aText: string); begin writeln(aTopic+aText); end; var WSClient: TsgcWebSocketClient; MQTT:TsgcWSProtocol_MQTT_Client; MyPublish:OnMyPublish; begin WSClient:=TsgcWebSocketClient.Create(nil); WSClient.ConnectTimeout:=0; WSClient.TLS:=false; WSClient.Proxy.Enabled := false; WSClient.Proxy.Username := ''; WSClient.Proxy.Password := ''; WSClient.Proxy.Host := ''; WSClient.Port:=80; WSClient.Host :='192.168.1.40'; //40 WSClient.Authentication.Basic.Enabled:=false; WSClient.Authentication.Enabled:=false; WSClient.Authentication.User:=''; WSClient.Authentication.Password:=''; WSClient.Authentication.URL.Enabled:=true; WSClient.Authentication.Session.Enabled:=true; WSClient.Extensions.DeflateFrame.Enabled:=false; WSClient.Extensions.DeflateFrame.WindowBits:=15; WSClient.Extensions.PerMessage_Deflate.ClientMaxWindowBits:=15; WSClient.Extensions.PerMessage_Deflate.ClientNoContextTakeOver:=false; WSClient.Extensions.PerMessage_Deflate.Enabled:=false; WSClient.Extensions.PerMessage_Deflate.MemLevel:=1; WSClient.Extensions.PerMessage_Deflate.ServerMaxWindowBits:=15; WSClient.Extensions.PerMessage_Deflate.ServerNoContextTakeOver:=false; WSClient.ConnectTimeout:=0; WSClient.Extensions.DeflateFrame.Enabled:=false; WSClient.Extensions.DeflateFrame.WindowBits:=15; WSClient.NotifyEvents:=neAsynchronous; WSClient.IPVersion:=idGlobal.TIdIPVersion(Id_IPv4); WSClient.HeartBeat.Enabled:=false; WSClient.HeartBeat.Interval:=300; WSClient.HeartBeat.Timeout:=0; WSClient.NotifyEvents:=sgcWebSocket_Types.TwsNotifyEvent(neAsynchronous); WSClient.Options.FragmentedMessages:=frgOnlyBuffer; WSClient.Options.Origin:=''; WSClient.Options.Parameters:='/ws'; WSClient.Options.RaiseDisconnectExceptions:=True; WSClient.Specifications.Drafts.Hixie76:=false; WSClient.Specifications.RFC6455:=true; WSClient.ReadTimeout:=-1; WSClient.TLS:=false; MQTT:=TsgcWSPClient_MQTT.Create(nil); MyPublish:=OnMyPublish.Create; MQTT.OnMQTTPublish:=MyPublish.OnMQTTPublish; MQTT.Authentication.Enabled:=false; MQTT.Authentication.Password:=''; MQTT.Authentication.UserName:=''; MQTT.Client:=WSClient; MQTT.Guid:=''; MQTT.HeartBeat.Enabled:=true; MQTT.HeartBeat.Interval:=300; MQTT.Authentication.Enabled := false; MQTT.Authentication.UserName := ''; // requires username MQTT.Authentication.Password := ''; // requires username MQTT.LastWillTestament.Enabled:=false; MQTT.LastWillTestament.QoS:=mtqsAtMostOnce; MQTT.LastWillTestament.Retain:=false; MQTT.LastWillTestament.Text:=''; MQTT.LastWillTestament.Topic:=''; WSClient.Active := True; // MQTT.Connect; MQTT.Subscribe('tms/chat'); //получение инфы MQTT.Publish('tms/chat', '3333333', TmqttQoS(0), false); //раздача инфы end.
  6. Linux платформа

    Vitaldj консольный режим на ubuntu server работает. значит дело за фреймоврком только?
  7. Linux платформа

    я смотрел это видео. как получилось добавить строчку Linux? или нужно выбрать консольное приложение а потом в нем можно добавить форму:???? объясните как повторить видео.? порядок?
  8. Linux платформа

    каким образом добавить Linux в список? (Multi device platform) в Target Platform нет . смотрел видео - где создавали прямо gui приложение.
  9. Не могу понять порядок действий/события которые нужно обрабатывать в Android. есть температура в значении Single и TrackBar . если температура еще не достигла определенного уровня то при попытке изменить значение в TrackBar - вывести предупреждение что есть опасность. Yes/Cancel что то такое. в каком событии обработать? какое событие срабатывает до того как еще пытаются только установить новое значение. не пойму как обработать
  10. пример отправки данных через USB

    Ребята, подскажите каким образом отправляются данные в USB. нужен пример рабочий. может где есть?
  11. Добрый день! Допустим я имеюследующую структуру как описана ниже, но не знаю заранее название тега - например firstName. как мне получить все названия тегов и их значения. спасибо { "firstName": "Александр", "lastName": "Юрьевич", "phoneNumbers": "812 123-1234" } g1:=0; while g1<=JS.Count-1 do begin body1:=JS.Pairs[g1].; //имя переменной //body2:=JS.GetValue(body1).Value; //значение переменной Synchronize(UpdateVariable); //передаем body1, body2 в тело функции inc(g1); end;
  12. MQTT на Android

    Ребята, нет ли у кого примера/информации по поводу MQTT клиента на Android. Спасибо.
  13. javac заменил на java -jar вроде бы и получил подробней текст ошибки. я могу ошибаться. уже не помню деталей