Save for RVF with image
Posted: Fri Oct 04, 2013 2:42 pm
Hello, I'm the following code to save the file in RVF:
it is recording normally, but not recording the images together if any, to open the text file will only bring
thanks;
Code: Select all
TextoConnection := ExtractFilePath(Application.ExeName) + 'Connection.ini';
Arquivo2 := TIniFile.Create(TextoConnection);
Server := AllTrim(Arquivo2.ReadString('SERVER', 'Server',''));
if (SRichViewEdit1.RichViewEdit.SaveRVF('\\' + Server + '\AtasNotariais\AtaNotarial_' + QueryAtaCODIGO.AsString + '.rvf', false)) = true then
begin
MessageDlg('salvo', mtWarning, [mbOK], 0);
end
else
MessageDlg('Erro ao salvar rascunho!'+#13+#10+'Verifique a pasta ''Rascunhos'' no servidor!', mtWarning, [mbOK], 0);
thanks;