Hi,
Mach mir grad ein kleines Programm, in welches ich per Drag'n'Drop Dateien reinziehen kann.
Diese werden dann überprüft (nur Bilder zuläßig) und sollen dann anschließend hochgeladen werden!
Dies klappt zwar alles aber es soll konfortabler sein!
Hier meine Uploadroutine:
Delphi-Quellcode:
procedure tform5.upl;
var
i:integer;
begin
try
idftp1.Connect;
if idftp1.Connected = true then
state:=true;
Memo1.Lines.Add(timetostr(now)+': Connected');
except
Memo1.Lines.Add(timetostr(now)+': Error while connecting');
end;
if state = true then
begin
for I := 0 to Listbox1.items.Count - 1 do
begin
idftp1.Put(listbox1.Items[i],ExtractFileName(listbox1.Items[i]),false);
end;
end;
end;
Möchte jetzt noch folgendes Verbessern:
- Upload der Dateien soll abgebrochen werden können
- Uploadgeschwindigkeit soll begrenzt werden können
- Wär schön nen Statusbalken zu haben (is aber Nebensache!)
Hmm ja das wärs dann auch schon wieder!
mfg
FordPerfekt