Всем привет.
Не так давно выложил статью про бота.
И вот тут меня зацепил) один комментарий.
Уже в момент создания бота в голове крутилась реализация десктопного GUI-заменителя).
Сложности я там не увидел. Но шо-то народ говорит сложно. Не попробуешь - не узнаешь), а тут удалось выкроить немного свободного времени. Погнали)
Качаю Delphi 11CE (бесплатная, письма с ссылками приходили на яндекс-почту), ставлю Python4Delphi - увязывает между собой ЯП и Delphi4PythonExporter - позволяет экспортировать GUI на Delphi в Python (не пригодился).
Мгновенно набрасываю минимальный интерфейс:
Из кода бота на Python вырезаю все лишнее и получаю вроде как шаблон, который и будет грузиться в компонент memo формы:
# pip install yadisk # pip install delphivcl import yadisk # токен яндекс диска y = yadisk.YaDisk(token='абра-кадабра от яндекса') ##search_dir = 'GOST' ## ##find_str = '1811' if y.check_token(): # ищем в папке поиска документ содержащий запрос if not y.is_dir('/'+search_dir): print('Папка ' + search_dir +' не обнаружена. Шо-то поломалось. Извините.') else: Spis = [] for item in y.listdir(search_dir): if find_str in item['name']: if len(Spis) < 7: print('Обнаружен документ: ') print(item['name'].encode().decode("ansi")) Spis.append(item['name']) if len(Spis) == 0: print('Извините, пока такого документа в папке '+ search_dir +' не нашлось.') if len(Spis) == 1: # ------------даем ссылку на файл------------------- y.publish('/'+search_dir+'/'+Spis[0]) # делаем публичный файл # шлем ссылку print(y.get_meta('/'+search_dir+'/'+Spis[0]).public_url) if len(Spis) > 1: print('Найдено документов: '+str(len(Spis)) + '. Уточните запрос:') else: print('Извините по каким-то причинам диск не доступен. Попробуйте в другой раз')
Попутно убираю файл с настройками, токен всовываю в скрипт.
В скрипт питона думал сначала передавать папку поиска и запрос через текстовые файлы. Хотя и есть компоненты. Но потом подумал - таки это ж я могу и после загрузки скрипта в компонент memo вставить нужные строки:
Memo2.Lines.Insert(0, 'search_dir = "'+ComboBox1.Text+'"'); Memo2.Lines.Insert(0, 'find_str = "'+Edit1.Text+'"');
Питон гибкий). Таким образом избегаю сложностей по обмену данными между 2-мя системами и использую только 2 компонента пакета P4D - PythonEngine1: TPythonEngine и PythonGUIInputOutput1: TPythonGUIInputOutput.
Получаю структуру для минимально рабочего приложения:
Вся работа с приложением сводится к выбору папки поиска, ввода запроса и нажатия кнопки. После в невидимый memo2 грузится скрипт, добавляются нужные строки, запускается выполнение, все сообщения от скрипта через print возвращаются в memo1.
unit Unit2; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, PythonEngine, Vcl.PythonGUIInputOutput, SynEdit; type TForm2 = class(TForm) Memo1: TMemo; Edit1: TEdit; Splitter1: TSplitter; Panel1: TPanel; Label1: TLabel; ComboBox1: TComboBox; Button1: TButton; PythonEngine1: TPythonEngine; PythonGUIInputOutput1: TPythonGUIInputOutput; Memo2: TMemo; SynEdit1: TSynEdit; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin Memo1.Clear; SynEdit1.Clear; SynEdit1.Lines.Add('Запускаю поиск по запросу: '); SynEdit1.Lines.Add(Edit1.Text); SynEdit1.Lines.Add('В папке: '+ComboBox1.Text); Application.ProcessMessages; Memo2.Clear; Memo2.Lines.LoadFromFile('bot_no_tg.py'); // добавляем в скрипт папку поиска и запрос Memo2.Lines.Insert(0, 'search_dir = "'+ComboBox1.Text+'"'); Memo2.Lines.Insert(0, 'find_str = "'+Edit1.Text+'"'); PythonEngine1.ExecStrings( Memo2.Lines ); Memo1.Visible:=false; Application.ProcessMessages; Memo1.Text:=Utf8ToAnsi(memo1.Text); Memo1.Visible:=true; Application.ProcessMessages; end; procedure TForm2.FormCreate(Sender: TObject); begin Memo1.Clear; Memo2.Clear; SynEdit1.Clear; end; end.
Практически повторен функционал бота. Рюшечек конечно можно добавить, но пока не интересно).
Из подводный камней:
разрядность систем надо соблюдать: если приложение для х64, то и Python х64,
пришлось повозится с кодировками и добавить 1)Delphi: Memo1.Text:=Utf8ToAnsi(memo1.Text); 2)Python: print(item['name'].encode().decode("ansi")),
debug и release имеют очень разные объемы конечного exe файла, а еще и рабочие папки разные. И папки для версий тоже разные.
изначально Python у меня был установлен, потом поставилась Delphi, потом в нее нужные компоненты. В момент установки они подхватили зарегистрированную в системе версию Python. При переносе на другую систему эти связи теряются и прога не работает. В инете скудновато, но есть инфа как программно сделать соответствующие привязки. Вроде даже пишут, шо можно и портабле версию использовать. Вот работу на другом компе я проверил в виртуал-боксе (см ниже).
На самом деле очень много времени отняла эта борьба с кодировками - кряко-зяблы лезли. Пришлось много полопатить разной инфы и много чего пробовать. Думал уже не победю, но как-то само заработало). Компонент memo туповат для этого - не может строки нормально отображать в разных кодировках. Полез даже SynEdit ставить, но и он не помог. Так что можно было и без него обойтись. Да и компонент memo на 1шт можно сократить.
Ура, заработало:
Кнопку "очистить" - убрал впоследствии, и так все многострочные компоненты чистятся).
Для проверки в виртуал-боксе качаю tiny10 23h1 x64, ставлю, через ISO закидываю экзешник со скриптом. Пробую. Без питоновской dll не запустилось. Да еще и версию другую затребовало (на моем компе 3.11х64 и работает), наверное по умолчанию что-то.
