|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
JPEG error #53, русские буквы в названии файла
Так не работает:
Код:
procedure TFDraft.Button1Click(Sender: TObject); var ms: TMemoryStream; jpeg: TJpegImage; url: string; begin ms := TMemoryStream.Create; jpeg := TJpegImage.Create; try url:= 'http://sitename.info/images/чертеж.jpg'; IdHTTP1.Get(url, ms); ms.Position := 0; jpeg.LoadFromStream(ms); Image1.Picture.Graphic := jpeg; finally jpeg.Free; ms.Free; end; end; Код:
procedure TFDraft.Button1Click(Sender: TObject); var ms: TMemoryStream; jpeg: TJpegImage; url: string; begin ms := TMemoryStream.Create; jpeg := TJpegImage.Create; try url:= 'http://sitename.info/images/draft.jpg'; IdHTTP1.Get(url, ms); ms.Position := 0; jpeg.LoadFromStream(ms); Image1.Picture.Graphic := jpeg; finally jpeg.Free; ms.Free; end; end; lmikle: Пользуемся тегами!!! одна и та же картинка, сохраненная под разными именами, находится все на DENWER'е, подскажите что сделать ?! Последний раз редактировалось lmikle, 28.12.2012 в 05:32. |
#2
|
||||
|
||||
А загружается в MemoryStream нормально? Возможно, у indy проблемы с кириллицей... Сделай после Get
Код:
ShowMessage(IntToStr(ms.Size)); Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#3
|
||||
|
||||
Попробуй в quoted printable перекодировать имя файла.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#4
|
||||
|
||||
Код:
url := 'http://sitename.info/images/%F7%E5%F0%F2%E5%E6.jpg'; Пишу программы за еду. __________________ |
#5
|
|||
|
|||
Цитата:
сделал, выдало 46 |
#6
|
|||
|
|||
Цитата:
'Socket Error # 11002' |
#7
|
|||
|
|||
Цитата:
а при открытии файла draft.jpg 230543 что это значит? в смысле, что значит понятно, что сделать можно? Последний раз редактировалось Dmitry111, 28.12.2012 в 13:21. |
#8
|
|||
|
|||
Цитата:
пробовал: ...with message '<html>' |
#9
|
||||
|
||||
IE то открывает картинку?
Пишу программы за еду. __________________ |
#10
|
|||
|
|||
Цитата:
да, открывает !!! |
#11
|
||||
|
||||
Наименование файла принципиально должно быть кириллицей?
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#12
|
|||
|
|||
Цитата:
да, это обязательно |
#13
|
|||
|
|||
Все !!! Проблема решена URLEncode рулит !!!
Код:
procedure TForm1.Button1Click(Sender: TObject); var ms: TMemoryStream; jpeg: TJpegImage; url: string; begin ms := TMemoryStream.Create; jpeg := TJpegImage.Create; try url:= URLEncode('http://sitename.info/images/чертеж.jpg'); IdHTTP1.Get(url,ms); ms.Position := 0; jpeg.LoadFromStream(ms); Image1.Picture.Graphic := jpeg; finally jpeg.Free; ms.Free; end; end; |
#14
|
||||
|
||||
смотри сниффером на сколько сильно XE3 корябит запрос. я этого не могу сделать. Indy 9.00.10 без проблем отсылает и кирилицей и олбаницей запрос)
Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
Dmitry111 (28.12.2012)
|