envio de arquivos pela aplicacao

17/12/2003

1

Srs. Gostaria de saber se alguem tem conhecimento sobre o procedimento para enviarmos arquivos (.txt, .xml, etc) utilizando sockets?? ou utilizando algum outro procedimento.
Grato


Responder

Posts

18/12/2003

Nigro

Porque você não pegas umas rotinas de cópia de arquivos na net, colocar dois edit´s no seu form onde um é o path de origem e o outro edit o path de destino, assim coloque um código parecido como o que segue abaixo no botão:
procedure TForm1.Button2Click(Sender: TObject);
var
SR: TSearchRec;
I: integer;
Origem, Destino: string;
begin
I := FindFirst(´c:\Origem\*.*´, faAnyFile, SR);
while I = 0 do begin
if (SR.Attr and faDirectory) <> faDirectory then begin
Origem := ´c:\Origem\´ + SR.Name;
Destino := ´c:\Destino\´ + SR.Name;
if not CopyFile(PChar(Origem), PChar(Destino), true) then
ShowMessage(´Erro ao copiar ´ + Origem + ´ para ´ + Destino);
end;
I := FindNext(SR);
end;
end;
Observações

No exemplo acima, se o arquivo já existir no destino, a função falha (não copia). Para que a função possa sobreescrever o arquivo destino (caso exista), altere o último parâmetro de CopyFile para false. CUIDADO! Se um arquivo for sobreescrito, estará perdido para sempre!


Responder

18/12/2003

Blue Cavalier

Os arquivos sairao de uma maquina para outra por dentro da aplicacao cliente servidor. Por isso nao podemos utilizar rotinas de copia do sistema operacional.


Responder

18/12/2003

Caninha51

Cara, eu tenho um trojan q faz isso, upload e download... dentro outras coisas.
Ele trabalha com client/server, e utiliza componentes fastnet.

Email-me q mando os fontes,

ravix@ig.com.br

Falow,

Caninha51


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira