Delphi Firemonkey Unix API And Windows API

PHP Code


<?php 
unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Objects, FMX.ListBox,
  FMX.Layouts, FMX.Memo, FMX.Edit, Posix.Stdlib, Posix.UniStd;

type
  TMainForm = class(TForm)
    SystemGroupBox: TGroupBox;
    SpeechEdit: TEdit;
    SpeakBn: TButton;
    POpenGroupBox: TGroupBox;
    PipeMemo: TMemo;
    CmdEdit: TEdit;
    ExecuteBn: TButton;
    CmdGroupBox: TGroupBox;
    bCmdList: TListBox;
    OpenGroupBox: TGroupBox;
    FileCmdGroupBox: TGroupBox;
    OpenFileGroupBox: TGroupBox;
    OpenEdit: TEdit;
    OpenBn: TButton;
    AuthorLabel: TLabel;
    siteLabel: TLabel;
    fCmdList: TListBox;
    procedure SpeakBnClick(Sender: TObject);
    procedure SpeechEditKeyDown(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
    procedure bCmdListChange(Sender: TObject);
    procedure fCmdListChange(Sender: TObject);
    procedure OpenBnClick(Sender: TObject);
    procedure ExecuteBnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.fmx}

procedure TMainForm.bCmdListChange(Sender: TObject);
begin
//if an item is selected on change the command edit to the selected text
if bCmdList.ItemIndex <> -1 then
  cmdEdit.Text := bCmdList.Items.Strings[bCmdList.ItemIndex];
end;

procedure TMainForm.ExecuteBnClick(Sender: TObject);
begin
  ShowMessage('This is not implemented yet. I am trying to find a header that has piping without bugs.');
end;

procedure TMainForm.fCmdListChange(Sender: TObject);
begin
//if an item is selected on change the open edit text is change to selected text
if fCmdList.ItemIndex <> -1 then
begin
  OpenEdit.Text := fCmdList.items.Strings[fCmdList.ItemIndex];
end;
end;

procedure TMainForm.OpenBnClick(Sender: TObject);
begin
//open a program on the system
if Trim(OpenEdit.Text) <> '' then
  Posix.Stdlib._system(PAnsiChar( 'open ' + AnsiString(OpenEdit.Text)));
end;

procedure TMainForm.SpeakBnClick(Sender: TObject);
begin
  //if speechedit is not empty continue
  if Trim(SpeechEdit.Text) <> '' then
  begin
    Posix.Stdlib._system(PAnsiChar( 'say ' + AnsiString(SpeechEdit.Text)));  //execute system api call and say program on mac
    SpeechEdit.Text := ''; //clear text
  end;
end;

procedure TMainForm.SpeechEditKeyDown(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin
//if key equals return
if KeyChar = #0 then
  SpeakBnClick(nil); //execute click event on SpeakBn
end;

end.