[koszh2007]

Одну проблему решил... Но появилась другая.... при создание новой папки с именем с русскими буквами - программа выдаёт ошибку ((( что же делать с этими кодировками???????
2.JPG

[NumLock]

866 в cp1251 пробовал?

[Страдалецъ]

Может это как-то связано с этим:

// Name:= Pansichar(FileName);
// OemtoAnsi(Name, Pansichar(FileName));

[koszh2007]

нет... не пробывал, я даже не знаю в какой кодировки получаются имена... а какая функция прекодировает???

[koszh2007]

Сообщение от Страдалецъ

Может это как-то связано с этим:

// Name:= Pansichar(FileName);
// OemtoAnsi(Name, Pansichar(FileName));

да эта я пробывал менять различные кодировки, но всё равно не получается

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57

function DosToWin(s: string): string; var    i, vol: integer; begin      for i:=1 to Length(s) do      begin        vol:=Ord(s[i]);        if vol=$f0 then        begin          s[i]:=Chr($a8);          continue;        end;        if vol=$f1 then        begin          s[i]:=Chr($b8);          continue;        end;        if (vol>=128) and (vol<=175) then        begin          s[i]:=Chr(vol+64);        end        else if (vol>=224) and (vol<=239) then        begin          s[i]:=Chr(vol+16);        end;      end;      result:=s; end;   function WinToDos(s: string): string; var    i, vol: integer; begin      for i:=1 to Length(s) do      begin        vol:=Ord(s[i]);        if vol=$a8 then        begin          s[i]:=Chr($f0);          continue;        end;        if vol=$b8 then        begin          s[i]:=Chr($f1);          continue;        end;        if (vol>=192) and (vol<=239) then        begin          s[i]:=Chr(vol-64);        end;        if (vol>=240) and (vol<=239+16) then        begin          s[i]:=Chr(vol-16);        end;      end;      result:=s; end;

[koszh2007]

Спасибо большое... но и это не помогло (переводит в другую кодировку)... но кое как решил проблему... я по-буквено строку прекодировал в ансичар и получилось

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

function rus(s: string): string; var    i: integer;    str:string;    Name: PAnsiChar; begin   str:='';   for i:=1 to Length(s) do   begin     name:= PAnsiChar(copy(s,i,1));     str:=str+name;   end;   result:=str; end;

[koszh2007]

при создание новой папки с именем с русскими буквами - программа выдаёт ошибку ((( что же делать с этими кодировками???????2.JPG
ftp.txt

[Страдалецъ]

Ну возможно ваш ftp-сервер просто не поддерживает русские имена папок. Как вариант, можно их в транслит перегнать, но разумнее конечно взять ftp-сервер который умеет работать с кирилицией.