Access Violation - Perguntas recentes com a tag delphi

DatasetToXML / XMLToDataset equivalente no .Net

Tue, 04 Feb 2020 15:09:07 +0000

Bom dia,
existe algum método equivalente no .net para xmls gerados pelo legado?

Como obter um diretório local em disco selecionado pelo usuário via popup no WES

Thu, 14 Nov 2019 13:18:26 +0000

Olá! Gostaria de saber se já existe algo desenvolvido na API do WES para a obtenção de um diretório que será usado em uma rotina.

Esta função existe no delphi no CurrentSystemWrapper, método chamado "SelectFolder"

Este método abre um modalzinho no Runner com o treeview do disco, e retorna o caminho selecionado como string.

Estamos fazendo a conversão desta rotina para a WEB.

Caso não hajam opções prontas, haveria alguma opção de terceiros recomendada que vocês conheçam?

Abaixo deixo o print ilustrando do que se trata.

Desde já agradeço!

Pegar a descrição de um campo do tipo "Lista"

Tue, 12 Nov 2019 11:50:17 +0000

Tenho um select onde pego um campo do tipo lista, no select tenho valor do campo do tipo lista, mas quero a descrição do item da lista.

Como posso fazer sem usar um case fixo no fonte?

Para que serve a Z_VARIAVEIS com o nome "CLIENTE"?

Fri, 01 Nov 2019 14:26:50 +0000

Atualmente no Builder existe uma variavel que é exigida ao configurar uma geração de artefatos de builder em uma base especifica, apresenta a seguinte mesagem:

O sistema esta configurado incorretamente para especifico. Paramêtros CLIENTE = "", CUSTOMSYSTEM = "S"

Existe algum componente Benner para desenvolvimento Delphi ou .NET?

Tue, 22 Oct 2019 18:28:38 +0000

Boa tarde,

Existe algum componente Benner para desenvolvimento em Delphi ou .NET? Preciso acessar os documentos criptografados no BDOC com uma das linguagens citadas.

Como resolver o problema que ocorre ao dar um Build no delphi "DirectAdoNetLib.RES"

Wed, 02 Oct 2019 13:35:29 +0000

Ao dar uma build no delphi no fonte do Builder ocorre o problema : File not found: "DirectAdoNetLib.RES".

Como resolver?

Erro ao usar o CurrentSystemWrapper.SetFieldDocument no Delphi se o arquivo estiver aberto.

Fri, 27 Sep 2019 18:15:52 +0000

Esse print é da msg de erro aprensata ao usar o metodo da tecnologia se o arquivo estiver aberto ou em processo de mover para outro diretorio.

[dcc32 Fatal Error] E2202 Required package 'bdertl' not found

Fri, 20 Sep 2019 17:39:48 +0000

Está ocorrendo o erro descrito no título quando tento compilar o específico de um cliente (EspErnstForms.dll).

"Operação Inválida em um objeto fechado" ao tentar acessar o valor de um campo do TBSQLNativeControl em Oracle

Thu, 29 Aug 2019 22:17:13 +0000

Em uma base Oracle, após dar um LoadAllFromQuery(TBSQLNativeControl), eu não consigo mais acessar os dados, como se estivessem bloqueados, o que não ocorre em base SQLServer.

A alteração que fiz funciona normalmente em SQL Server, mas em Oracle, quando chega na atribuição do campo "OCCLIENTESEQITEM", logo após o LoadAllFromQuery, dá o erro "Operação Inválida em um objeto fechado":

sql := TQueryObject.Create('CM_ITENS', 'A');

sql.AddFields('A', ['OCCLIENTESEQITEM SEQITEMINTEIRO']);

_sql.SetQueryObject(sql);

_itens.GetFieldsFromQuery(_sql.NativeDataSet);

_itens.AddFields('OCCLIENTESEQITEM:STRING;');

_itens.LoadAllFromQuery(_sql.NativeDataSet);
_itens.FindField('OCCLIENTESEQITEM').AsString := _sql.NativeDataSet.FieldByName('SEQITEMINTEIRO').AsString;

Fazemos este "malabarismo" com o campo "OCCLIENTESEQITEM", porque precisamos dele como string para conseguir representar valores não siginificativos no container, no banco tem que ser inteiro mesmo.

Além do erro mencionado, no Oracle não conseguimos acessar os campos do dataset durante depuração, após a execução do LoadAllFromQuery. Ex.: _sql.NativeDataSet.FieldByName('SEQITEMINTEIRO').AsString dá erro no evaluator (Ctrl + F7) do Delphi.

Vendo as propriedades desse native control, logo após a execução do LoadAllFromQuery, pude ver algumas diferenças entre os bancos (imagem em anexo), a principal foi que a propriedade FNestedDataSetClass muda de um tipo de base para outra, será que é isso que faz os dados ficarem inacessíveis?

Estamos fazendo algo errado?

Stack do online debugger: http://desenv.benner.com.br/accessviolation/?qa=blob&qa_blobid=6117336191396093861, na linha 4208 ocorre o erro de Operação inválida em um objeto fechado.

Acessar BDOC do Delphi

Mon, 22 Apr 2019 18:24:44 +0000

Tenho uma tela em Delphi, feita com componentes padrão do Delphi e preciso colocar um componente para acessar um campo do tipo arquivo da minha tabela.

Qual a melhor forma para se fazer isso?

Foco automático com TBVirtualEngine

Tue, 19 Mar 2019 16:19:26 +0000

Alguém sabe dizer se tem como configurar o TBVirtualEngine, para que, durante o salvamento, ele sete o foco do componente automaticamente, quando por exemplo o campo for obrigatório e não tiver sido preenchido?

TABLE_AfterCommitted no componente do delphi TBVirtualEngine

Fri, 27 Apr 2018 16:58:00 +0000

A possibilidade de executar a macro TABLE_AfterCommitted no componenente TBVirtualEngine?

OnSkin no Delphi

Wed, 14 Feb 2018 13:47:19 +0000

Atualmente utilizamos a macro de aplicação OnSkin para setar os skins de alguns componentes desenvolvidos pela logística, por exemplo:

Public Sub Application_OnSkin(Skinner As CS1.CSSkin)
    Skinner.AddClassNameSkin( "TFRDBGridNiveisPower", CSSkinGrid)
    Skinner.AddClassNameSkin( "TGLDBGridNiveis", CSSkinGrid)
    Skinner.AddClassNameSkin( "TGLDBGridNiveisPower", CSSkinGrid)
    Skinner.AddClassNameSkin( "TGLBennerDBGrid", CSSkinGrid)
    Skinner.AddClassNameSkin( "TGLTreeViewCheckRadio", CSSkinTreeView)
End Sub

Pergunto: temos alguma alternativa de fazer isso via Delphi? Alguma BFunction (como o ApplicationAfterOpen, ....) ?

Sendo a logística um Vertical, sempre que o ERP faz alterações na macro de aplicação perdemos nossas alterações, então pretendemos passar alguns comportamentos que estão na macro para Delphi.

Obrigado.

Ocultar um campo de um TBVirtualEngine

Fri, 30 Sep 2016 13:04:18 +0000

Como faço para ocultar um campo de um TBVirtualEngine após ele ter sido contruido?

Dentro de uma DLL Delphi que foi executada pelo BusinessTask.Factory.NewDllTask() consigo pegar o handle do processo?

Fri, 23 Sep 2016 12:59:16 +0000

E dentro de uma DLL Delphi que foi executada pelo BusinessTask.Factory.NewDllTask() consigo pegar o handle do processo também?

LocateWhere is deprecated

Fri, 05 Aug 2016 10:45:01 +0000

Ao ajustar os fonte para utilizar o Delphi Seattle, percebi que o LocateWhere está classificado como deprecated. O Delphi recomenda a utilização do Locate, porém como resolveria a condição abaixo?

if (dcLotes.LocateWhere(Format('CAPATRANSFERENCIA <> '''' AND STATUS = %d', [clrAguardandoArquivamento]))) then
begin
 //...
end;

Como acesso uma imagem da lista que imagens do TBennerBtn?

Tue, 19 Jul 2016 17:53:26 +0000

Quando você seta um número no ImageIndex de um TBennerBtn, mas não seta nenhuma lista de imagens no botão, ele exibe uma imagem de uma lista de imagens "padrão" do Runner.

Eu queria usar uma imagem dessa lista padrão fora do TBennerBtn, como eu faço pra acessar essa lista de imagens padrão?

Quais são os componentes Delphi/BEF que traduzem as funções de SQL Especiais (@funcao) ?

Tue, 22 Mar 2016 20:16:18 +0000

Conforme links abaixo existem diversas funções especiais que podem ser utilizados em sentenças SQLs:

http://wiki.benner.com.br/wiki/index.php?title=Fun%C3%A7%C3%B5es_para_Sele%C3%A7%C3%B5es_Especiais

Exemplo: @AGORA, @TROCARNULO(expressão,valor), ...

Quais são os componentes Delphi / BEF que suportam?

BEF:

[ ] QuerySource

Delphi:

[ ] TBQuery

[ ] TEntityDataSet

[ ] TBSQLNativeControl

[ ] ...

Existe um similar ao SqlResources.Now() no Delphi ou Macro?

Tue, 22 Mar 2016 20:05:18 +0000

O comando SqlResources.Now() retorna uma constante string que representa a função do banco de dados que retorna a data/hora atual. Por exemplo:

- caso o banco seja SQL Server o resultado do método será: "GETDATE()"

- caso o banco seja Oracle o resultado do método será: "sysdate"

Temos uma função similar no Delphi ou Macro?

Configurar o TBVirtualEngine do delphi para não montar algumas páginas de campos do tipo "TABS"!

Tue, 26 Jan 2016 12:39:48 +0000

Olá Prezados,

Estou com uma dúvida. É possível informar ao TBVirtualEngine do delphi para não montar alguma página de um campo do tipo TABS?

Eu sei que existe a propriedade HideFields e já utilizei ela algumas vezes. Acontece que não quero que um campo não seja exibido totalmente, pois tenho um campo do tipo TABS com 5 páginas, e gostaria que somente uma das páginas não fosse criada. Tem como fazer isso?

Algo como --> bveDemanda.HideFields.Add('TIPO=1002');

"Não é possível obter entidades em modo de edição a partir de fontes de dados Virtual", o que fazer para resolver?

Mon, 26 Jan 2015 13:52:50 +0000

Ao utilizar uma tabela virtual, enviar um insert e logo após o preenchimento dos campos enviar um post ocorre o erro informado "Não é possível obter entidades em modo de edição a partir de fontes de dados Virtual" porém não há indicios em nenhum evento pós "Post" ou quaçquer outro evento como também não há em macros de tabela.

O que fazer quando o Delphi cai na CPU Window ao invés de parar no breakpoint?

Fri, 16 Jan 2015 15:39:52 +0000

De repente o Delphi para de parar no breakpoint e fica insistentemente abrindo a CPU Window, por que isto acontece? Como resolver?

Existe um objeto similar ao MemoryTables e MemoryFields do Delphi no BEF ?

Wed, 22 Oct 2014 18:19:21 +0000

O MemoryTables e MemoryFields é um objeto do Delphi/Benner que funciona como uma Cache para Z_TABELAS e Z_CAMPOS.

Consigo buscar todas as informações de campos e tabelas sem SQL,

Por exemplo, quero saber se uma tabela é PorEmpresa:

iTable  := MemoryTables.IndexOfName('GN_PESSOAS');
if MemoryTables.p^[iTable].PorEmpresa then

Temos um objeto similar no BEF?

Existe alguma maneira de capturar uma exceção específica do C# no Delphi?

Tue, 09 Sep 2014 19:33:53 +0000

Quando uma exceção é lançada do C# para o Delphi, não é possível saber qual é o tipo desta exceção porque a mesma não existe no Delphi. Mas eu gostaria de saber se existe alguma forma de criar um tipo de exceção no C# e de algum modo saber que é esta exceção no Delphi?

Tem como capturar algum código ou algo assim?

como adicionar uma lista de imagens nas propriedades de um componente TBennerBtn?

Fri, 29 Aug 2014 18:07:03 +0000

Como ligar o componente TBennerBtn a uma lista de imagens(imagem1 e imagem2)

Se eu tentar copiar o valor do campo “ImagemListDisable” de um botão existente e colar no campo do botão novo ocorre o erro (imagem3).

O que precisa ser feio?

Pesquisei na Wiki por “CommonNoVisibleComponents”, mas não encontrei nada que me ajudasse.

Erro em Sys.CurrentQuery.FieldByName[''].IsNull na conversão de Delphi7 para DelphiXE3

Mon, 14 Jul 2014 19:09:04 +0000

Ao realizar a conversão me deparei com o problema abaixo:

if not Sys.CurrentQuery.FieldByName['TABELAFILME'].IsNull

É apresentado o erro: Undeclared identifier 'IsNull' at line 287.

Qual a melhor forma de resolver?

Como converter um .DFM com caracteres especiais (binário) para texto?

Wed, 02 Jul 2014 15:33:28 +0000

Tem como converter um .DFM com caracteres especiais (binário) para texto?

No Delphi 7, temos alguns formulários cujo o arquivo DFM contém diversos caracteres especiais (binário) diferentemente do modo padrão que é apenas texto.

Este modo binário dificulta bastante a comparação e merges de fontes DFM.

Tem como converter esse DFM binário para texto novamente?

Trecho do DFM binário:

ParentFont    TLabel¬lbl2 Left ð Top   Width Y Height  Caption  Qtde Documentos:  TBPanel
pnlSuperior Left   Top   Width    Height   Align alTop
BevelOuter bvNone TabOrder   SkinData.CustomFont	 SkinData.SkinSection  MENUITEM Gradient  
TBennerBtnbtnSair Left   Top   Width   Height   Hint )   Sair|Sair do FormulÃ¡rio - Tecla <Alt+F4>Options

O que é mais rápido: TDContainer.Locate, TDContainer.LocateWhere ou Linq no C#?

Fri, 23 May 2014 14:18:57 +0000

Das três opções informadas, qual é mais performatica? Ou seja, executará mais rápido?

CreateBennerObject em DLL C#

Thu, 22 May 2014 14:04:12 +0000

Ao tentar criar um objeto de uma DLL em C# em macro ou delphi ocorre o seguinte erro:

Could not convert variant of type (Unknown) into type (Dispatch).

Por que as dlls compiladas em delphi 7 não funcionam em delphi xe3?

Thu, 22 May 2014 14:00:05 +0000

Estou utilizando um sistema com runner 14.1, com uma dll compilada em delphi 7.

No CreateBennerObject ocorre o erro: Não foi possível criar o objeto "Corporativo.dll.ContasPagar". Entre em contato com o suporte.

Por que a vcltec170.bpl passou a ser um arquivo de servidor na versão xe3?

Wed, 21 May 2014 11:35:29 +0000

Antes nenhum arquivo .bpl podia ser arquivo de servidor, por que a vcltec170.bpl será de servidor?

O sistema pode colocar suas bpls como arquivos de servidor também?

Isso é recomendável?

O que fazer quando as linhas de depuração do Delphi 7 não correspondem a linhas do código fonte?

Wed, 14 May 2014 17:49:25 +0000

Tenho uma unit (Delphi 7) onde após realizar a compilação / build, as marcações de depuração não corresponde a uma linha válida do código fonte, ou algumas linhas do código fonte foram ignoradas.

Exemplo:

Access Violation ao liberar IEntityCallProxy e IBusinessComponentProxy

Wed, 14 May 2014 12:09:47 +0000

Após a utilização dos objetos IEntityCallProxy ou IBusinessComponentProxy da tecnologia, ao tentar executar o comando FreeAndNill do Delphi resulta em um Access Violation, mesmo utilizando a verificação Assigned().

Não permite acesso à TypeLibrary de uma DLL convertida para Delphi XE3

Tue, 13 May 2014 14:06:46 +0000

Não estou conseguindo acessar a Type Library de uma dll convertida para o Delphi XE3.

A opção fica cinza no menu view.

Como resolver o erro "Cannot Open AVI" ao depurar o sistema no Runner?

Mon, 12 May 2014 11:37:17 +0000

Ao executar o sistema desktop (Runner) em modo de depuração pelo Delphi, ocorre o erro "Cannot Open AVI".

Como faço para resolver esse problema?

Como faço para instalar os componentes da Benner no Delphi XE3?

Fri, 09 May 2014 14:36:05 +0000