![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() всем доброго времени суток! такой вопрос, почему при отправке файла на сервер при этом если имя файла имеет кириллицу, то на серваке файл есть, а имени не имеет? но если имя отправляемого файла латиница, либо цифры, то на сервере все норм с именем!!
вот код отправки: Код:
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 уволен в запас!!! ![]() |