[TIdFTP] Up/Downloaden eines Strings ohne Datei zu erst.

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

Hallo!

Ich würde gerne wissen wie ich einen String auf meinen Webspace laden kann ohne ihn vorher in eine Datei zu schreiben (per Stream eben)

Aber wenn ich

markieren

Delphi-Quelltext

1:
2:

  Stream.Position := 0;
  Stream.Write(MeinString, Length(MeinString));

mache und dann den Stream sende, steht in der Datei nur unbrauchbaren drinne

Danke schonmal für eure hilfe!

greeetz

_________________
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.

Ehemaliges Mitglied Erhaltene Danke: 1

Hi Born-to-Frag. :wave:

Zeig vielleicht mal ein bischen mehr Code.
Wie der String vorher bzw. nachher aussieht, könnte auch nicht schaden.

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

Ja, ich war sehr in Eile ^^

Also der Stream ist ein TMemoryStream, der String vor dem Upload ist z.B. 'Hallo Welt!' und was dann ankommt sind undarstellbare Zeichen (schwarze rechtecke)..

Hier noch mal etwas mehr Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

  MyStream := TMemoryStream.Create;
  MyStream.Position := 0;
  MyStream.Write(MeinString, Length(MeinString); 
  
  IdFTP1.Connect;
  IdFTP1.Put(MyStream, 'new.txt'); 
  IdFTP1.Disconnect;

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 26.03.06 23:15

Moin!

Schau dir mal den TStringStream an, damit solltest du besser klar kommen.

cu
Narses

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

Narses hat folgendes geschrieben:

Moin!

Schau dir mal den TStringStream an, damit solltest du besser klar kommen.

cu
Narses

Narses du bist mein Held :beer:

Hat natürlich funktioniert.. Ich hab bei Create als Parameter grad '' gemacht, oder für was brauche ich das?

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 26.03.06 23:23

Moin!

Born-to-Frag hat folgendes geschrieben:

Narses du bist mein Held :beer:

Hihi, wollte schon immer mal ein "Held" sein...

Born-to-Frag hat folgendes geschrieben:

Hat natürlich funktioniert.. Ich hab bei Create als Parameter grad '' gemacht, oder für was brauche ich das?

Da kommt natürlich dein String rein, den du senden willst (-> DOH!).

cu
Narses

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

Narses hat folgendes geschrieben:

Born-to-Frag hat folgendes geschrieben:

Hat natürlich funktioniert.. Ich hab bei Create als Parameter grad '' gemacht, oder für was brauche ich das?

Da kommt natürlich dein String rein, den du senden willst (-> DOH!).

Den hab ich dann mit WriteString reingemacht

Also kann ich das ja gleich weglassen

Danke!

_________________
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