Fórum Arquivos para FTP #364570

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;