<div dir="ltr"><div class="gmail_default" style="font-family:tahoma,sans-serif">Héctor, </div><div class="gmail_default" style="font-family:tahoma,sans-serif">La función CopyFile no hace raise de error, sólo devuelve un booleano indicando si la copia funcionó.</div><div class="gmail_default" style="font-family:tahoma,sans-serif"><br></div><div class="gmail_default"><font face="tahoma, sans-serif"><a href="http://wiki.lazarus.freepascal.org/CopyFile">http://wiki.lazarus.freepascal.org/CopyFile</a></font><br></div><div class="gmail_default"><font face="tahoma, sans-serif"><br></font></div><div class="gmail_default"><font face="tahoma, sans-serif">por otro lado, creo que los #39 son innecesarios (puedo estar equivocado)</font></div><div class="gmail_default"><font face="tahoma, sans-serif"><br></font></div></div><div class="gmail_extra"><br><div class="gmail_quote">2017-07-11 7:20 GMT-03:00 hfiandor via Lazarus-es <span dir="ltr"><<a href="mailto:lazarus-es@lists.lazarus-ide.org" target="_blank">lazarus-es@lists.lazarus-ide.org</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div lang="ES-MX" link="#0563C1" vlink="#954F72"><div class="m_1926187904088052629WordSection1"><p class="MsoNormal"><span lang="ES">Estimados colegas:<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES"><u></u> <u></u></span></p><p class="MsoNormal"><span lang="ES">En una aplicación necesito copiar un fichero .db<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">Tengo en el uses el FileUtil, el LazFileUtils y el LazUtils.<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES"><u></u> <u></u></span></p><p class="MsoNormal"><span lang="ES">Hago lo siguiente:<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">try<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">    sour:=camino_BD+'\<wbr>Clasificadores.db';<u></u><u></u></span></p><p class="MsoNormal"><span lang="EN-US">    sour:=#39 + sour + #39;  //para ponerle single quote<u></u><u></u></span></p><p class="MsoNormal"><span lang="EN-US">    dest:=camino_BD+'\Copia_<wbr>Clasificadores.db';<u></u><u></u></span></p><p class="MsoNormal"><span lang="EN-US">    dest:=#39 + dest + #39;<u></u><u></u></span></p><p class="MsoNormal"><span lang="EN-US">mensa('sour: '+sour);<u></u><u></u></span></p><p class="MsoNormal"><span lang="EN-US">mensa('dest: '+dest);<u></u><u></u></span></p><p class="MsoNormal"><span lang="EN-US">    copyfile(sour,dest);<u></u><u></u></span></p><p class="MsoNormal"><span lang="EN-US">except<u></u><u></u></span></p><p class="MsoNormal"><span lang="EN-US">  On E:Exception do<u></u><u></u></span></p><p class="MsoNormal"><span lang="EN-US">  begin<u></u><u></u></span></p><p class="MsoNormal"><span lang="EN-US">    </span><span lang="ES">ShowMessage(E.Message);<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">  end;<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">end;<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES"><u></u> <u></u></span></p><p class="MsoNormal"><span lang="ES">Hasta aquí, el programa no da error, aunque no copia el fichero.<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">Consulté el WikiLeaks y trato de hacerlo como se indica.<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES"><u></u> <u></u></span></p><p class="MsoNormal"><span lang="ES">Si me pueden dar alguna ayuda, voy a aprender y agradecerlo mucho.<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES"><u></u> <u></u></span></p><p class="MsoNormal"><span lang="ES">Saludos<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">Ing. Héctor F. Fiandor Rosario<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES"><u></u> <u></u></span></p></div></div><br>______________________________<wbr>_________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus-ide.org">Lazarus-es@lists.lazarus-ide.<wbr>org</a><br>
<a href="https://lists.lazarus-ide.org/listinfo/lazarus-es" rel="noreferrer" target="_blank">https://lists.lazarus-ide.org/<wbr>listinfo/lazarus-es</a><br>
<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><span style="font-size:small;font-family:tahoma,sans-serif"><div style="display:inline">​</div></span><font face="tahoma, sans-serif" style="font-size:small">Most good programmers do programming not because they expect to get paid or get adulation by the public, but because it is fun to program.<div style="display:inline">​ ​</div></font><i style="font-size:small;font-family:tahoma,sans-serif">Linus Torvalds</i><br></div></div>
</div>