SQL com Progress / Ajuda com variavel!

Delphi

18/06/2010

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

Curtidas 0

Respostas

Robson Morais

Robson Morais

18/06/2010

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;

GOSTEI 0
Robson Morais

Robson Morais

18/06/2010

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;

GOSTEI 0
Robson Morais

Robson Morais

18/06/2010

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;

GOSTEI 0
Robson Morais

Robson Morais

18/06/2010

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;

GOSTEI 0
POSTAR