Witam, w RAD Studio 10 mam następujący problem. Na lokalnym dysku jest plik Ąążźćśęół.JPG
. Poprzez:
if OpenDialog1.execute then begin
try
ftp.ChangeDir('/'+typ+'/'+nr); // ftp:TidFtp
ftp.Put(OpenDialog1.FileName);
//......
wrzucam plik do właściwego folderu na serwer ftp. Poprzez TotalCommander na serwerze poprawnie widzę nazwę Ąążźćśęół.JPG
, sekwencją:
var LS: TStringList;
begin
LS := TStringList.Create;
try
ftp.list(LS);
LS.Text:=UTF8Decode(LS.Text);
finally
LS.Free;
end;
//...........
pobieram listę plików i tam zamiast Ąążźćśęół.JPG
mam:
"�?�?A1Ao�?A?�?A3A?.JPG"
"'modify=20160104124707;perm=adfrw;size=5878212;type=file;unique=6807UC08D6;UNIX.group=1002;UNIX.mode=0644;UNIX.owner=1002; �?�?A1Ao�?A?�?A3A?.JPG'"
Jednak w przeciwieństwie do Arturze (http://4programmers.net/Forum/Delphi_Pascal/239157-lista_plikow_idftp_-_kodowanie?p=1211018#id1211018)
LS.SaveToFile('PlikiFTP.txt');
nie widzę w notatniku polskich znaków. Natomiast jak użyję:
ftp.get('/'+typ+'/'+nr+'/Ąążźćśęół.JPG','d:\aaaaaa.jpg',true);
plik pobierany jest poprawnie.
Kombinowałem z:
FTP.DefStringEncoding:= IndyTextEncoding_UTF8
ale bez skutku. Bardzo proszę o sugestie co mógłbym zrobić.
Pozdrawiam noworocznie, Andrzej