powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Выполнение команд из memo
17 сообщений из 17, страница 1 из 1
Выполнение команд из memo
    #40040104
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Добрый день.
хочу сделать программу для макросов. Что бы можно было в мемо написать последовательность действий, а программа их выполняла. Типа Macros Effects, Oscar Mouse Editor и тд..
Не понимаю, как считывать команды из мемо?
...
Рейтинг: 0 / 0
Выполнение команд из memo
    #40040106
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Use TMemo.Lines, Luke!
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Выполнение команд из memo
    #40040107
asutp2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Tech N9ne,

можно например использовать (как вариант) TMS Scripter, поддерживается pascal и basic
...
Рейтинг: 0 / 0
Выполнение команд из memo
    #40040108
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
FastScript
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
uses FS_iInterpreter;
procedure TForm1.Button1Click(Sender: TObject);
begin
 fsScript1.Clear; // do this if you running many scripts from one
component
 fsScript1.Lines.Text := Memo1.Lines.Text;
 fsScript1.Parent := fsGlobalUnit;
 fsScript1.SyntaxType := 'PascalScript';
 if fsScript1.Compile then
 fsScript1.Execute else
 ShowMessage(fsScript1.ErrorMsg);
end;
...
Рейтинг: 0 / 0
Выполнение команд из memo
    #40040123
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DimaBr
FastScript
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
uses FS_iInterpreter;
procedure TForm1.Button1Click(Sender: TObject);
begin
 fsScript1.Clear; // do this if you running many scripts from one
component
 fsScript1.Lines.Text := Memo1.Lines.Text;
 fsScript1.Parent := fsGlobalUnit;
 fsScript1.SyntaxType := 'PascalScript';
 if fsScript1.Compile then
 fsScript1.Execute else
 ShowMessage(fsScript1.ErrorMsg);
end;


Кажется вы меня не правильно поняли.
погуглив еще минут 10)) понял, что мне нужен интерпретатор.. (если не ошибаюсь)
То-есть нужно нечто типа автокликера, в котором есть свои команды
как на скринах


Будьте добры, подскажите простенький интерпретатор, с которым легко работать..
...
Рейтинг: 0 / 0
Выполнение команд из memo
    #40040133
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Tech N9ne
Будьте добры, подскажите простенький интерпретатор, с которым легко работать..

FastScript - интерпритатор ЧЕТЫРЁХ языков.
...
Рейтинг: 0 / 0
Выполнение команд из memo
    #40040138
asutp2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Tech N9ne,

для начала прочитайте свое первое сообщение.
...
Рейтинг: 0 / 0
Выполнение команд из memo
    #40040139
asutp2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DimaBr,

после просмотра исходников желание пользоваться продуктами fastreport быстро проходит)))))
...
Рейтинг: 0 / 0
Выполнение команд из memo
    #40040143
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DimaBr
Tech N9ne
Будьте добры, подскажите простенький интерпретатор, с которым легко работать..

FastScript - интерпритатор ЧЕТЫРЁХ языков.

Она платная, триальная версия при каждом срабатывании скрипта выводит окошко, с информацией о том, что это триал.
во вторых после установки на 10.3, при запуске delphi появляются несколько окошек с уведомлением об ошибках..
один из них на скрине.

в третьих, на сколько я понял(естественно могу ошибаться, в силу своей неопытности), этот фаст репорт, дает возможность писать код Delphi в мемо и выполнять его. Это мне не нужно...

......... Есть же автокликеры, да? как на скриншоте в предыдущем моем посте.
Там редактор кода. Delphi же не вкурсе, что такое
wait 3s
left 100, 200
Мне нужен свой небольшой язык, который delphi будет понимать.
Я не могу правильно сформулировать вопрос, и задаю его так, как могу, вы уж простите.
...
Рейтинг: 0 / 0
Выполнение команд из memo
    #40040147
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Tech N9ne
Мне нужен свой небольшой язык, который delphi будет понимать.

Ну и напиши свой собственный интерпретатор.
...
Рейтинг: 0 / 0
Выполнение команд из memo
    #40040149
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Tech N9ne
DimaBr
пропущено...

FastScript - интерпритатор ЧЕТЫРЁХ языков.

Она платная, триальная версия при каждом срабатывании скрипта выводит окошко, с информацией о том, что это триал.
во вторых после установки на 10.3, при запуске delphi появляются несколько окошек с уведомлением об ошибках..
один из них на скрине.


у тебя библиотека криво установилась, триал тут ни при чём
...
Рейтинг: 0 / 0
Выполнение команд из memo
    #40040167
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вопрос закрыт
тут нашёл подробный пример, с Pascalscript
...
Рейтинг: 0 / 0
Выполнение команд из memo
    #40040179
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Tech N9ne
Она платная

Так она в поставке Delphi
Tech N9ne

на сколько я понял(естественно могу ошибаться, в силу своей неопытности), этот фаст репорт, дает возможность писать код Delphi в мемо и выполнять его. Это мне не нужно...

А что нужно ?
Tech N9ne

Мне нужен свой небольшой язык, который delphi будет понимать.

FastScript "понимает" delphi
...
Рейтинг: 0 / 0
Выполнение команд из memo
    #40040185
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DimaBr
Tech N9ne
Она платная

Так она в поставке Delphi
Tech N9ne

на сколько я понял(естественно могу ошибаться, в силу своей неопытности), этот фаст репорт, дает возможность писать код Delphi в мемо и выполнять его. Это мне не нужно...

А что нужно ?
Tech N9ne

Мне нужен свой небольшой язык, который delphi будет понимать.

FastScript "понимает" delphi

Я уже нашёл что хотел.
Если вы по прежнему не понимаете что мне было нужно, посмотрите на скриншоты программ, которые я привел ранее.
В редакторе кода этих програм есть код, который написан не на дельфийском.
Вот мне и было интересно, каким образом можно делать подобные программы..

Что бы не писать в мемо
var p: tpoint;
begin
setcursorpos(p.x, p.y);
эмуляция клика..
end.

А просто left(x,y);
...
Рейтинг: 0 / 0
Выполнение команд из memo
    #40040209
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Tech N9ne

Что бы не писать в мемо
var p: tpoint;
begin
setcursorpos(p.x, p.y);
эмуляция клика..
end.

А просто left(x,y);


Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
procedure left(x,y: integer);
  var p: tpoint;
begin
  setcursorpos(p.x, p.y);
  эмуляция клика..
end.

left(x,y);
...
Рейтинг: 0 / 0
Выполнение команд из memo
    #40040221
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Tech N9ne
DimaBr
пропущено...

Так она в поставке Delphi
пропущено...

А что нужно ?
пропущено...

FastScript "понимает" delphi

Я уже нашёл что хотел.
Если вы по прежнему не понимаете что мне было нужно, посмотрите на скриншоты программ, которые я привел ранее.
В редакторе кода этих програм есть код, который написан не на дельфийском

в итоге ты и нашёл "на дельфийском" 22271863
...
Рейтинг: 0 / 0
Выполнение команд из memo
    #40040323
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В итоге ты нашёл библиотеку RemObject, вместо той, что у тебя уже есть - FastScript
...
Рейтинг: 0 / 0
17 сообщений из 17, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Выполнение команд из memo
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]