Size: a a a

2020 October 17

А

А in Delphi & Lazarus
Сергей
ваще цель:  консоль StartFTP + Test.exe
StartFTP проверяет есть Test.exe на локальной машине и если нет - создаётс форма с Прогрессбаром и копирует, так вот для Прогрессбара нужно в iDFTP.onWork и iDFTP.onWorkBegin обрабатывать процес скачивания, а если файл на локале есть - запустить этот файл с локала
заготовка
источник

С

Сергей in Delphi & Lazarus
ок...СПС!!!
источник

AS

Alexey Shumkin in Delphi & Lazarus
Сергей
ваще цель:  консоль StartFTP + Test.exe
StartFTP проверяет есть Test.exe на локальной машине и если нет - создаётс форма с Прогрессбаром и копирует, так вот для Прогрессбара нужно в iDFTP.onWork и iDFTP.onWorkBegin обрабатывать процес скачивания, а если файл на локале есть - запустить этот файл с локала
Консольное приложение с гуёвым прогрессом? Мсье знает толк 😁
источник

AS

Alexey Shumkin in Delphi & Lazarus
Сергей
для начала попробую добавить дата модуль...
Ох...
Делаешь класс-наследник фтп-клиента. У него объявляешь метод-обработчик, в конструкторе/AfterConstruction присваиваешь OnWork - profit...
источник

AS

Alexey Shumkin in Delphi & Lazarus
Кнопко-кидатели, блин...
источник

AS

Alexey Shumkin in Delphi & Lazarus
показываю на примере , не знаю, TTimer
type
TDerivedTimer = class(TTimer)
private
 procedure MyTimerHandler(Sender: TObject);
public
 constructor Create;
end;

implementation

constructor TDerivedTimer.Create;
begin
 inherited Create(nil);
 OnTimer := MyTimerHandler;
end;
...
источник

MS

Mr. Show in Delphi & Lazarus
Доброго времени суток. Подскажите почему тк, на форме текст на русском а при исполнении кода на англ
источник
2020 October 18

MS

Mr. Show in Delphi & Lazarus
источник

Д

Дмитрий in Delphi & Lazarus
Mr. Show
Доброго времени суток. Подскажите почему тк, на форме текст на русском а при исполнении кода на англ
Смотрите исходный код, ответ там.
источник

MS

Mr. Show in Delphi & Lazarus
Дмитрий
Смотрите исходный код, ответ там.
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
 form1.close;
end;    🤷‍♂️
источник

Д

Дмитрий in Delphi & Lazarus
Mr. Show
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
 form1.close;
end;    🤷‍♂️
Исходный код это не только pas файл.
источник

ВГ

Вадим Гунько... in Delphi & Lazarus
Mr. Show
Доброго времени суток. Подскажите почему тк, на форме текст на русском а при исполнении кода на англ
Подключи i18n.
источник

MS

Mr. Show in Delphi & Lazarus
Вадим Гунько
Подключи i18n.
Спасибо. Все разрешилось
источник

MS

Mr. Show in Delphi & Lazarus
Свойство KIND поставил Custom и все разрешилось
источник

MS

Mr. Show in Delphi & Lazarus
При создании базы без указания пути create database '192.168.100.100:test.fdb' user 'xuser' password 'xpass'; база создается в директории /tmp на удаленном хосте. Может есть способ как-то по дефолту задать директорий с базами ? Например /fdatabase
источник

AK

Alexey Kulakov in Delphi & Lazarus
в лазаре вижу пример на дроп файлов на форму. а для консольной проги это как делать? Есть какой-то метод ещё или только через модуль Forms и TApplicationProperties?
источник

AK

Alexey Kulakov in Delphi & Lazarus
ладно, запуск через  бросание и ParamStr в проге пока достаточно
источник

М

Михаил in Delphi & Lazarus
Alexey Kulakov
ладно, запуск через  бросание и ParamStr в проге пока достаточно
Нет, сделай нормально
источник
2020 October 19

GB

George Bakhtadze in Delphi & Lazarus
Михаил
Нет, сделай нормально
рассказывай как именно
источник

AS

Alexey Shumkin in Delphi & Lazarus
Alexey Kulakov
в лазаре вижу пример на дроп файлов на форму. а для консольной проги это как делать? Есть какой-то метод ещё или только через модуль Forms и TApplicationProperties?
насколько я знаю, ты хочешь невозможного ))
источник