Discussion :

[snoop94]

Hello les gens !! Merry Christmas!!

Je voudrais utiliser une barre de progression sur un BatchMove!

Est ce possible??? Est ce que quelqu'un l'a deja utiliser ???

Merci

[snoop94]

Après qq recherches voila ce que g trouvé :

With BMImport do //Composant BatchMove
begin
Source := Tableaimporter;
Destination := TableResult;
Mode := batCopy;
try
bdec := BDECallback.Create(nil,Tableaimporter.Handle,cbGENPROGRESS,@cbDataBuff, SizeOf(cbDataBuff),BatchProgressCallback,true) ;
try
Execute;
finally
FreeAndNil(bdec) ;
end;
except on E:Exception do
showmessage(E.Message) ;
end;
end;


function TForm1.BatchProgressCallback(CBInfo: Pointer): CBRType;
var
s : string;
begin
if pCBPROGRESSDesc(cbInfo).iPercentDone < 0 then
begin
//"Records appended: XYZ"
s := pCBPROGRESSDesc(cbInfo).szMsg;
Delete(s, 1, Pos(': ', s) + 1) ;
ProgressBar1.Position := Round((StrToInt(s) / Tableaimporter.RecordCount) * 100) ;
end
else
begin
ProgressBar1.Position := pCBPROGRESSDesc(cbInfo).iPercentDone;
end;

result := cbrCONTINUE;
end; //BatchProgressCallback

Mais ce la ne fonctionne pas, a aucun moment on ne passe par la fonction!!

QQ1 pourrait t'il m'aider??