Fórum Converter arquivo Word em Blob Oracle. #443693

procedure SaveToBlobSemDoVerb(Field: TBlobField; Container: TOLEContainer; ServidorClasse: TMServidorClasse);
var
  Texto : TStrings;
  FFieldStream : TClientBlobStream;
  arqBlob: string;
begin
  if Container.State <> osEmpty then begin
    FFieldStream := RecuperaStreamDoField(Field);
    try//(a)
      try//(b)
        try//(c)
          //Salvar o BLOBField
          if (Field.DataSet <> nil) then
            Field.DataSet.Edit;
          arqBlob := GetTemporaryFileName;
          Container.OleObject.saveas(arqBlob, wdFormatDocument);
          FFieldStream.LoadFromFile(arqBlob);
          Field.LoadFromStream(FFieldStream);
          Sysutils.DeleteFile(arqBlob);
        except
          MessageDlg('Erro ao salvar Documento.', mtWarning, [mbOK], 0);
        end;//try (c) Salvando o Container em Arquivo Temporário
      finally// try (b) Deletando o arquivo salvo
        Sysutils.DeleteFile(arqBlob);
        Sysutils.DeleteFile(arqClob);
      end;
    finally
      FFieldStream.Free;
    end;//try (a) Criando o buffer com o BLOB
  end else
        MessageDlg('Nenhum Documento para Salvar.', mtWarning, [mbOK], 0);
end;