Im Objektinspektor kann man doch die Filter beim entsprechenden Attribut erfassen.
Da gibt es (zumindest bei Delphi 7) 'ne Eingabemaske, in der man links den Namen und rechts die Dateiendung(en) angibt.
Das hat den Vorteil, man erfasst die Filter in der korrekten Syntax. Und die wäre da
Delphi-Quellcode:
Filter := '
Delphi-Files (*.pas;*.dpr;*.dpk;*.inc)|*.pas;*.dpr;*.dpk;*.inc';
// oder aber auch
Filter := '
Delphi-Files|*.pas;*.dpr;*.dpk;*.inc';
// oder für HTML
Filter := '
html files|*.htm;*.html|all files|*.*';
// oder eher alles fürs Web
Filter := '
html files|*.htm;*.html|image files|*.bmp;*.gif;*.jpg;*.jpeg;*.png|text files|*.txt|all files|*.*';
Eventuell könnte es ja so funktionieren:
Delphi-Quellcode:
procedure TForm1.Button20Click(Sender: TObject);
var
Datei: String;
begin
OpenDialog1.Filter := 'Datei|*.ipk|ZIP-Dateien|*.zip';
OpenDialog1.FilterIndex := 0;
if OpenDialog1.Execute then
begin
Datei := OpenDialog1.FileName;
idFTP1.Put(OpenDialog1.FileName,'/tmp/' + ExtractFileName(OpenDialog1.FileName), True);
end
else
ShowMessage('nix ausgewählt...');
end;
Beispiele für Put:
https://www.experts-exchange.com/que...ing-files.html
Hier insbesondere den letzten Beitrag lesen:
https://www.tek-tips.com/viewthread.cfm?qid=1439325