TStream Inhalt löschen

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Hallo!

Wie leere ich einen normalen TStream? Einfach mit .Size := 0 oder wie :gruebel:

?

Danke für eure Mühe

greetz

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

Narses · Verfasst: So 29.10.06 23:20

Moin!

Abgesehen davon, dass du nicht mit TStream direkt arbeiten solltest, würde ich sagen: ja.

Zumindest bei einem TMemoryStrean geht das so.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Arbeite ich auch nicht

Ist ein TIdMultiPartFormDataStream

Bei TMemoryStream gibts noch .Clear.. aber auch nur da..

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Zu früh gefreut, bekomme leider immer "Unsupported operation"

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

Narses · Verfasst: Mo 30.10.06 22:29

Moin!

Hmm... vielleicht so:
- .Position := 0;
- Daten schreiben
- .Size auf .Position setzen, wenn es nicht der Fall ist
:?:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Lannes · Verfasst: Di 31.10.06 09:37

Hallo,

hab mir mal die Source zu TMemoryStream angeschaut bzgl. .Clear und .Size

Clear aufrufen oder Size auf 0 setzen führt zum gleichen Ergebnis.

Clear >>

markieren

Delphi-Quelltext

1:
2:
3:

  SetCapacity(0);
  FSize := 0;
  FPosition := 0;

Size auf 0 >>
SetSize(0) >>
SetSize(NewSize: Longint) >>

markieren

Delphi-Quelltext

1:
2:
3:
4:

  //gekürzt
  SetCapacity(Newsize);
  FSize := NewSize;
  Seek(0, soFromEnd);

Daher sollte TIdMultiPartFormDataStream.Size := 0; ausreichend sein. :?:

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Sorry es funktioniert doch mit .Size := 0;

Ich bin irgendwie verwirrt, gestern ging es nämlich nicht mehr :nixweiss:

EDIT: Ah, mit D7 funktioniert es, mit D10 nicht :rofl:

Mal die Indys updaten..

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme