Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #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
__________________
уволен в запас!!!
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 05:48.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025