Arquivos para FTP

Delphi

02/10/2008

Olá...

Preciso mandar varios arquivos ao mesmo tempo para o FTP.

Estou tentanto fazer assim:
Primeiro eu localizo os arquivo que eu quero e incluo o caminho na listbox1.

depois faço assim:

try
IDFtp1.Connect;
Status.Caption := ´On Line´;
IDftp1.ChangeDir(´CAT52´);

for I := 0 to ListBox1.Count - 1 do
begin
Name := ListBox1.Items.Text;
IDftp1.Put([b:251259eb49]name[/b:251259eb49], NomeDoArquivo)
end;
PS: Está dando erro nessa variavel em negrito: Fala que não pode abrir
o arquivo:
A Sintaxe do nome do arquivo, pasta ou nome do volume está
incorreta.

Except
begin
IDFTP1.Disconnect;
Status.Caption := ´Off Line´;
end;


Edsant

Edsant

Curtidas 0

Respostas

Edsant

Edsant

02/10/2008

Pessoal já resolvi...para quem quizer a dica lá vai..
procedure TFLocalizar.BitBtn2Click(Sender: TObject);
var
I, contador : Integer;
NomedoArquivo,Auxiliar : String;
m : TStream;

begin
Auxiliar := ´´;
m := nil;

IDftp1.Host := ´Endereço FTP´;
IDftp1.Port := 21;
IDftp1.Username := ´Usuario´;
IDftp1.Password := ´senha´;

try
IDFtp1.Connect;
Status.Caption := ´On Line´;
IDftp1.ChangeDir(´CAT52´); // Pasta no FTP

for I := 0 to ListBox1.Count - 1 do
begin
NomedoArquivo := ListBox1.Items.Text;
NomedoArquivo := AnsiStrRScan(PCHar(NomedoArquivo), ´\´);
for contador := 2 To StrLen(PCHar(NomedoArquivo)) do
Auxiliar := Auxiliar + NomedoArquivo [contador];
NomedoArquivo := Auxiliar;
m := TMemoryStream.Create;
m.Seek(0,0) ;
IDftp1.Put(m, NomedoArquivo,true);
end;

Except
begin
IDFTP1.Disconnect;
Status.Caption := ´Off Line´;
end;

end;


end;


GOSTEI 0
POSTAR