Mit Delphi Chmod oder andere cmd's ausführen unter macOS

**softtouch**

Kennt jemand einen Weg chmod oder andere executable auszuführen und deren Rückgabe auch zu erhalten?

Den Code, den ich soweit gefunden habe, hängt sich aber auf.

zusammenfalten · markieren

Delphi-Quellcode:

			const

   libc = '/usr/lib/libc.dylib';

   IFT_ETHER = $6;

type

PIOFile = Pointer;

function getifaddrs(var ifap: pifaddrs): Integer; cdecl; external libc name _PU + 'getifaddrs'; {$EXTERNALSYM getifaddrs}

procedure freeifaddrs(ifp: pifaddrs); cdecl; external libc name _PU + 'freeifaddrs'; {$EXTERNALSYM freeifaddrs}

function popen(const Command: PAnsiChar; Modes: PAnsiChar): PIOFile; cdecl;   external libc name _PU+'popen';

function pclose(Stream: PIOFile): Integer; cdecl; external libc name _PU+'pclose';

function feof(Stream: PIOFile): Integer; cdecl; external libc name _PU+'feof';

function fread(Ptr: Pointer; Size: LongWord; N: LongWord; Stream: PIOFile): LongWord; cdecl; external libc name _PU+'fread';

function wait(__stat_loc: PInteger): Integer; cdecl; external libc name _PU+'wait';

procedure ExecCmdLine(const CmdLine: string; CmdResult: TStrings);

var

   Output: PIOFile;

   Buffer: PAnsiChar;

   TempString: ansistring;

   Line: ansistring;

   BytesRead: Integer;

const

   BufferSize: Integer = 8192;

begin

   TempString := '';

   Output := popen(PAnsiChar(ansistring(CmdLine)), 'r');

   GetMem(Buffer, BufferSize);

   if Assigned(Output) then

      try

         while feof(Output) = 0 do

         begin

            BytesRead := fread(Buffer, 1, BufferSize, Output);

            SetLength(TempString, length(TempString) + BytesRead);

            Move(Buffer^, TempString[length(TempString) - (BytesRead - 1)],   BytesRead);

            while Pos(#10, TempString) > 0 do

            begin

               Line := Copy(TempString, 1, Pos(#10, TempString) - 1);

               if CmdResult <> nil then CmdResult.Add(UTF8ToString(Line));

               TempString := Copy(TempString, Pos(#10, TempString) + 1,length(TempString));

            end;

         end;

      finally

         pclose(Output);

         wait(nil);

         FreeMem(Buffer, BufferSize);

      end;

end;

**Sherlock**

In dem Codehaufen geht es hauptsächlich darum die Antwort/Ausgabe einer in der Konsole gestarteten Anwendung auszuwerten (

https://stackoverflow.com/questions/...console-output). Kern für Dich ist der Einzeiler
Output := popen(PAnsiChar(ansistring(CmdLine)), 'r'); Da ist dann die Frage, ob Deine Rechte überhaupt ausreichen, chmod auszuführen. Eventuell wartet ja das System auf das Passwort oder so. Wie verhält sich denn Dein Mac, wenn Du den gewünschten Befehl von Hand eingibst?

Sherlock

**softtouch**

Zitat von Sherlock:

In dem Codehaufen geht es hauptsächlich darum die Antwort/Ausgabe einer in der Konsole gestarteten Anwendung auszuwerten (

https://stackoverflow.com/questions/...console-output). Kern für Dich ist der Einzeiler
Output := popen(PAnsiChar(ansistring(CmdLine)), 'r'); Da ist dann die Frage, ob Deine Rechte überhaupt ausreichen, chmod auszuführen. Eventuell wartet ja das System auf das Passwort oder so. Wie verhält sich denn Dein Mac, wenn Du den gewünschten Befehl von Hand eingibst?

Sherlock

Manual im terminal eingegeben, klappt das einwandfrei.

Er hängt an dieser Zeile und ich weiss nicht warum. Wenn ich andere Befehle ausführen lasse, klappt es.

Move(Buffer^, TempString[length(TempString) - (BytesRead - 1)], BytesRead);

**himitsu**

Wenn die letzte Zeile nicht mit einem #10 aufhört, dann geht sie natürlich verloren.
Außer du vergisst nach der Schleife nicht den Rest im TempString,
also dort nochmal ein if TempString <> '' then CmdResult.Add(UTF8ToString(TempString)); .

**softtouch**

Zitat von himitsu:

Wenn die letzte Zeile nicht mit einem #10 aufhört, dann geht sie natürlich verloren.
Außer du vergisst nach der Schleife nicht den Rest im TempString,
also dort nochmal ein if TempString <> '' then CmdResult.Add(UTF8ToString(TempString)); .

Die Funktion kommt gar nicht bis zum Ende, die schmiert schon ab in der Zeile

Move(Buffer^, TempString[length(TempString) - (BytesRead - 1)], BytesRead);

Kennt denn niemand einen Funktionierenden Code um z.B. chmod oder auch youtube-dl oder ffmpeg zu starten und die Ausgabe abzufangen? Ich kriege noch graue Haare damit (wenn ich die nicht schon hätte).

**himitsu**

Und was für eine Fehlermeldung?

Zugriffsverleztzung bei Ardresse $00000**

Wenn BytesRead 0 ist und TempString noch leer war ... ja, dann muß es im Move knallen, eigentlich vor Move, weil es schon beim TempString[...] knallt

**softtouch**

Zitat von himitsu:

Und was für eine Fehlermeldung?

Zugriffsverleztzung bei Ardresse $00000**

Wenn BytesRead 0 ist und TempString noch leer war ... ja, dann muß es im Move knallen, eigentlich vor Move, weil es schon beim TempString[...] knallt

Leider, wie so häufig, kommt weder eine Fehlermeldung noch sonst was, das Programm hängt einfach auf dem Mac. Wenn ich es debugge, klappt alles bis zu dieser Zeile, wenn ich die dann ausführe, hängt alles.

**Uwe Raabe**

Zitat von softtouch:

Wenn ich es debugge, klappt alles bis zu dieser Zeile, wenn ich die dann ausführe, hängt alles.

Und was steht in den betreffenden Variablen, wenn du im Debugger auf der Zeile stehst bevor sie ausgeführt wird?

**softtouch**

Zitat von Uwe Raabe:

Zitat von softtouch:

Wenn ich es debugge, klappt alles bis zu dieser Zeile, wenn ich die dann ausführe, hängt alles.

Und was steht in den betreffenden Variablen, wenn du im Debugger auf der Zeile stehst bevor sie ausgeführt wird?

Leider wird nichts angezeigt wenn ich mit der Maus drüber gehe. Das hat noch nie richtig geklappt wenn es um macOS ging.
Wie auch immer, ich hatte ja die Hoffnung das irgendwer einen Code irgendwo mal gesehen hat der genau das macht, was ich brauche. Scheint aber wohl doch nicht der Fall zu sein.