Александр Лукьянов (Filament Extruder 1.75)

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

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

  • Посещение

Информация о Александр Лукьянов (Filament Extruder 1.75)

  • Звание
    Пользователь
  • День рождения 10.04.1983

Информация

  • Пол
    Мужчина
  • Город
    Туймазы

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

Блок последних пользователей отключён и не показывается другим пользователям.

Включить
  1. Александр Лукьянов (Filament Extruder 1.75)

    Узнать объем свободной RAM

    Добрый день. Написал приложение и иногда оно закрывается само по себе через сутки или двое. возможно заканчивается ram. Хотел бы видеть в приложении свободное ram что бы точнее определиться что происходит... Поделитесь кодом определения на андройде свободного RAM
  2. Александр Лукьянов (Filament Extruder 1.75)

    почему компилятор ругаетс

    почему компилятор ругается? приложение компилируется и работаетЭто в потоке Delphi 10.2, android 4.4.2
  3. Александр Лукьянов (Filament Extruder 1.75)

    Ошибка при запуске отладки

    та же проблема только у меня андройд 4.4.2. пробывал накатывать андройд 7.0 - отладка заработала, но греется проц и лагает девайс. вернусля к 4.4.2 ROOT есть. но увы не особо зарешало
  4. Александр Лукьянов (Filament Extruder 1.75)

    idtcpclient и текст

    сервер на андройде
  5. Александр Лукьянов (Filament Extruder 1.75)

    idtcpclient и текст

    еще пробывал вот так type // Объявление записи клиента TStructureConfig = Record TopicName : TStringList; MQTT_Server: TStringList; MQTT_Port: TStringList; MQTT_ClientID: TStringList; MQTT_User: TStringList; MQTT_Password : TStringList; MYSQL_Server : TStringList; MYSQL_Port : TStringList; MYSQL_DataBase : TStringList; MYSQL_TableName : TStringList; MYSQL_TableRowName : TStringList; MYSQL_TableRowCount : TStringList; MYSQL_TableWriteTime : TStringList; MYSQL_HTTP_API : TStringList; end; Config:TStructureConfig; килент form2.IdTCPClient1.Host:=form2.Edit1.Text; form2.IdTCPClient1.Port:=strtoint(form2.Edit2.Text); form2.IdTCPClient1.Connect; form2.IdTCPClient1.ConnectTimeout:=5000; //form2.IdTCPClient1.Socket.WriteLnRFC(,en); Buf := RawToBytes(form1.Config, sizeOf(form1.Config)); form2.IdTCPClient1.IOHandler.Write(Buf); сервер form1.Config.TopicName.Clear; form1.Config.MYSQL_Server.Clear; form1.Config.MYSQL_Port.Clear; form1.Config.MYSQL_DataBase.Clear; form1.Config.MYSQL_TableName.Clear; form1.Config.MYSQL_TableRowName.Clear; form1.Config.MYSQL_TableRowCount.Clear; form1.Config.MYSQL_TableWriteTime.Clear; form1.Config.MYSQL_HTTP_API.Clear; en:=IndyTextEncoding(IdTextEncodingType.encUTF8); // strText:=AContext.Connection.Socket.ReadLnRFC(b1,en); AContext.Connection.IOHandler.ReadBytes(buf,sizeof(buf),false); BytesToRaw(buf, form1.Config, sizeof(form1.Config));
  6. Александр Лукьянов (Filament Extruder 1.75)

    idtcpclient и текст

    Отправляю через idtcpclient текст вида "текстовая строка1"+chr(9)+"значение текстовой строки". на выходе получаю "текстовая строка1\t1значение текстовой строки". каким образом получить со стороны сервера аналогичную строку. дело в том что комбинации у меня встречаются такие же в самом тексте (meteo\temp например) и я не смогу понять что мне нужно \t заменить на chr(9) \t Перемещает позицию печати к следующей позиции горизонтальной табуляции. клиент en:=IndyTextEncoding(IdTextEncodingType.encUTF8); try form2.IdTCPClient1.Host:=form2.Edit1.Text; form2.IdTCPClient1.Port:=strtoint(form2.Edit2.Text); form2.IdTCPClient1.Connect; form2.IdTCPClient1.ConnectTimeout:=5000; form2.IdTCPClient1.Socket.WriteLn(st.Text,en); form2.IdTCPClient1.Disconnect; сервер en:=IndyTextEncoding(IdTextEncodingType.encUTF8); strText:=AContext.Connection.Socket.ReadLn(b1,en);
  7. Александр Лукьянов (Filament Extruder 1.75)

    не создается открытый порт на TCP

    спасибо. проблема была в этом кажется.
  8. Александр Лукьянов (Filament Extruder 1.75)

    не создается открытый порт на TCP

    Active возвращается в true Если tcpserver1 на форму бросить и не создавать компонент то работает пример. Использую 10.1 berlin. Дома попробую 10.1 update 2 и отпишусь
  9. Александр Лукьянов (Filament Extruder 1.75)

    не создается открытый порт на TCP

    Добрый день. Под Windows этот же код нормально работает. под Android - нет. когда клиентом пытаюсь подключиться то получаю 10061 ошибку сокета. и ошибок приложение под андройд не выдает. пытаюсь создать компонент и получить текст по TCP unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, IdContext, IdBaseComponent, IdComponent, IdCustomTCPServer, IdTCPServer, FMX.Controls.Presentation, FMX.StdCtrls,IDGlobal, FMX.ScrollBox, FMX.Memo; type // Объявление записи клиента TStructureConfig = Record TopicName : TStringList; MYSQL_Server : TStringList; MYSQL_Port : TStringList; MYSQL_DataBase : TStringList; MYSQL_TableName : TStringList; MYSQL_TableRowName : TStringList; MYSQL_TableRowCount : TStringList; MYSQL_TableWriteTime : TStringList; MYSQL_HTTP_API : TStringList; end; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure TCPServerOnExecute(AContext: TIdContext); private { Private declarations } public { Public declarations } Config:TStructureConfig; IdTCPServer1:TIdTCPServer; end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.FormCreate(Sender: TObject); begin form1.Config.TopicName:=TstringList.Create; form1.Config.MYSQL_Server:=TstringList.Create; form1.Config.MYSQL_Port:=TstringList.Create; form1.Config.MYSQL_DataBase:=TstringList.Create; form1.Config.MYSQL_TableName:=TstringList.Create; form1.Config.MYSQL_TableRowName:=TstringList.Create; form1.Config.MYSQL_TableRowCount:=TstringList.Create; form1.Config.MYSQL_TableWriteTime:=TstringList.Create; form1.Config.MYSQL_HTTP_API:=TstringList.Create; IdTCPServer1:=TIdTCPServer.Create(nil); IdTCPServer1.OnExecute:=form1.TCPServerOnExecute; //IdTCPServer1.DefaultPort:=5000; IdTCPServer1.Bindings.Clear; idTCPserver1.Bindings.Add.Port:=5000; idTCPserver1.Bindings.Add.IP:='0.0.0.0'; IdTCPServer1.Active:=true; end; procedure TForm1.TCPServerOnExecute(AContext: TIdContext); var tmp,strText: String; en:IIDTextEncoding; h:integer; st:TstringList; begin try en:=IndyTextEncoding(IdTextEncodingType.encUTF8); strText:=AContext.Connection.Socket.ReadLn(en); strText := StringReplace(strText, chr(12),chr(13)+chr(10),[rfReplaceAll, rfIgnoreCase]); st:=TstringList.Create; st.Text:=strText; form1.Config.TopicName.Clear; form1.Config.MYSQL_Server.Clear; form1.Config.MYSQL_Port.Clear; form1.Config.MYSQL_DataBase.Clear; form1.Config.MYSQL_TableName.Clear; form1.Config.MYSQL_TableRowName.Clear; form1.Config.MYSQL_TableRowCount.Clear; form1.Config.MYSQL_TableWriteTime.Clear; form1.Config.MYSQL_HTTP_API.Clear; h:=0; while h<=st.Count-1 do begin tmp:=st.Strings[h]; delete(tmp,pos(chr(9),tmp),length(tmp)); form1.Config.TopicName.Add(tmp); tmp:=st.Strings[h]; delete(tmp,1,pos(chr(9),tmp)); delete(tmp,pos(chr(9),tmp),length(tmp)); form1.Config.MYSQL_Server.Add(tmp); tmp:=st.Strings[h]; delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,pos(chr(9),tmp),length(tmp)); form1.Config.MYSQL_Port.Add(tmp); tmp:=st.Strings[h]; delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,pos(chr(9),tmp),length(tmp)); form1.Config.MYSQL_DataBase.Add(tmp); tmp:=st.Strings[h]; delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,pos(chr(9),tmp),length(tmp)); form1.Config.MYSQL_TableName.Add(tmp); tmp:=st.Strings[h]; delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,pos(chr(9),tmp),length(tmp)); form1.Config.MYSQL_TableRowName.Add(tmp); tmp:=st.Strings[h]; delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,pos(chr(9),tmp),length(tmp)); form1.Config.MYSQL_TableRowCount.Add(tmp); tmp:=st.Strings[h]; delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,pos(chr(9),tmp),length(tmp)); form1.Config.MYSQL_TableWriteTime.Add(tmp); tmp:=st.Strings[h]; delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,1,pos(chr(9),tmp)); delete(tmp,pos(chr(9),tmp),length(tmp)); form1.Config.MYSQL_HTTP_API.Add(tmp); inc(h); end; except end; try st.Free; except end; end; end.
  10. Александр Лукьянов (Filament Extruder 1.75)

    Планируется ли компилятор для Linux?

    И как оно? Даже представить не могу
  11. Александр Лукьянов (Filament Extruder 1.75)

    Orange pi h5/h6 , Linux x64+Delphi?

    Aliwinner h5 все таки сможет собрать мое приложение или нет?????
  12. Александр Лукьянов (Filament Extruder 1.75)

    объясните на пальцах как убрать стиль

    Да, я хочу виндовый, но на первом скрине он какой то не виндовый. Прозрачные кнопки. Приложение под android
  13. Александр Лукьянов (Filament Extruder 1.75)

    переход на tokio

    на сколько я понял у моей рабочей области (реальный компонент Panel4) установлено событие MyResize и оно вызывается раньше чем Form.create где прописано что объект нужно создать (сама ошибка возникала в setWidhtHight)
  14. Александр Лукьянов (Filament Extruder 1.75)

    переход на tokio

    кое как определил сбойный участок. спасибо ребята. правильным порядком оказалось удаление кода/компонентов -когда совсем не понятно что происходит. код сначала выполняет тут (до create) procedure TForm1.MyResize(Sender: TObject); begin if TControl(Sender).Width < 120 then TControl(Sender).Width := 120; if TControl(Sender).Height < 120 then TControl(Sender).Height := 120; setWidhtHight(TControl(Sender).Width, TControl(Sender).Height); end;
  15. Александр Лукьянов (Filament Extruder 1.75)

    переход на tokio

    да, есть, но контрольная точка там не срабатывает. ошибка раньше возникает procedure TForm1.FormCreate(Sender: TObject); var st:TstringList; begin StringGrid1.OnDblClick := StringGrid1myDblClick; StringGrid2.OnDblClick := StringGrid2myDblClick; Form1.Profiles.SettingStream := TObjectList<TControl>.Create; Form1.Profiles.TypeName := TstringList.Create; Form1.Profiles.ActionList := TstringList.Create; Form1.Profiles.PropertList := TstringList.Create; Form1.EhomeSmartDir := GetEhomeSmartDir; // получаем директорию профилей // путь хранения C:\Users\Public\Documents\Fuzy for Windows Form1.SetupDir := System.SysUtils.ExtractFilePath(paramStr(0)); // путь установки программы