Linux. Команды.

[Swel]

Как на Linux будут выглядеть следующий код:

procedure TForm1.Button1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState
);
begin
If key=VK_RETURN then
SetCursorPos(Form1.Left+Button2.Left+1,Form1.Top+Button2.Top+1);
check:=true;
end;

Добавлено спустя 16 минут 47 секунд:
В место VK_RETURN надо использовать $0D, а Чем заменить SetCursorPos не знаю, подскажите пожалуйста!

[evb87ar]

Swel, вместо $0D надо использовать VK_RETURN, эти коды определены в модуле LCLType.

По поводу SetCursorPos ничего сказать не могу

Нашёл только немного переделанный mouse.inc
http://lazarus.sourcearchive.com/docume ... ource.html
По-идее можно его использовать.

[Swel]

Благодаря модулю LCLType заработал и SetCursorPos

[Swel]

У нас есть команда воспроизведения звука: FpSystem('aplay /home/swel/Загрузки/sirena_1_5/1.wav');
Вопрос: Как сделать чтобы этот звук воспроизводился постоянно?

[evb87ar]

А вот у меня SetCursorPos так и не появился
Swel, какие ещё модули у вас использованы?

[Swel]

Вот код всей программы:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Unix, LCLIntf;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;
check:boolean;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState
);
begin
If key=$0D then
SetCursorPos (Form1.Left+Button2.Left+1,Form1.Top+Button2.Top+1);
check:=true;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
If check=true then
FpSystem('aplay /home/swel/Загрузки/sirena_1_5/1.wav');
end;

end.

Но меня не устраивает воспроизведение звука, можно как-нибудь сделать что бы он воспроизводился постоянно и не прерывно?

[evb87ar]

Наверное для этого надо использовать TProcess. Но я не знаю как это работает в-точности. Будет ли после команды aplay процесс ждать завершение команды, или же посчитает, что команда передана и можно завершаться.
По крайней мере с командой ping всё проходит нормально.

Сама суть:
Создаёте процесс, кидаете команду, кидаете параметры, запускаете, после завершения процесса повторяете снова.

Оф.инфа:
http://wiki.freepascal.org/Executing_Ex ... rograms/ru

[Swel]

evb87ar, напиши код, если не трудно)

[evb87ar]

Код: Выделить всё

   AProcess := TProcess.Create(nil);

   while not flag_Cancel do begin
      // Сообщим AProcess сомандную строку для запуска
      AProcess.CommandLine := 'aplay /home/swel/Загрузки/sirena_1_5/1.wav';

      // Необходимо описать опции программы для запуска
      // Эта опция не позволит нашей программе выполнятся до тех пор, пока
      // запущенная программа не закончится
      AProcess.Options := AProcess.Options + [poWaitOnExit];

      // Теперь AProcess знает командную строку
      // и мы ее запускаем
      AProcess.Execute;
   end;
   // Пока ppc386 не прекратит работу, мы досюда не дойдем
   AProcess.Free;


Наверное так. С консолью я работал постольку-поскольку. Больше разовые операции писал, нежели заставлял что-то там делать извращённое.

[evb87ar]

Swel, спасибо. Нашёл, SetCursorPos прячется в LCLIntf. +10 к опыту.

[ev]

Swel
может стоит начать писать более корректные названия тем

[SSerge]

Но меня не устраивает воспроизведение звука, можно как-нибудь сделать что бы он воспроизводился постоянно и не прерывно?

Дорогой мой, то что вы проделываете, к воспроизведению звука как такового, не имеет ни малейшего отношения. Хоть сто раз заморочьтесь средсвами библиотеки для контроля процесса. Суть использованного метода (дебильного метода, надо сказать!) - вы вызываете некую внешнюю программу и передаете ей какие-то аргументы (имя файла) в командной строке. Поведение программы зависит от того, как ее написали. Так что, идем в мануал на ваш aplay и смотрим, есть ли опции командной строки, позволяющие зациклить воспроизведение. Если есть, дописываем к вызову и пользуемся. Если нет - ищем другой плеер или наконец то озадачиваемся прямым взаимодействием с alsa или pulseaudio. Мне не удалось доселе найти адекватную технологию замены функций воспроизведения звука из windows directX, все просмотренные реализации были близки к категории "почти полное говно".