RichEdit->SaveToFile

[navbuoy]

mira te he hecho un ejemplo con el TMS AdvRichEditor que es el que permite pegar imagenes con el portapapeles

//---------------------------------------------------------------------------

#include <vcl.h>

#include <fstream>  // Para manipulación de archivos

#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "AdvRichEditor"
#pragma link "AdvRichEditorBase"
#pragma link "AdvScrollControl"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
	ProgressBar1->Min = 0;
	ProgressBar1->Position = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (SaveDialog1->Execute()) {
		String fileName = SaveDialog1->FileName;

		// Verificar si hay contenido en el editor
		if (AdvRichEditor1->LineCount() == 0) {
			ShowMessage("No hay contenido para guardar.");
			return;
		}

		int totalLines = AdvRichEditor1->LineCount();
		ProgressBar1->Max = totalLines;
		ProgressBar1->Position = 0;

		// Crear un archivo y guardar el contenido
		AdvRichEditor1->SaveToFile(fileName);  // Guardar directamente con SaveToFile

        // Simular progreso ya que SaveToFile no actualiza la UI
		for (int i = 0; i < totalLines; i++) {
			ProgressBar1->Position = i + 1;
			Application->ProcessMessages();  // Permite actualizar la UI durante el guardado
		}

		ShowMessage("Archivo guardado correctamente.");
	}
}
//---------------------------------------------------------------------------