PAGUE 6 MESES
LEVE 12 MESES
GARANTIR DESCONTO

Fórum SQL com Progress / Ajuda com variavel! #379757

18/06/2010

0

Delphi

Olá pessoal, eu peguei um exemplo de um arquivo de ajuda do delphi, mas ele é tão antigo que foi feito no delphi 3 e estou com problemas na variavel.


Declarei na Uses do Formulario [b]BDE[/b]

Variaveis
  private
    FCBPROGRESSDesc: pCBPROGRESSDesc;
    FProgressCallback: TBDECallback;
    function GetDataCallback(CBInfo: Pointer): CBRType;



está dando erro nessa variavel
FProgressCallback: TBDECallback;
falando que não está declarada, no exemplo falou que caso acontece isso colocar na uses do programa o BDE e após o 

{$R *.res}

begin
  Application.Initialize;
  DbiInit(nil);


[b]ai já coloquei e mesmo assim continua dando erro......
Undeclared Identifier : TBDECallback;
[/b]


abaixo o resto do codigo



function TFAdmPes007.GetDataCallback(CBInfo: Pointer): CBRType;
begin
    Result := cbrCONTINUE;
    with pCBPROGRESSDesc(CBInfo)^ do
      begin
        if iPercentDone < 0 then
          begin
            Label1.Caption := szMsg;
            Label1.Refresh;
            JvGradientProgressBar1.StepIt; {Apenas para ficar rodando o gauge}
          end
          else
          begin
            JvGradientProgressBar1.Position := iPercentDone;
          end;
      end;
end;

procedure TFAdmPes007.FormCreate(Sender: TObject);
begin
    FCBPROGRESSDesc := AllocMem(SizeOf(CBPROGRESSDesc));
    FProgressCallback := TBDECallback.Create(Self, Query1.Handle,
    cbGENPROGRESS, FCBPROGRESSDesc, SizeOf(CBPROGRESSDesc),
    GetDataCallback, True); 
end;

procedure TFAdmPes007.FormDestroy(Sender: TObject);
begin
    FProgressCallback.Free;
    FreeMem(FCBPROGRESSDesc, SizeOf(CBPROGRESSDesc)); 
end;
Robson Morais

Robson Morais

Responder

Posts

18/06/2010

Robson Morais

Deu erro no post acima........




Olá pessoal, eu peguei um exemplo de um arquivo de ajuda do delphi, mas ele é tão antigo que foi feito no delphi 3 e estou com problemas na variavel.


Declarei na Uses do Formulario BDE

Variaveis
private
    FCBPROGRESSDesc: pCBPROGRESSDesc;
    FProgressCallback: TBDECallback;
    function GetDataCallback(CBInfo: Pointer): CBRType;


está dando erro nessa variavel QUOTEFProgressCallback: TBDECallback;falando que não está declarada, no exemplo falou que caso acontece isso colocar na uses do programa o BDE e após o 

{$R *.res}

begin
  Application.Initialize;
  DbiInit(nil);


ai já coloquei e mesmo assim continua dando erro......
Undeclared Identifier : TBDECallback;



abaixo o resto do codigo


function TFAdmPes007.GetDataCallback(CBInfo: Pointer): CBRType;
begin
    Result := cbrCONTINUE;
    with pCBPROGRESSDesc(CBInfo)^ do
      begin
        if iPercentDone < 0 then
          begin
            Label1.Caption := szMsg;
            Label1.Refresh;
            JvGradientProgressBar1.StepIt; {Apenas para ficar rodando o gauge}
          end
          else
          begin
            JvGradientProgressBar1.Position := iPercentDone;
          end;
      end;
end;

procedure TFAdmPes007.FormCreate(Sender: TObject);
begin
    FCBPROGRESSDesc := AllocMem(SizeOf(CBPROGRESSDesc));
    FProgressCallback := TBDECallback.Create(Self, Query1.Handle,
    cbGENPROGRESS, FCBPROGRESSDesc, SizeOf(CBPROGRESSDesc),
    GetDataCallback, True); 
end;

procedure TFAdmPes007.FormDestroy(Sender: TObject);
begin
    FProgressCallback.Free;
    FreeMem(FCBPROGRESSDesc, SizeOf(CBPROGRESSDesc)); 
end;

Responder

Gostei + 0

18/06/2010

Robson Morais

Deu erro no post acima........




Olá pessoal, eu peguei um exemplo de um arquivo de ajuda do delphi, mas ele é tão antigo que foi feito no delphi 3 e estou com problemas na variavel.


Declarei na Uses do Formulario BDE

Variaveis
private
    FCBPROGRESSDesc: pCBPROGRESSDesc;
    FProgressCallback: TBDECallback;
    function GetDataCallback(CBInfo: Pointer): CBRType;


está dando erro nessa variavel QUOTEFProgressCallback: TBDECallback;falando que não está declarada, no exemplo falou que caso acontece isso colocar na uses do programa o BDE e após o 

{$R *.res}

begin
  Application.Initialize;
  DbiInit(nil);


ai já coloquei e mesmo assim continua dando erro......
Undeclared Identifier : TBDECallback;



abaixo o resto do codigo


function TFAdmPes007.GetDataCallback(CBInfo: Pointer): CBRType;
begin
    Result := cbrCONTINUE;
    with pCBPROGRESSDesc(CBInfo)^ do
      begin
        if iPercentDone < 0 then
          begin
            Label1.Caption := szMsg;
            Label1.Refresh;
            JvGradientProgressBar1.StepIt; {Apenas para ficar rodando o gauge}
          end
          else
          begin
            JvGradientProgressBar1.Position := iPercentDone;
          end;
      end;
end;

procedure TFAdmPes007.FormCreate(Sender: TObject);
begin
    FCBPROGRESSDesc := AllocMem(SizeOf(CBPROGRESSDesc));
    FProgressCallback := TBDECallback.Create(Self, Query1.Handle,
    cbGENPROGRESS, FCBPROGRESSDesc, SizeOf(CBPROGRESSDesc),
    GetDataCallback, True); 
end;

procedure TFAdmPes007.FormDestroy(Sender: TObject);
begin
    FProgressCallback.Free;
    FreeMem(FCBPROGRESSDesc, SizeOf(CBPROGRESSDesc)); 
end;

Responder

Gostei + 0

18/06/2010

Robson Morais

Olá pessoal, eu peguei um exemplo de um arquivo de ajuda do delphi, mas ele é tão antigo que foi feito no delphi 3 e estou com problemas na variavel.


Declarei na Uses do Formulario BDE

Variaveis

private
    FCBPROGRESSDesc: pCBPROGRESSDesc;
    FProgressCallback: TBDECallback;
    function GetDataCallback(CBInfo: Pointer): CBRType;


está dando erro nessa variavel QUOTEFProgressCallback: TBDECallback;falando que não está declarada, no exemplo falou que caso acontece isso colocar na uses do programa o BDE e após o

CODE{$R *.res}

begin
  Application.Initialize;
  DbiInit(nil);

ai já coloquei e mesmo assim continua dando erro......
Undeclared Identifier : TBDECallback;


abaixo o resto do codigo


function TFAdmPes007.GetDataCallback(CBInfo: Pointer): CBRType;
begin
    Result := cbrCONTINUE;
    with pCBPROGRESSDesc(CBInfo)^ do
      begin
        if iPercentDone < 0 then
          begin
            Label1.Caption := szMsg;
            Label1.Refresh;
            JvGradientProgressBar1.StepIt; {Apenas para ficar rodando o gauge}
          end
          else
          begin
            JvGradientProgressBar1.Position := iPercentDone;
          end;
      end;
end;

procedure TFAdmPes007.FormCreate(Sender: TObject);
begin
    FCBPROGRESSDesc := AllocMem(SizeOf(CBPROGRESSDesc));
    FProgressCallback := TBDECallback.Create(Self, Query1.Handle,
    cbGENPROGRESS, FCBPROGRESSDesc, SizeOf(CBPROGRESSDesc),
    GetDataCallback, True); 
end;

procedure TFAdmPes007.FormDestroy(Sender: TObject);
begin
    FProgressCallback.Free;
    FreeMem(FCBPROGRESSDesc, SizeOf(CBPROGRESSDesc)); 
end;

Responder

Gostei + 0

18/06/2010

Robson Morais

Olá pessoal, eu peguei um exemplo de um arquivo de ajuda do delphi, mas ele é tão antigo que foi feito no delphi 3 e estou com problemas na variavel.


Declarei na Uses do Formulario BDE

Variaveis

private
    FCBPROGRESSDesc: pCBPROGRESSDesc;
    FProgressCallback: TBDECallback;
    function GetDataCallback(CBInfo: Pointer): CBRType;


está dando erro nessa variavel QUOTEFProgressCallback: TBDECallback;falando que não está declarada, no exemplo falou que caso acontece isso colocar na uses do programa o BDE e após o

CODE{$R *.res}

begin
  Application.Initialize;
  DbiInit(nil);

ai já coloquei e mesmo assim continua dando erro......
Undeclared Identifier : TBDECallback;


abaixo o resto do codigo


function TFAdmPes007.GetDataCallback(CBInfo: Pointer): CBRType;
begin
    Result := cbrCONTINUE;
    with pCBPROGRESSDesc(CBInfo)^ do
      begin
        if iPercentDone < 0 then
          begin
            Label1.Caption := szMsg;
            Label1.Refresh;
            JvGradientProgressBar1.StepIt; {Apenas para ficar rodando o gauge}
          end
          else
          begin
            JvGradientProgressBar1.Position := iPercentDone;
          end;
      end;
end;

procedure TFAdmPes007.FormCreate(Sender: TObject);
begin
    FCBPROGRESSDesc := AllocMem(SizeOf(CBPROGRESSDesc));
    FProgressCallback := TBDECallback.Create(Self, Query1.Handle,
    cbGENPROGRESS, FCBPROGRESSDesc, SizeOf(CBPROGRESSDesc),
    GetDataCallback, True); 
end;

procedure TFAdmPes007.FormDestroy(Sender: TObject);
begin
    FProgressCallback.Free;
    FreeMem(FCBPROGRESSDesc, SizeOf(CBPROGRESSDesc)); 
end;

Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar