vielen dank...
geht leider nicht auch wenn ich die klammern weg lasse
hab da stehen
OpenDialog1.Filter := 'Datei | *.ipk';
das sind ja keine zip,oder ausführbare dateien, ich probiere das aber nochmal mit dem zip
habs jetzt nochmal probiert auch die zip dateien bleiben ausgegraut
OpenDialog1.Filter := 'Datei | *.ipk;|ZIP-Dateien|*.zip';
Code:
procedure TForm1.Button20Click(Sender: TObject);
var
Datei: String;
begin
OpenDialog1.Filter := 'Datei | *.ipk;|ZIP-Dateien|*.zip';
if OpenDialog1.Execute then
begin
Datei := OpenDialog1.FileName;
idFTP1.Put(OpenDialog1.FileName,'/tmp/' + ExtractFileName(OpenDialog1.FileName), True);
end
else
ShowMessage('nix ausgewählt...');
end;
so sieht jetzt der code aus