RSS订阅 | 匿名投稿
您的位置:网站首页 > 技巧 > 正文

Delphi - 如何执行Windows、OSX、Linux的外部程序?

作者:admin 来源: 日期:2019/7/1 17:48:02 人气: 标签:

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写的图书!

Multi-Device Applications的控制台程序,支持上述所有平台!!Multi-Device Applications的图形界面库只有一种,就是FireMonkey!!!开发Multi-Device Applications时候,Delphi的RTL库几乎全部都可以使用,大多数在system单元中!!

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

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

program Project1;

 

{$APPTYPE CONSOLE}

{$R *.res}

 

//通过此条件编译指令,分别执行哪个操作系统代码

{$DEFINE MSWINDOWS}

 

uses

  System.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;

 

var

  runExe: string; // 要执行程序变量

 

begin

  try

    // 提示信息

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

 

    // 读取要执行程序全路径名称

    readln(runExe);

 

    // 运行输入的程序

    RunProg(runExe);

 

  except

    on E: Exception do

      writeln(E.ClassName, ': ', E.Message);

  end;

 

end.

 

方法2:

program myls;

{$APPTYPE CONSOLE}

{$R *.res}

 

uses

  System.SysUtils,

  Posix.Base,

  Posix.Fcntl;

 

type

  TStreamHandle = pointer;

 

///  <summary>

///    Man Page: http://man7.org/linux/man-pages/man3/popen.3.html

///  </summary>

function popen(const command: MarshaledAString; const _type: MarshaledAString): TStreamHandle; cdecl; external libc name _PU + 'popen';

 

///  <summary>

///    Man Page: http://man7.org/linux/man-pages/man3/pclose.3p.html

///  </summary>

function pclose(filehandle: TStreamHandle): int32; cdecl; external libc name _PU + 'pclose';

 

///  <summary>

///    Man Page: http://man7.org/linux/man-pages/man3/fgets.3p.html

///  </summary>

function fgets(buffer: pointer; size: int32; Stream: TStreamHAndle): pointer; cdecl; external libc name _PU + 'fgets';

 

///  <summary>

///    Utility function to return a buffer of ASCII-Z data as a string.

///  </summary>

function BufferToString( Buffer: pointer; MaxSize: uint32 ): string;

var

  cursor: ^uint8;

  EndOfBuffer: nativeuint;

begin

  Result := '';

  if not assigned(Buffer) then begin

    exit;

  end;

  cursor := Buffer;

  EndOfBuffer := NativeUint(cursor) + MaxSize;

  while (NativeUint(cursor)<EndOfBuffer) and (cursor^<>0) do begin

    Result := Result + chr(cursor^);

    cursor := pointer( succ(NativeUInt(cursor)) );

  end;

end;

 

var

  Handle: TStreamHandle;

  Data: array[0..511] of uint8;

 

begin

  try

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

    try

      while fgets(@data[0],Sizeof(Data),Handle)<>nil do begin

        Write(BufferToString(@Data[0],sizeof(Data)));

      end;

    finally

      pclose(Handle);

    end;

  except

    on E: Exception do

      Writeln(E.ClassName, ': ', E.Message);

  end;

end.

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

参考:

https://www.youtube.com/watch?v=4gDPqq8H-xw

https://chapmanworld.com/2017/04/06/calling-linux-commands-from-delphi/

来源:https://www.cnblogs.com/sunylat/p/9855842.html


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料