FileStream.WriteBuffer für binäre Daten in einem String

[crowley]

Oooookay... dummer Fehler meinerseits :
Wenn sich Steuerzeichen wie z.B. #13#10 in dem String befinden, werden diese natürlich auch in der Stringliste widergespiegelt. Dementsprechend sieht es nicht mehr Key/Value-technisch so aus:

Delphi-Quellcode:

  CopyFile=T
  FileSize=1234
  BytesRead=1234
  Data=abcdefg#13#10hijklmn

sondern mehr so:

Delphi-Quellcode:

  CopyFile=T
  FileSize=1234
  BytesRead=1234
  Data=abcdefg
  hijklmn

Daher hatte ich nun in einem ersten Ansatz so gearbeitet, dass ich den Wert aus Data genommen habe und mittels einer Schleife den Inhalt aller nachfolgenden Zeilen der Stringliste (inklusive #13#10) ergänzt.
Diese unsaubere Methode gefiel mir nicht so wirklich und dann wurde mir bewusst, dass ich doch den String auch direkt aus dem Variant abgreifen kann, den ich dank des DataRequests erhalte. Das bedeutet, meine Schreibmethode sieht nun so aus:

Delphi-Quellcode:

  [...]
  loc_FileSize := 0;
  loc_Position := 0;

  if FileExists(aDestDir + ExtractFileName(FFileList[loc_i])) then
    loc_fs := TFileStream.Create(aDestDir + ExtractFileName(FFileList[loc_i]), fmOpenWrite)
  else
    loc_fs := TFileStream.Create(aDestDir + ExtractFileName(FFileList[loc_i]), fmCreate);
  try
    loc_fs.Seek(0, soBeginning);
    repeat
      loc_drq := 'CMD=' + DRQ_TransferFile + ',' +
                 'FileName=' + 'C:\DummyFile.txt' + ',' +
                 'Position=' + IntToStr(loc_Position);
      loc_v := cdsLogFiles.DataRequest(loc_drq);
      loc_Result := GnDataRequestResult(DRQ_TransferFile, loc_v, loc_sl);
      if (loc_Result) then begin
        loc_FileSize := StrToIntDef(loc_sl.Values['FileSize'], 0);
        loc_BytesRead := StrToIntDef(loc_sl.Values['BytesRead'], 0);

        loc_s := Copy(VarToStr(loc_v), Pos('DATA=', VarToStr(loc_v)) + 5, loc_BytesRead);
{$WARN UNSAFE_CODE OFF}
        loc_c := @loc_s[1];
{$WARN UNSAFE_CODE ON}
        try
          loc_fs.WriteBuffer(loc_c^, loc_BytesRead);
        except
          loc_Error := GetLastError;
          MessageDlg(
                     'Can not write file. Error ' + IntToStr(loc_Error),
                     mtError, [mbOk], 0
                    );
          loc_Result := False;
        end;
        Inc(loc_Position, loc_BytesRead);
      end;
    until (FCancelled) or (not loc_Result) or (loc_Position >= loc_FileSize);
  finally
    FreeAndNil(loc_fs);
  end;

So funktioniert das ganze seeeeehr gut und dann klappt's auch mit dem Nachbarn