delphi代码在linux编译运行,Delphi - 如何执行Windows、OSX、Linux的外部程序？

毫无疑问，几乎对所有Delphi程序员来说，不用说如何在Windows下如何执行外部程序了！目前Delphi，真的已经很棒了，Delphi有一套和VCL并驾齐驱的图形界面库，叫做"FireMonkey"，如果你仅仅想编写Windows程序，而且要调用Windows平台的API，那么肯定VCL是首选，没有其它！但是，如果你想下定决心，跟随Delphi的脚步，进入更广阔的开发天地，那么你也没有第二种选择，只有选择Multi-Device Applications，它支持的平台：

PC：Windows、OSX、Linux

Mobile：Android、IOS

FireMokey跨平台开发英文版PDF格式图书下载 此图书为Embarcadero 2017年度MVP写的图书！

更多实际编程，需要自己去摸索了，我今天就是要说如何在Delphi中，执行Windows、OSX、Linux的外部程序？在Windows中通常都是shellExecute，在OSX和linux中，应该是有两种方式执行外部程序：

方式一：下面代码我在windows下测试完毕，由于最近比较忙，所以OSX和linux没有测试，但是应该没有什么问题，只要把程序前面的条件编译修改成对应操作系统，而且对应操作系统安装了PAServer，在Delphi里面配置好了，选择编译平台，编译运行就可以了！

programProject1;{$APPTYPE CONSOLE}

{$R *.res}

//通过此条件编译指令，分别执行哪个操作系统代码{$DEFINE MSWINDOWS}

usesSystem.SysUtils,{$IF DEFINED (LINUX) or DEFINED (MACOS)}POSIX.Stdlib,{$ENDIF}

{$IFDEF MSWINDOWS}Windows,

ShellApi;{$ENDIF}

{运行程序方法

prog:要运行程序全路径名称}

procedure RunProg(prog: string);begin

//windows条件编译{$IFDEF MSWINDOWS}ShellExecute(0, 'open', Pchar(prog), nil, nil, SW_SHOWNORMAL);{$ENDIF}

//OSX条件编译{$IFDEF MACOS}_system(PAnsiChar('open' +AnsiString(prog)));{$ENDIF}

//linux条件编译{$IFDEF LINUX}_system(MarshaledAString(UTF8String(prog)));{$ENDIF}

end;varrunExe:string; //要执行程序变量

begin

try

//提示信息

writeln('请输入要执行程序全路径名称:');//读取要执行程序全路径名称

readln(runExe);//运行输入的程序

RunProg(runExe);excepton E: Exceptiondowriteln(E.ClassName,':', E.Message);end;end.

方式二：

programmyls;{$APPTYPE CONSOLE}

{$R *.res}

usesSystem.SysUtils,

Posix.Base,

Posix.Fcntl;typeTStreamHandle=pointer;/// /// Man Page: http://man7.org/linux/man-pages/man3/popen.3.html///

function popen(const command: MarshaledAString; const _type: MarshaledAString): TStreamHandle; cdecl; external libc name _PU + 'popen';/// /// Man Page: http://man7.org/linux/man-pages/man3/pclose.3p.html///

function pclose(filehandle: TStreamHandle): int32; cdecl; external libc name _PU + 'pclose';/// /// Man Page: http://man7.org/linux/man-pages/man3/fgets.3p.html///

function fgets(buffer: pointer; size: int32; Stream: TStreamHAndle): pointer; cdecl; external libc name _PU + 'fgets';/// /// Utility function to return a buffer of ASCII-Z data as a string.///

function BufferToString( Buffer: pointer; MaxSize: uint32 ): string;varcursor: ^uint8;

EndOfBuffer: nativeuint;beginResult := '';if not assigned(Buffer) then beginexit;end;

cursor :=Buffer;

EndOfBuffer := NativeUint(cursor) +MaxSize;while (NativeUint(cursor)0) do beginResult := Result +chr(cursor^);

cursor :=pointer( succ(NativeUInt(cursor)) );end;end;varHandle: TStreamHandle;

Data:array[0..511] ofuint8;begin

tryHandle := popen('/bin/ls -lart','r');try

while fgets(@data[0],Sizeof(Data),Handle)<>nil do beginWrite(BufferToString(@Data[0],sizeof(Data)));end;finallypclose(Handle);end;excepton E: ExceptiondoWriteln(E.ClassName,':', E.Message);end;end.

方式二我还没有测试，但是应该是没有问题的，这个国外一个程序员写的代码，在他录制的视频中，就是这段代码，可以在linux下正常执行！方式二和方式一比较，一个不同点是能够获取到程序运行返回的信息！

参考：