Array über Schleife ausfüllen

[haentschman]

Bitte, Bitte...wie ist es richtig?

Zitat:

FParameters[B + 6] := PAnsiChar(AnsiString(FileList[I]));

warum funktioniert das?
FParameters[6] := PAnsiChar(AnsiString(FileList[0]));

[himitsu]

Du muß die generierten AnsiString für jede Zeilen bis zum Ende von PDFMerge gespeichert haben, (also irgendwo genügend AnsiString-Variablen für jedes Item)
dann bleiben die PAnsiChar-Referenzen auch so lange gültig.
(alternativ kann man auch an der Referenzzählung rumpfuschen ... und Dieses am Ende wieder rückgängig, weil sonst Speicherleck)

Oder du erstellst eben für jeden PAnsiChar einen eigenen Speicher, wie z.B. mit NewStr . (am Ende dann DisposeStr, weil wegen Speicherleck)

Oder eben du änderst die Signatur deiner Funktion, oder castest beim Aufruf das Array.
Dann könnte man auch mit einem Array-of-AnsiString arbeiten, wo dieses Array dann seine eigenen String-Referenzen hat, damit im nächsten Durchlauf die alten "Kopien" weiterhin gültig bleiben.

Oder mit zwei Arrays arbeiten ... einmal mit AnsiString für die String-Referenzen und die Kopie als PAnsiChar auf die jeweiligen AnsiStringArrayItems.

[Uwe Raabe]

Um das Problem mal zu veranschaulichen:

Delphi-Quellcode:

program Project773;

{$APPTYPE CONSOLE}

function GetP(S: string): PAnsiChar;
begin
  Result := PAnsiChar(AnsiString(S));
end;

var
  P1: PAnsiChar;
  P2: PAnsiChar;
begin
  P1 := GetP('Hallo Welt');
  Writeln('P1:', P1);
  P2 := GetP('Hurz');
  Writeln('P1:', P1);
  Writeln('P2:', P2);
  Readln;
end.

Der Result von GetP ist quasi in dem Moment schon ungültig, wo er zurückgegeben wird, weil er auf irgendwo auf den Stack zeigt - und zwar auf eine Stelle, die nicht mehr gültig ist.

[haentschman]

Danke an Alle...

Mit den Informationen habe ich es dann auch geschnallt.

Zitat:

Du muß die generierten AnsiString für jede Zeilen bis zum Ende von PDFMerge gespeichert haben

...war der Auslöser zum Probieren.

Jetzt geht es:
Zwischenspeicherung in TList<AnsiString>

Delphi-Quellcode:

function TSEAMGhostscript.PDFMerge(FileName: string; FileList: TStrings): Boolean;
var
  ParametersTemp: TList<AnsiString>;
  InitError: Integer;

  procedure CreateMergeFiles;
  var
    I: Integer;
  begin
    for I := 0 to FileList.Count - 1 do
    begin
      ParametersTemp.Add(AnsiString(FileList[I])); // <--
      FParameters[I + 6] := PAnsiChar(ParametersTemp[I]); // <--
    end;
  end;

begin
  if FDLLHandle = 0 then
  begin
    if not LoadDLL(FDLLPath) then
    begin
      Result := False;
      Exit;
    end;
  end;
  try
    ParametersTemp := TList<AnsiString>.Create; //<--
    try
      SetLength(FParameters, FileList.Count + 6);

      FParameters[0] := '';
      FParameters[1] := '-dNOPAUSE';
      FParameters[2] := '-dBATCH';
      FParameters[3] := '-dPDFSETTINGS=/ebook';
      FParameters[4] := '-sDEVICE=pdfwrite';
      FParameters[5] := PAnsiChar(AnsiString('-sOutputFile=' + FileName));
      CreateMergeFiles;

      InitError := FGsApiInitWithArgs(FGsInstance, Length(FParameters), FParameters);
      Result := (InitError = 0);
      if InitError <> 0 then
      begin
        if Assigned(FOnError) then
        begin
          FOnError(Self, Format('Fehlercode: %d', [InitError]));
        end;
      end;
    finally
      ParametersTemp.Free;
    end;
  finally
    FGsApiExit(FGsInstance);
  end;

  if not Result then
  begin
    if Assigned(FOnError) then
    begin
      FOnError(Self, Format('Fehler beim Erstellen: %s', [FileName]));
    end;
  end;
end;

[himitsu]

Hach, an was man sich so alles gewöhnen könnte.
http://docwiki.embarcadero.com/RADSt...Dynamic_Arrays

Delphi-Quellcode:

Temp: TArray<AnsiString>;

for S in FileList do
begin
  Temp := Temp + [AnsiString(S)];
  FParameters := FParameters + [PAnsiChar(Temp[High(Temp)])];

...
SetLength(FParameters, FileList.Count);  // die 6 Zusätzlichen jetzt noch nicht dazu

// Und am Ende gibt sich Temp von selber frei.

bzw.

Delphi-Quellcode:

Temp := ['-sOutputFile=' + FileName];
FParameters := [
  '',
  '-dNOPAUSE',
  '-dBATCH',
  '-dPDFSETTINGS=/ebook',
  '-sDEVICE=pdfwrite',
  PAnsiChar(Temp[0])];
for S in FileList do begin
  Temp := Temp + [S];  // implizit ein + [AnsiString(S)];
  FParameters := FParameters + [PAnsiChar(Temp[High(Temp)])];
end;

Aber wie gesagt, ich würde FGsApiInitWithArgs einfach ein TArray<AnsiString> geben, anstatt einem TArray<PAnsiChar>,
und mir den ganzen PChar-Quatsch einfach schenken.

Delphi-Quellcode:

FParameters := [
  '',
  '-dNOPAUSE',
  '-dBATCH',
  '-dPDFSETTINGS=/ebook',
  '-sDEVICE=pdfwrite',
  '-sOutputFile=' + FileName];
for S in FileList do 
  FParameters := FParameters + [S];

// wäre beides String gewesen, dann ginge sogar sowas
FParameters := ['', '-dNOPAUSE', '-dBATCH', '-dPDFSETTINGS=/ebook',
  '-sDEVICE=pdfwrite', '-sOutputFile=' + FileName] + FileList.ToStringArray;

Rein "technisch" bestünde sogar die Möglichkeit in einen "String" einen "AnsiString" reinzumachen,
da die LongStrings in Delphi sowohl CodePage als auch CharSize im String speichern.
Also in einer TStringList die Codierung der "Strings" auf ANSI umzuschreiben.
(ich weiß aber nicht, in wie weit die anfangs mit Delphi2009 eingeführten Casts noch aktiv sind, weil die waren arschlangsam, wenn "überall" bei jeder Stringzuweisung/Auslesen die Kodierung geprüft wird)

Ist aber nur was für echt Hartgesottene:

Delphi-Quellcode:

// CP_ACP: TStringList -> intern schonmal die CodePage ändern -> TArray<String> -> TArray<AnsiString>
// CP_UTF8:  TStringList -> intern schonmal die CodePage ändern -> TArray<String> -> TArray<UTF8String>

type
  TStringListAccess = class(TStrings)
    FList: TStringItemList;
  end;

var
  SL: TStringList;
  AA: TArray<AnsiString>;
begin
  SL := TStringList.Create;
  SL.Add('123');
  SL.Add('äöü');

  {for var i := SL.Count-1 downto 0 do begin
    var S := SL[i];
    SetCodePage(RawByteString(Pointer(S)), CP_UTF8, True);  // CP_ACP für ANSI
    SL[i] := S;
  end;}
  for var i := SL.Count-1 downto 0 do
    SetCodePage(RawByteString(Pointer(TStringListAccess(SL).FList[i].FString)), CP_UTF8, True);  // CP_ACP für ANSI

  AA := TArray<AnsiString>(SL.ToStringArray);