Situation is the following I have a system that Word automation and at the time of save the document it is not saving . Do not know what it is, as this only happens in the Client.
procedure TfrmConsultas.Salvar1Click(Sender: TObject);
var
FileName : String;
const
wdFormatDocument = 16; // 16 is Word default document file format. For Microsoft Office Word 2007, this is the DOCX format.
begin
if DM.tbConsultas.State in [dsInsert] then
begin
// Trecho de código faz referencia ao nome do arquivo.
DM.tbConsultasConsulta.Last;
FileName := DM.tbParametrosPASTA_BD.AsString+'\Modelos\Consulta_'+IntToStr(DM.tbConsultasConsultaCODIGO_CONSULTA.AsInteger+1)+'.docx';
// Melhor maneira de Salvar os Documentos MS Word no Delphi
// Parâmetro FileName = Nome do Arquivo
// Parâmetro wdFormatDocument = Formato do Arquivo MS Word Verificar outros
// Parâmetro CompatibilityMode = Compatibilidade com outras verções do Word
// possíveis tipos. Atualmente somente Docx
OleContainer.DoVerb(ovInPlaceActivate);
try
OleContainer.OleObject.SaveAs (FileName, wdFormatDocument, EmptyParam, EmptyParam, False);
except
on E : Exception do
ShowMessage(E.ClassName+' error ao Salvar o arquivo DOCX : '+E.Message);
end;
// Nome do arquivo agora sera usado para Salvar o registro na tabela ou deletar o arquivo
vNomeArquivo := 'Consulta_'+IntToStr(DM.tbConsultasConsultaCODIGO_CONSULTA.AsInteger+1)+'.docx';
end;
end;
I do not know if they are the permissions of the folder but, I already checked this all for full control and even then the file does not save .