Проблема с idFTPServer

[Cheetan]

Вопщем при получении списка с сервера в браузере IE исключаются русские буквы, ктонить знает как устранить эту проблему?

Rus.jpg

Вот формирование списка на сервере:




function TForm1.TransLatePath( const APathname, homeDir: string ) : string;
var
tmppath: string;
begin
result := SlashToBackSlash( homeDir ) ;
tmppath := SlashToBackSlash( APathname ) ;
if homedir = '/' then
begin
result := tmppath;
exit;
end;

if length( APathname ) = 0 then
exit;
if result[length( result ) ] = '\' then
result := copy( result, 1, length( result ) - 1 ) ;
if tmppath[1] <> '\' then
result := result + '\';
result := result + tmppath;
end;

...

procedure TForm1.FTPListDirectory(ASender: TIdFTPServerThread;
const APath: String; ADirectoryListing: TIdFTPListItems);

procedure AddlistItem( aDirectoryListing: TIdFTPListItems; Filename: string; ItemType: TIdDirItemType; size: int64; date: tdatetime ) ;
var
listitem: TIdFTPListItem;
begin
listitem := aDirectoryListing.Add;
listitem.ItemType := ItemType;
listitem.FileName := Filename;
listitem.OwnerName := 'SPY';
listitem.GroupName := 'all';
listitem.OwnerPermissions := '---';
listitem.GroupPermissions := '---';
listitem.UserPermissions := '---';
listitem.Size := size;
listitem.ModifiedDate := date;
end;

var
f: tsearchrec;
a: integer;
begin
ADirectoryListing.DirectoryName := apath;

a := FindFirst( TransLatePath( apath, ASender.HomeDir ) + '*.*', faAnyFile, f ) ;
while ( a = 0 ) do
begin
if ( f.Attr and faDirectory > 0 ) then
AddlistItem( ADirectoryListing, f.Name, ditDirectory, f.size, FileDateToDateTime( f.Time ) )
else
AddlistItem( ADirectoryListing, f.Name, ditFile, f.size, FileDateToDateTime( f.Time ) ) ;
a := FindNext( f ) ;
end;

FindClose( f ) ;
end;

[Квэнди]

попробуй все названия папок привести к той или иной кодировке. Такая проблема только в IE ?

[Cheetan]

Да только в IE.
Ну есть например у меня полученое название f.name с неизвестной кодировкой, как мне его в другую кодировку перевести?

[Квэнди]

потестируй в какой кодироке отображается в IE корректно и туда конвертируй функций по конвертированию куча и на нашем форуме их не мало.