[Gelöst} Fehler "Writing to TStream is not supported" in CompressStream

[KoBraSoft]

Hallo,
ich versuche einen StringStream zu komprimieren.

Dazu möchte ich die Prozedur

Code: Alles auswählen

CompressStream

aus tppdf.pp aus fcl-pdf verwenden.

Code: Alles auswählen

procedure TForm1.Button3Click(Sender: TObject);
var
  S : TStringStream;
  T : TStream;
begin
  S := TStringStream.Create(...
  
  try
    T := TStream.Create;
    CompressStream(S,T);

 
  finally
    T.Free;
    S.Free;
  end;          

Ich erhalte die Fehlermeldung:

Code: Alles auswählen

Writing to TStream is not supported

Ich verstehe, dass CompressStream zwei TStreams erwartet, ich aber einen StringStream und einen TStream übergebe.
Mein (recht bescheidenes) Können reicht aber nicht aus zu erkennen, ob das die Fehlerursache ist noch, wie ich das heilen kann.
Was verurschacht diesen Fehler?

[theo]

TStream ist nur eine abstrakte Basisklasse. Man kann sie so nicht verwenden.
TStream.Create ergibt nichts Brauchbares (Hat keinen Speicher).
Du musst eine Ableitung davon verwenden (TMemoryStream, TFileStream, TStringStream...)

Aber die Deklaration kannst du so lassen, wenn du möchtest. Du kannst dann einfach nur auf alles Vererbte zugreifen.
Das wäre OK:

Code: Alles auswählen

var
  T : TStream;
begin
  T := TMemoryStream.Create;

[KoBraSoft]

TStream ist nur eine abstrakte Basisklasse. Man kann sie so nicht verwenden.
TStream.Create ergibt nichts Brauchbares (Hat keinen Speicher).
Du musst eine Ableitung davon verwenden (TMemoryStream, TFileStream, TStringStream...)

Aber die Deklaration kannst du so lassen, wenn du möchtest. Du kannst dann einfach nur auf alles Vererbte zugreifen.
Das wäre OK:

Code: Alles auswählen

var
  T : TStream;
begin
  T := TMemoryStream.Create;

So einfach. Wieder was gelernt. Danke