Dieser sieht ungefähr so aus
"17 Virt_In_01 module-jack-source.c float32le 2ch 44100Hz SUSPENDED"
Natürlich viele Zeilen.
Momentan scheitere ich daran das ich den Process.Output der wohl ein TInputPipeStream ist, nicht in etwas umgewandelt bekomme, dass ich eine TStringList mit DelimitedText bekomme... ich kann es nur als LoadFromStream dort reinladen, aber danach kein Delimiter durchführen.
Das ist was ich bisher schon habe.. Funktioniert natürlich nicht.. Vielleicht gehe ich da auch von der falschen Seite ran.
Code: Alles auswählen
procedure TForm1.Button4Click(Sender: TObject);
var
inText: TStringList;
// L: TStrings;
// S, E: string;
begin
inText := TStringList.Create;
inText.Delimiter:=#9;
inText.StrictDelimiter := true;
Process1 := TProcess.Create(nil);
Process1.CommandLine := 'pactl list short';
Process1.Options := [poWaitOnExit, poUsePipes];
Process1.Execute;
inText.DelimitedText:=Process1.Output;
Memo2.Lines.AddStrings(inText);
// inText.LoadFromStream(Process1.Output);
// S.LoadFromStream(Process1.Output);
// Memo2.Lines.AddStrings(msg);
end;