Api Para Mover Arquivo

[Arlon]

Function ProcessArquivo(const Origem, Destino : string; Operacao, Modo:Integer) : Boolean;
  // Requer a unit ShellApi na clausula uses da unit
  Const
  Aborted : Boolean = False;
  var
  shfo : TSHFileOpStruct;
  begin
  FillChar(shfo,SizeOf(shfo),$0);
  with shfo do
  begin
  if Operacao > 2 then
  begin
  operacao := 2;
  end;
  if Modo > 5 then
  begin
  modo := 1;
  end;
  case operacao of
  1: wFunc := FO_MOVE;
  2: wFunc := FO_COPY;
  end;
  pFrom := Pchar(Origem);
  pTo := Pchar(Destino);
  case Modo of
  1: fFlags := FOF_SILENT;
  2: fFlags := FOF_ALLOWUNDO or FOF_FILESONLY;
  3: fFlags := FOF_RENAMEONCOLLISION;
  4: fFlags := FOF_NOCONFIRMATION;
  5: fFlags := FOF_SIMPLEPROGRESS;
  end;
  end;
  Result := (SHFileOperation(shfo)= 0) and (not Aborted);
  end;

O código acima é usado para copiar ou mover arquivos (bem, era isso que tava dizendo lá onde eu o peguei --> www.delphi.eti.br).

Minha situação é a seguinte:

eu tenho uma pasta chamada Pedidos e duas subpastas (Pendentes e Enviados). Gero um relatório e salvo em .doc no caminho ('C:\Pedidos\Pendentes\Ordem de serviço.doc'), daí após isso eu envio o arquivo .doc por email através da própria aplicação. Após enviar eu quero mover esse arquivo para ('C:\Pedidos\Enviados\Ordem de serviço.doc').

Pra criar a função é só ir no Public Declarations e escrever "Function ProcessArquivo(const Origem, Destino : string; Operacao, Modo:Integer) : Boolean;" (certo??) e dar Ctrl + Shift + C e depois colar o código acima. Mas aí como eu faria pra "executar", ou seja, chamar essa função?? Ou se alguém tiver, pode mandar pra mim um código que ao invés de ser uma função eu possa colocar num botão.

Valeu mesmo galera.

[Corposemalma]

entendendo uma função:

Function ProcessArquivo(const Origem, Destino : string; Operacao, Modo:Integer) : Boolean;

Function NomeFuncao(dados de entrada): Resultado;

então para utilizar:

if ProcessArquivo('c:\origem\', 'd:\destino', 1, 2) = true then ShowMessage('Copia concluida com Sucesso')

Voce pode ver os valores de modo e operacao na funcao nos dois CASE

[Arlon]

Eu coloquei o seguinte:

function TFormPrincipal.ProcessArquivo(const Origem, Destino: string;
  Operacao, Modo: Integer): Boolean;
  Const
  Aborted : Boolean = False;
  var
  shfo : TSHFileOpStruct;
  begin
  FillChar(shfo,SizeOf(shfo),$0);
  with shfo do
  begin
  if Operacao > 2 then
  begin
  operacao := 2;
  end;
  if Modo > 5 then
  begin
  modo := 1;
  end;
  case operacao of
  1: wFunc := FO_MOVE;
  2: wFunc := FO_COPY;
  end;
  pFrom := Pchar('C:\Pedidos\Pendentes\'+'OS - '+DM.QrRelatPedidosOS.Value+'.doc');
  pTo := Pchar('C:\Pedidos\Enviados\'+'OS - '+DM.QrRelatPedidosOS.Value+'.doc');
  case Modo of
  1: fFlags := FOF_SILENT;
  2: fFlags := FOF_ALLOWUNDO or FOF_FILESONLY;
  3: fFlags := FOF_RENAMEONCOLLISION;
  4: fFlags := FOF_NOCONFIRMATION;
  5: fFlags := FOF_SIMPLEPROGRESS;
  end;
  end;
  Result := (SHFileOperation(shfo)= 0) and (not Aborted);
end;

procedure TFormPrincipal.BtnMoverClick(Sender: TObject);
begin
ProcessArquivo('C:\Pedidos\Pendentes\'+'OS - '+DM.QrRelatPedidosOS.Value+'.doc', 'C:\Pedidos\Enviados\'+'OS - '+DM.QrRelatPedidosOS.Value+'.doc', 1, 5);
end;
end.

Por acaso aqueles números de 1 a 5 são mensagens (ou coisas do tipo) que aparecerão quando eu for mover ou copiar o arquivo?

e o windows me rrtornou uma mensagem dizendo que não pode mover o arquivo porque ele já pode ter sido excluido ou movido, mas o estranho é que o arquivo tá la na origem. Valeu Corposemalma, vou continuar tentando.

[Capablanca]

Olá Arlon,

Eu tentei utilizar esta função e ela não moveu o arquivo (CorpoSemAlma, vc. chegou utilizá-la? Deu certo?).

Porque você não usa os comandos MOVEFILE ou COPYFILE? Exemplo:

procedure TForm1.Button1Click(Sender: TObject);
begin
MoveFile('C:\origem\teste.doc','C:\destino\teste.doc');
end;

ou

procedure TForm1.Button1Click(Sender: TObject);
begin
CopyFile('C:\origem\teste.doc','C:\destino\teste.doc',false);
end;

São simples e funcionam.

[Corposemalma]

não tentei não....

Acho melhor usar o copy e move file

[s3c]

pFrom := Pchar(Origem);

pTo := Pchar(Destino);

Tente modificar para:

pFrom := Pchar(Origem+#0);

pTo := Pchar(Destino+#0);

[Capablanca]

pFrom := Pchar(Origem);

pTo := Pchar(Destino);

Tente modificar para:

pFrom := Pchar(Origem+#0);

pTo := Pchar(Destino+#0);

Parabéns, funcionou. Não entendi o resultado de acrescentar "+#0".

Tem como explicar?

[Arlon]

He he.. esse modificação no código que o s3c passou funciona mesmo!!

Aí Capablanca, apesar de nem ter usado esse que você me passou (que eu também nem conhecia ), valeu tua ajuda tb.

uow... como eu estou feliz agora!!!!

[s3c]

Na verdade o parâmetro pFrom é um ponteiro para diversos filenames.

Quando você define PChar(String), seu último caracter é #0.

Como pFrom é um PChar p/ várias Strings, a api tenta ler próximo nome de filename após o #0; é por isso que é adicionado outro #0 dizendo que não há mais Strings para ler.

[Capablanca]

Na verdade o parâmetro pFrom é um ponteiro para diversos filenames.

Quando você define PChar(String), seu último caracter é #0.

Como pFrom é um PChar p/ várias Strings, a api tenta ler próximo nome de filename após o #0; é por isso que é adicionado outro #0 dizendo que não há mais Strings para ler.

Valeu pelos esclarecimentos, S3C.

[Arlon]

Aí Capablanca, eu usei o código que você passou...

MoveFile('C:\origem\teste.doc','C:\destino\teste.doc');

...e deu o seguinte erro:

[Error] PrincipalForm.pas(353): Incompatible types: 'String' and 'PChar'

como fazer a conversão?

[Capablanca]

Aí Capablanca, eu usei o código que você passou...

MoveFile('C:\origem\teste.doc','C:\destino\teste.doc');

...e deu o seguinte erro: [Error] PrincipalForm.pas(353): Incompatible types: 'String' and 'PChar' como fazer a conversão?

Olá ARLON, Não é necessário fazer nenhuma conversão. Eu apenas coloco o código que eu mencionei e funciona (acabei de fazer o teste novamente, e o o arquivo foi movido da pasta de origem para a pasta de destino normalmente). Veja a minha UNIT completa:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
MoveFile('C:\origem\teste.doc','C:\destino\teste.doc');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
CopyFile('C:\origem\teste.doc','C:\destino\teste.doc',false);
end;

end.

Não sei te explicar por qual razão está dando esta mensagem. Com certeza você não está utilizando um exemplo tão simples quanto o que eu postei. Logo, acredito que seja algo relacionado às peculiaridades do seu código. Tente fazer um exemplo simples e veja se funciona e depois tente implementar novamente em seu código.

[Arlon]

Sei lá que maluquice é essa então.

Mas deixa pra lá, eu estou usando aquela função mesmo. Depois eu dou uma olhada com mais calma e vejo se eu estou errando alguma coisa.

[s3c]

Teria que dar certo quando você utiliza as Strings explícitas.

Por exemplo:

MoveFile('C:\origem\teste.doc','C:\destino\teste.doc'); //Não deveria dar erro de conversão.

Agora, se for utilizado:

MoveFile(sOrigem, sDestino); // erro de conversão, o certo seria:
MoveFile(PChar(sOrigem), PChar(sDestino));