IDFTP : Upload

[Neutral General]

Ich verstehe nicht warum das nicht funktioniert -.-

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Stream : TMemoryStream;
var S : TStringlist;
begin
  Stream := TMemoryStream.Create;
  Stream.Seek(0,soFromBeginning);
  S := TStringlist.Create;
  S.Add(GetUser); // bzw irgendein string... also es ist 100% kein Leerstring
  S.SaveToStream(Stream);
  IDFTP1.Put(Stream,'Probe.txt');
end;

die Datei wird auf dem Server angelegt aber sie ist leer -.-

[DGL-luke]

probier mal, vor dem put ein

Delphi-Quellcode:

stream.position:=0;

einzufügen.

:)

[Neutral General]

lol Danke :D
Ich hab das mit den Streams einfach nicht drauf :mrgreen:

[XXcD]

ich hab hierzu jetzt mal eine Frage. Wenn die txt datei erstellt wurde dann steht da der Inhalt drin und darunter ist noch eine angefangene Zeile wo nichts steht kann man das so machen dass der das nicht macht???

[inherited]

Neue Frage->Neuer Thread
(Die letzten beiden zeichen der Datei abschneiden)

[XXcD]

wieso neuer thread die frage ist ja dazu gestellt. Und wie soll man die letzten beiden zeichen abschneiden???? ich will das ja nicht selber machen dass soll der ja automatisch machen. Der macht ja automatisch nen zeilenumbrauch und das muss ich weg haben aber keine ahnung wie das gehen soll.

[inherited]

Nein., deine Frage ist eine Object-Pascal-Frage und hat rein garnichts mit der eigentlichen Frage zu tun.