Erro ao abrir formul�rio - Acess Violation

Question

Gente,Estou com este problema ao abrir o formul�rio. No Formprincipal eu chamo da seguinte forma:[code]   if formTrocarLote = nil then      formTrocarLote := TformTrocarLote.create(Application);...

Douglas · Answer

Ol� Dirceu, tudo bem? Vamos fazer um teste simples, no create do formul�rio voc� vai trocar application por nil...

Dirceu Morais · Answer

Obrigado Douglas,Mas n�o deu certo. Continua com o mesmo problema....

Douglas · Answer

Dirceu, debugue o c�digo e veja exatamente onde ocorre o erro. Aguardo o seu feedback...

Thiago Santana · Answer

Dirceu, tenta o seguinte c�digo:Outra coisa que voc� precisa verificar � se no seu projeto esse form est� marcado para ser criado ao iniciar!Espero ter ajudado....

Dirceu Morais · Answer

Valeu vou testar.Mas como disse, o interessante � que nos outros PCs funcionam. Neste funcionava e de repente parou....

Thiago Santana · Answer

Muito estranho!Deve funcionar em todas as esta��es!...

Douglas · Answer

Thiago, realmente muito estranho....

Douglas · Answer

Dirceu, construa um novo projeto apartado e leve o seu formul�rio TformTrocarLote tente abri-lo....

Dirceu Morais · Answer

Pessoal,Estranhamente hoje, o formul�rio abriu!!!!!!Estranho, porque este problema, estava acontecendo h� alguns, ou seja, o computador foi desligado e ligado novamente.N�o posso nem postar a solu��o do problema, para os outros colegas, porque n�o sei o que ocasional o erro e nem o motivo para voltar funcionar.� doideira!!!!!!...

Thiago Santana · Answer

Coloca doidera nisto kkkkkkkkkkkk...

Dirceu Morais · Answer

Pessoal,

O problema voltou a dar em outro cliente, do mesmo jeito, ou seja, tem um computador que est� com problema e tenho outros na mesma rede que abre o formul�rio normalmente.

O Ruim disso tudo � que n�o consigo debuggar, porque no meu computador que tem o Delphi instalado o programa abre normalmente.

Algu�m j� passou por isso?

Felipe Morais · Answer

Um Form � um Objeto. Quando manipulamos um objeto e aparece um Access Violation, pode ser um dos cen�rios:

-> Tentar acessar um Objeto que n�o foi instanciado (geralmente pelo

constructor Create

);
-> Tentar destruir um Objeto que n�o existe mais;

Quando se cria Forms em tempo de execu��o, � seguro fazer uma verifica��o se a inst�ncia desse Form est� criada. Se n�o estiver, � preciso chamar o construtor para instanciar o Form:

if not (Assigned(Seu_Form)) then
  // T�cnica padr�o do Delphi para cria��o de Forms (veja seu .dpr, por exemplo)
  Application.CreateForm(TSeu_Form, Seu_Form);

Feito isso, mostre seu Form (Show ou ShowModal) e depois n�o se esque�a de liber�-lo da mem�ria. O c�digo completo seria:

if not (Assigned(Seu_Form)) then
    Application.CreateForm(TSeu_Form,Seu_Form);

  try
    Seu_Form.ShowModal;
  finally
    FreeAndNil(Seu_Form);
  end;

Dirceu Morais · Answer

Testei da forma que voc� mencionou, mas continua com o mesmo problema....

Felipe Morais · Answer

Project > Options > Aba FormsVerifique se o formul�rio que est� chamando no c�digo est� na janela Available Forms. Se ainda assim n�o resolver, posta o c�digo pra gente dar uma olhada....

Dirceu Morais · Answer

Criei um form novo e copiei somente os dados iniciais e mesmo assim continua problema ao criar o formul�rio.

LEMBRANDO, que o formul�rio n�o abre em determinado computador, n�o consigo fazer DEBUGAR porque no meu abre normalmente.

unit UnEstimativa;

interface

uses
  Windows, FMTBcd, frxDMPExport, frxExportRTF, frxExportXLS,frxExportPDF,Forms,
  frxOLE, frxExportImage, frxExportMail, frxClass, frxDBSet, frxDesgn,SysUtils,
  Menus, RpDefine, RpBase, RpSystem, DB, Provider, SqlExpr, DBClient, inifiles,
  StdCtrls, ExtCtrls, Buttons, Controls, CheckLst, RXCtrls, ToolEdit, Messages,
  CurrEdit, AdvGlowButton, Grids, DBGrids, ComCtrls, RzTabs, Variants, Classes,
  Graphics, DBXpress, Mask, Math, DateUtils;

type
  TFormEstimativa = class(TForm)
   fxPedidos: TfrxReport;
    frxDesigner1: TfrxDesigner;
    frxEmitente: TfrxUserDataSet;
    frxORCAMENTO: TfrxDBDataset;
    frxDuplicatas: TfrxDBDataset;
    frxItensOrcamento: TfrxDBDataset;
    frxBMPExport1: TfrxBMPExport;
    frxMail: TfrxMailExport;
    frxJPEGExport1: TfrxJPEGExport;
    frxOLEObject1: TfrxOLEObject;
    frxPDFExport1: TfrxPDFExport;
    frxXLSExport1: TfrxXLSExport;
    frxRTFExport1: TfrxRTFExport;
    frxDotMatrixExport1: TfrxDotMatrixExport;
    cdsDigItensNota_Moeda: TStringField;
    cdsItensOPEDDESCRICAO: TStringField;
    cdsItensOPEDMOEDA: TStringField;
    cdsItensOPROCST: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
 private
    { Private declarations }
 public
    { Public declarations }
  end;

var
  FormEstimativa: TFormEstimativa;

implementation

uses UnPrincipal, unLocaliza, UnDMMov, UnLocCli, UnDadosCliente,
  UnSelecProd, unServicos, UnDM, UnVendedores, UnTransportadoras, UnBancos,
  UDialog, uRotinas, uMatricial, unPreview;

{$R *.DFM}

procedure TFormEstimativa.FormCreate(Sender: TObject);
begin
   // Configura��es iniciais
   Top := 6;
   Left := 110;
end;

procedure TFormEstimativa.FormDestroy(Sender: TObject);
begin
   FormOrcamento := Nil;
end;

procedure TFormEstimativa.FormClose(Sender: TObject;  var Action: TCloseAction);
begin
   Action := cafree;
end;

procedure TFormEstimativa.bfecharClick(Sender: TObject);
begin
   Close;
end;

F�rum Erro ao abrir formul�rio - Acess Violation #518382