for j:=0 to ListView1.Items.Count-1 do
begin
ext:=ExtractFileExt(ListView1.Items.Item[j].SubItems[0]);
if (ext='.jpeg') or (ext='.jpg') or (ext='.png') or (ext='.avi') or (ext='.mpg') or (ext='.mpeg') then
begin
FTP.ChangeDir('/root');
ftp.TransferType:=ftbinary;
FTP.Put(ListView1.Items.Item[j].SubItems[0],ExtractFileName(ListView1.Items.Item[j].SubItems[0]),true);
end;
end;
bu konuda yardımcı olursanız sevinirim
kolay gelsin...
procedure TForm1.FormCreate(Sender: TObject);
begin
showmessage('Dehanın %1 i ilham %99u terdir.');
end;
end.
ben cozemedim bu olayı resim dosyalarında sorun olmuyor hepsini gonderiyor ama mpg lerde sorun oluyor 4 dosyadan 2 sini gonderiyor tam 3. yü gonderecek bu hatayı veriyor...
embedded cihazla ilgili bi sorun galiba
kolay gelsin...
procedure TForm1.FormCreate(Sender: TObject);
begin
showmessage('Dehanın %1 i ilham %99u terdir.');
end;
end.