Antes de copiar, vc ao menos verifica se o arquivo está em uso? Senão, veja o
código abaixo:
function IsFileInUse(FileName: TFileName): Boolean;
var
HFileRes: HFILE;
begin
Result := False;
if not FileExists(FileName) then
Exit;
HFileRes := CreateFile(
PChar(FileName),
GE
De fato, nenhuma das alternativas citadas serve para copiar arquivos via FTP. O
Windows Explorer reconhece de forma transparente o protocolo de comunicação a
ser usado para uma cópia de arquivos baseando-se no caminho UNC do mesmo. Por
isso que Ctrl+C e Ctrl+V no Windows Explorer funciona.
No
resolvido com o copyfile. Muito Obrigado!!!
Em 20/03/07, Alcistemas Informática <[EMAIL PROTECTED]> escreveu:
>
> WinExec(PChar('COMMAND.COM /C type c:\pedido.txt >
> COM1),SW_SHOWMINIMIZED)
>
> caso não resolva, faça assim,
>
> crie um arquivo bat, ex: c:\imprime.bat
>
> conteúdo do arquivo:
>
WinExec(PChar('COMMAND.COM /C type c:\pedido.txt > COM1),SW_SHOWMINIMIZED)
caso não resolva, faça assim,
crie um arquivo bat, ex:c:\imprime.bat
conteúdo do arquivo:
mode COM1 9600,n,8,1
MODE LPT1:=COM1:
type c:\arquivo.txt > LPT1
no PAINEL DE CONTROLE A
Maurici, eu pegeu esta duas dicas (807 e )do 850 dicas do delphi, se você especificaro que você quer, talvez eu possa lhe ajudar melhor.
807 - Copiando Um Arquivo Com Um Gauge
Muitas vezes, quando temos a necessidade de copiar um arquivo de um lugar para outro, é interessante mostrar
Boa noite, o que deseja afinal, copiar um arquivo de um diretório para outro?, copiar um arquivo pela rede?, ou enviar informações para outra instância do mesmo aplicativo?, tipo enviar um arquivo .ini para a outra instância ler?
[]'s
Allan
- Original Message -
From: Maurici Alvare
Valeu!
- Original Message -
From: "Eduardo Buffara" <[EMAIL PROTECTED]>
To:
Sent: Friday, March 31, 2006 11:42 AM
Subject: Re: [delphi-br] Copiar arquivo com janelinha do windows
Tente esse código :
Coloque no uses: ShellApi
{ - Coloque um botão no form e altere
Tente esse código :
Coloque no uses: ShellApi
{ - Coloque um botão no form e altere o evento OnClick deste botão conforme
abaixo:}
procedure TForm1.Button1Click(Sender: TObject);
var
Dados: TSHFileOpStruct;
Begin
FillChar(Dados,SizeOf(Dados), 0);
With Dados do
Begin
wFunc :=
Valeu, funcionou beleza!!!
Leandro
- Original Message -
From: "Walter Alves Chagas Junior" <[EMAIL PROTECTED]>
To:
Sent: Friday, March 31, 2006 11:34 AM
Subject: RES: [delphi-br] Copiar arquivo com janelinha do windows
Na minha pagina, na seção Units, tem uma unit que traz as funções
Utilize a função abaixo. O primeiro parametro é a origem e o segundo é o
destino. Não esqueça de colocar o caminho completo nos dois parametros, isso
inclui o nome do arquivo. Inclua, caso já não tenha as Uses Classes, SysUtils.
Procedure CopiaArquivo( Const sourcefilename, targetfilename: Str
Tenta usar esse procedimento ó... eu uso aqui e funciona beleza!
Procedure CopyFile(Const sourcefilename, targetfilename: String);
Var S, T: TFileStream;
Begin
S := TFileStream.Create( sourcefilename, fmOpenRead );
try
T := TFileStream.Create( targetfilename, fmOpenWrite or fmCr
11 matches
Mail list logo