buenos dias compañeros les comento lo que uqiero hacer despues de copiar los archivos de un servidor a una maquina lo que quiero realiar es que cada uno de los archivos se inpriman automaticamente utilizo el siguiente codigo
Código Delphi
[-]
Qry_pdf.Close;
Qry_pdf.ParamByName('nquoteid').Value:=Form2.dbgrid1.Fields[0].Value;
Qry_pdf.Open;
i:=0;
seleccion:=0;
Seleccion:=Qry_pdf.RecordCount;
Qry_pdf.First;
Dir3:='C:\Especificaciones';
if not DirectoryExists(Dir3) then
if not CreateDir(Dir3) then
raise Exception.Create('Cannot create c:\'+Dir3);
Dir1:='C:\Especificaciones\'+inttostr(Form2.dbgrid1.Fields[0].Value);
if not DirectoryExists(Dir1) then
if not CreateDir(Dir1) then
raise Exception.Create('Cannot create c:\'+Dir1);
While ido
begin
Dir:='';
Dir:='\\Sitiserver\Users\Especificaciones\'+Qry_pdf.FieldByName('sitemid').value+'.pdf';
Dir2:='';
Dir2:='C:\Especificaciones\'+inttostr(Form2.dbgrid1.Fields[0].Value)+'\'+Qry_pdf.FieldByName('sitemid').value+'.pdf';
if NOT CopyFile(pchar(Dir), pchar(Dir2),FALSE) then
MessageDlg('The File '+Qry_pdf.FieldByName('sitemid').value+'.pdf no Was Copied', mtWarning, [mbOk], 0)
else
begin
AcroPDF1.LoadFile(Dir2);
AcroPDF1.printAll;
end;
i:=i+1;
Qry_pdf.Next;
end;
pero al parecer se queda travado y no me inprime nada pero tampoco me sale un error cosa que no sucede cuando lo hago fuera de un ciclo alguna idea de que pueda ser mil gracias.