FTP Client

[Brueckenhauer]

vielen Dank werde ich testen, habe inzwischen noch eine andere Frage und zwar:

Ich habe eine Drag & Drop funktion eingebaut und wenn ich nun 1 Bild oder auch mehrere auf das Programm ziehe lädt das Programm die Bilder zwar hoch, aber das Programm reagiert in der Zeit nicht, wie kann ich das ändern?

Delphi-Quellcode:

procedure TForm1.WMDROPFILES (var Msg: TMessage);
var i, anzahl, size: integer;
    Dateiname: PChar;
begin
inherited;
anzahl := DragQueryFile(Msg.WParam, $FFFFFFFF, Dateiname, 255);
for i := 0 to (anzahl - 1) do
begin
  size := DragQueryFile(Msg.WParam, i , nil, 0) + 1;
  Dateiname:= StrAlloc(size);
  DragQueryFile(Msg.WParam,i , Dateiname, size);
  IdFTP1.Put(Dateiname,
  ExtractFileName(Dateiname));
  ListBox1.items.add(StrPas(Dateiname));
  StrDispose(Dateiname);
end;
DragFinish(Msg.WParam);
end;