Orange Pi 5(RK3588S) : Delphi로 만든 프로그램 실행

출처

• How to Develop Applications for the Raspberry Pi with Delphi 11
• TMS Software | Blog | Miletus brings Raspberry Pi target in Delphi
• Overview - Miletus

Delphi로 ARM CPU용 리눅스 프로그램 만들기

TMS에서 제공하는 컴포넌트를 이용해서 Raspberry PI 런타임 모듈을 첨부한 파일을 Orange Pi에서 실행해보았다. Orange Pi 정식 제공하는 OS에서는 실행에 오류가 있었고, Armbian 리눅스에서 정상적으로 실행되는 것을 확인

프로젝트 생성

[File] - [New] - [Other...] 메뉴 선택

[TMS WEB Miletus Application] 메뉴 선택

화면 구성 - 버튼, 에디트박스 추가

버튼 클릭 이벤트 구현

unit Unit1;

interface

uses
  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,
  WEBLib.Forms, WEBLib.Miletus, WEBLib.Dialogs, Vcl.StdCtrls, WEBLib.StdCtrls,
  Vcl.Controls;

type
  TForm1 = class(TMiletusForm)
    WebEdit1: TWebEdit;
    WebButton1: TWebButton;
    procedure WebButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WebButton1Click(Sender: TObject);
begin
  WebEdit1.Text := 'hello world !!!';
end;

initialization
  RegisterClass(TForm1);

end.

Build Configurations - Build-Raspberry-Pi64로 변경

실행

런타임 라이브러리 설치

orangepi@orangepi5:~$ sudo apt install libwebkit2gtk-4.0-dev

TMSWeb\Build-Raspberry-Pi64 폴더의 Project1 파일을 리눅스에 복사하고 실행 모드 적용 후 실행