Einzelnen Beitrag anzeigen

bwolf

Registriert seit: 17. Jan 2006
368 Beiträge
 
Delphi 2009 Professional
 
#1

ObjectTextToBinary - Zeile zu lang

  Alt 15. Jan 2013, 13:14
Hi,

wir haben bisher folgende Funktion verwendet um aus Text ein Object zu machen:

Code:
function StringToComponent(Value: AnsiString): TComponent;
var
  StrStream: TStringStream;
  BinStream: TMemoryStream;
begin
  StrStream := TStringStream.Create(Value);
  try
    BinStream := TMemoryStream.Create;
    try
      [COLOR="Red"]ObjectTextToBinary(StrStream, BinStream);[/COLOR]
      BinStream.Seek(0, soFromBeginning);
      Result := BinStream.ReadComponent(nil);
    finally
      BinStream.Free;
    end;
  finally
    StrStream.Free;
  end;
end;

Das hatte in Delphi 7 auch immer einwandfrei funktioniert.
Nach der Umstellung auf Delphi 2009 gibt es nun bei größeren Objekten folgenden Fehler (ausgelöst in der roten Zeile):

Zitat:
---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Programm.exe ist eine Exception der Klasse EParserError mit der Meldung 'Zeile zu lang in Zeile 1' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------
Ich dachte zuerst es liegt an der Unicode-Umstellung und habe daher den Übergabeparameter als Ansistring deklariert, was aber nix gebracht hat.
Hat jemand eine Idee was los sein könnte?
Vielen dank!

Geändert von bwolf (15. Jan 2013 um 14:28 Uhr)
  Mit Zitat antworten Zitat