всем доброго времени суток! такой вопрос, почему при отправке файла на сервер при этом если имя файла имеет кириллицу, то на серваке файл есть, а имени не имеет? но если имя отправляемого файла латиница, либо цифры, то на сервере все норм с именем!!
вот код отправки:
Код:
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