Memo1.Text auf FTP laden

[mr-unbekannt]

hello, ich möchte den Memo1.Text sofort als Textdatei auf einen FTP laden, ohne diese davor abspeichern zu müssen. Wenn ich das Eingebe, sagt der Debugger, dass es keine Überladene Version von Put gib

Delphi-Quellcode:

procedure TForm1.sButton5Click(Sender: TObject);
begin
IdFTP1.Host := sEdit5.Text;
IdFTP1.Username := sEdit6.Text;
IdFTP1.Password := sEdit7.Text;
if sCheckbox4.Checked = True then begin
IdFTP1.ProxySettings.Host := sEdit8.Text;
IdFTP1.ProxySettings.Port := StrToInt(sEdit9.Text); end;
try
IdFTP1.Connect;
IdFTP1.Put(Memo1.Text, FALSE);
finally IdFTP1.Disconnect; end;
end;

[netscanner]

du kannst den inhalt des memo feldes doch erstmal als text file auf dem pc speichern. danach soll er diese textdatei hochladen und sie vom pc löschen....

dazu gibt es auch den delphibefehl assignfile...


zeile1 := memo1.text;
dateiname := 'test.txt' ;
assignfile (datei, dateiname);
reset (datei);
writln (datei, zeile1);
closefile (datei);

dann der ftp upload befehl

und danach die textdatei mit delet entfernen....

[Luckie]

Überlegen wir doch mal: Du übergibst der Methode Put eine Zeichenkette und erwartest von der Methode, dass sie den Namen der Datei errät in der du die Zeichenkette speichern willst. Kann das funktionieren?

[mr-unbekannt]

black out...

[netscanner]

was soll black out heißen?
verstehst du den code nicht oder hast du nicht dran gedacht?

[marabu]

Wenn die Komponente vorkonfiguriert ist, dann funktioniert es so:

Delphi-Quellcode:

procedure Upload(ftp: TIdFTP; url: string; s: TStream);
begin
  s.Position := 0;
  ftp.Connect(true, -1);
  try
    ftp.Put(s, url);
  finally
    ftp.Disconnect;
  end;
end;

procedure TDemoForm.FilePutExecute(Sender: TObject);
var
  s: TStream;
begin
  s := TMemoryStream.Create;
  Memo.Lines.SaveToStream(s);
  s.Position := 0;
  try
    FTP.Put(s, UrlEdit.Text, s);
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;
  s.Free;
end;

Grüße vom marabu