F�rum Criando DataModule em tempo de execu��o. #480280

27/05/2014

Bom dia,

Estou tentando criando um datamodule em tempo de execu��o, mas estou tendo problemas. Tenho a seguinte estrutura:

AutoCreate -> Est� somente o principal.

frmPrincipal -> Bot�o

procedure TForm2.SpeedButton2Click(Sender: TObject);
var ConsultaSQL : TForm;
begin
  ConsultaSQL := TfrmConsultaSQL.Create(nil);
  ConsultaSQL.ShowModal;
  ConsultaSQL.Free;
end;

frmConsultaSQL

  private
    SQL : TDataModule;

implementation
Uses untDMSQL; //Nome desta unit � DMSQL

procedure TfrmConsultaSQL.FormCreate(Sender: TObject);
begin
  SQL := TDMSQL.Create(self);
end;

J� tentei

procedure TfrmConsultaSQL.FormCreate(Sender: TObject);
begin
  SQL := DMSQL.Create(self);
end;

Quando passa por est� linha de cria��o do DataModule estoura um AV, se removo ela o form � criado normalmente.

Desde j�, obrigado!

Thiago Ribeiro

Curtir t�pico

+ 0

Responder

Posts

27/05/2014

Cau� Nishijima

Aparentemente seu c�digo esta correto,
Quando voc� deixa o DataModule no AutoCreate n�o da erro?
Se puder posta o c�digo do DataModule.

Responder

Gostei + 0

27/05/2014

Thiago Ribeiro

Sim, se eu coloco no AutoCreate ele n�o da erro.

Segue o c�digo do DM:

unit untDMSQL;

interface

uses
  SysUtils, Classes, FMTBcd, WideStrings, DBXFirebird, DB, SqlExpr, Provider,
  DBClient;

type
  TDMSQL = class(TDataModule)
    cdsFilmes: TClientDataSet;
    dpsFilmes: TDataSetProvider;
    qryFilmes: TSQLQuery;
    Banco: TSQLConnection;
    cdsDiretor: TClientDataSet;
    dspDiretor: TDataSetProvider;
    tlbDiretor: TSQLTable;
    cdsDiretorDIR_NOME: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DMSQL: TDMSQL;

implementation

{$R *.dfm}

end.

Responder

Gostei + 0

27/05/2014

Nelson Santos

ganhe dinheiro com softwares 3D com Delphi 7

Responder

Gostei + 0

27/05/2014

Thiago Ribeiro

Fiz o seguinte:

procedure TfrmConsultaSQL.FormCreate(Sender: TObject);
begin
  DMSQL := TDMSQL.Create(self);
end;

Percebi que o AV ocorre quando passo por est� outra linha, quando utilizo um componente que est� dentro deste DM.

procedure TfrmConsultaSQL.edtDiretorChange(Sender: TObject);
var Diretor : String;
begin
  Diretor := edtDiretor.Text;
  DMSQL.cdsFilmes.Close; // Aqui
  DMSQL.qryFilmes.ParamByName('Diretor').AsString := Diretor;
  DMSQL.cdsFilmes.Open;
end;

Responder

Gostei + 0

27/05/2014

Nelson Santos

ganhe dinheiro com softwares 3D com Delphi 7
http://www.3dsistemas.com.br/#!curso-delpih3d/cisv

Responder

Gostei + 0