Memo1.Text auf FTP laden

[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