danke sehr, werd ich gleich mal probieren, wenn ich jetzt den richtigen namen habe müsste es dann funzen oder hab ich noch etwas vergessen (übertragungsart etc.)?
edit: ok hat sich erledigt, habs grade probiert und es klappt alles, danke schonmal für alles
jetzt muss nurnoch der upload dran glauben ^^
edit2: kann ich diesen savedialog irgendwie wegbekommen?
der benutzer soll nix vom download mitbekommen also sollte auch am besten kein savedialog geöffnet werden sondern einfach nur abgespeichert werden.
Und vorallem, wie kann ich den Dateitypen bestimmen unter dem es gespeichert werden soll?
Code:
procedure TForm1.connectbutClick(Sender: TObject);
var i,position:integer;
name,s:string;
begin
if idftp1.connected=false then begin
idftp1.Username:='admin';
idftp1.password:='123456';
idftp1.Host:='127.0.0.1';
idftp1.connect;
Idftp1.List (Listbox1.Items,'',false);
for i:=0 to Listbox1.Count-1 do begin
name:=listbox1.Items[i];
listbox2.Items.Add(name);
position:=pos('.',name); // Da bekomme ich die Endung der Datei
if SaveDialog1.Execute then begin
position:=pos('.',name);
s:=copy(name,position,4);
IdFTP1.Get(Name, Name, true);
end
end
end;
end;