Ausgabepfad für LameCoder-Kompo festlegen?

[mlspider]

Ich "füttere" den LameCoder und fülle eine Listbox wie folgt:

Delphi-Quellcode:

procedure TKonvertierung.Button1Click(Sender: TObject);
var i: Integer;
begin
 OpenDialog1.Options := OpenDialog1.Options + [ofAllowMultiSelect];
  if Opendialog1.Execute then
    begin
      for i := 0 to OpenDialog1.Files.Count - 1 do
      ListBox1.Items.Add(ExtractFileName(OpenDialog1.Files[i]));
      ListBox2.Items.AddStrings(Opendialog1.Files);
      LameCoder1.InputFiles:=OpenDialog1.Files;
    end;
end;

Wird unter OutputFiles nichts angegeben, entspricht der Ausgabepfad dem Sourcepfad. Wie könnte man den Ausgabepfad selbst bestimmen? (Ausgabe = Typ TStrings)

[marabu]

Hallo Mario,

du könntest, nachdem du InputFiles gesetzt hast, in einer Schleife über die dadurch generierten OutputFiles gehen und die PfadKomponente ersetzen:

Delphi-Quellcode:

procedure ChangeOutputFiles(s: TStrings; const filePath: TFileName);
var
  i: Integer;
  fp: TFileName;
begin
  fp := IncludeTrailingPathDelimiter(filePath);
  for i := 0 to Pred(s.Count) do
    s[i] := fp + ExtractFileName(s[i]);
end;

Freundliche Grüße

[mlspider]

Das ist eine Möglichkeit. Danke.