Показать сообщение отдельно
  #1  
Старый 19.01.2012, 19:48
Аватар для RusMaXXX
RusMaXXX RusMaXXX вне форума
Начинающий
 
Регистрация: 01.10.2008
Сообщения: 138
Версия Delphi: 7
Репутация: 21
Восклицание кодировка в idHTTP

всем доброго времени суток! такой вопрос, почему при отправке файла на сервер при этом если имя файла имеет кириллицу, то на серваке файл есть, а имени не имеет? но если имя отправляемого файла латиница, либо цифры, то на сервере все норм с именем!!

вот код отправки:

Код:
function Send_File(FileName: string): string;
var
  link, Response: String;
  FormData: TIdMultiPartFormDataStream;
  S, E: integer;
begin
  FormData := TIdMultiPartFormDataStream.Create;
  try
    MainForm.IdHTTP.HandleRedirects := True;
    MainForm.IdHTTP.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
    MainForm.IdHTTP.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    MainForm.IdHTTP.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
    MainForm.IdHTTP.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';

    FormData.AddFile('upfile', FileName, 'image/jpeg');
    FormData.AddFormField('password', MainForm.ed_pass.text);
    FormData.AddFormField('keep-days', IntToStr(MainForm.kol_day.Position));

    Response := MainForm.idHTTP.Post('http://share.bashtel.ru/upload', FormData);

    S := pos('value=', Response) + Length('value=');;
    E := pos('/></span><br/', Response);
    Result := Copy (Response, S+1, (E - S - 1)-2);
  finally
    FormData.Free;
  end;
end;

файл загружается на сервер норм, но че может быть с именем!??

все это написано на Delphi 7 инди стандартная, т.е. которая идет сразу с Д7
__________________
уволен в запас!!!
Ответить с цитированием