Question

我使用-slave命令（ftp://ftp2.mplayerhq.hu/MPlayer/DOCS/tech/slave.txt）在Windows中使用管道控制了mplayer，但我不知道如何在MacOS中执行此操作。因为MacOS的开发对我来说是新的，所以，我脑子里仍然有Windows概念。所以，我决定在OSX中也使用Pipe。这是我创建Pipe的代码：

uses
  Macapi.ObjectiveC,Macapi.ObjCRuntime,
  Macapi.Foundation;

var
  LArray: array of Pointer;
  LArgs: NSArray;
  LTask: NSTask;
  LPipe: NSPipe;
  fileHandler: NSFileHandle;

  function RawStr(const Str: string): Pointer;
  begin
    Result := TNSString.OCClass.stringWithUTF8String(PAnsiChar(UTF8String(Str)));
  end;

  procedure runInMacOSX;
  var
    data : NSData;
    nsText : NSString;
  begin
    LArgs := TNSArray.Create;
    setlength(LArray, 2);
    LArray[0] := RawStr('/test.avi');
    LArray[1] := RawStr('-slave');
    LArgs := TNSArray.Wrap(TNSArray.Alloc.initWithObjects(@(LArray[0]), 2));
    LTask := TNSTask.Wrap(TNSTask.Alloc.init);
    LPipe := TNSPipe.Create;
    fileHandler := TNSFileHandle.Create;

    LTask.setLaunchPath(NSStr('/mplayer'));
    LTask.setArguments(LArgs);
    LTask.setStandardOutput((LPipe as ILocalObject).GetObjectID);
    fileHandler := LPipe.fileHandleForReading;
    LTask.launch;
  end;

在按钮1中，我执行runInMacOSX：“/ mplayer -slave /test.avi”并正确执行。但是在按钮2中，我想通过发送“pause”命令来暂停mplayer。我卡住了：

var
  a: NSData;
  str: NSString;
begin
  str := TNSString.Wrap(TNSString.OCClass.stringWithUTF8String(PAnsiChar('pause')));
  a := str.dataUsingEncoding(NSUTF8StringEncoding);
  LPipe.fileHandleForWriting.writeData(a);

我该如何解决这个问题？谢谢

使用XE4在MacOS中通过管道控制mplayer

0 个答案: