JPEG error #53, русские буквы в названии файла

Dmitry111 · #1 28.12.2012, 01:00

Так не работает:

Код:

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'е, подскажите что сделать ?!

PhoeniX · #2 28.12.2012, 03:40

А загружается в MemoryStream нормально? Возможно, у indy проблемы с кириллицей... Сделай после Get

Код:

ShowMessage(IntToStr(ms.Size));

M.A.D.M.A.N. · #3 28.12.2012, 08:28

Попробуй в quoted printable перекодировать имя файла.

NumLock · #4 28.12.2012, 08:47

Код:

url := 'http://sitename.info/images/%F7%E5%F0%F2%E5%E6.jpg';

Dmitry111 · #5 28.12.2012, 11:41

Цитата:

Сообщение от PhoeniX

А загружается в MemoryStream нормально? Возможно, у indy проблемы с кириллицей... Сделай после Get

Код:

ShowMessage(IntToStr(ms.Size));

сделал, выдало 46

Dmitry111 · #6 28.12.2012, 11:47

Цитата:

Сообщение от NumLock

Код:

url := 'http://sitename.info/images/%F7%E5%F0%F2%E5%E6.jpg';

'Socket Error # 11002'

Dmitry111 · #7 28.12.2012, 11:51

Цитата:

Сообщение от Dmitry111

сделал, выдало 46

а при открытии файла draft.jpg 230543 что это значит?

в смысле, что значит понятно, что сделать можно?

Dmitry111 · #8 28.12.2012, 14:19

Цитата:

Сообщение от M.A.D.M.A.N.

Попробуй в quoted printable перекодировать имя файла.

пробовал: ...with message '<html>'

NumLock · #9 28.12.2012, 14:30

IE то открывает картинку?

Dmitry111 · #10 28.12.2012, 15:16

Цитата:

Сообщение от NumLock

IE то открывает картинку?

да, открывает !!!

M.A.D.M.A.N. · #11 28.12.2012, 15:33

Наименование файла принципиально должно быть кириллицей?

Dmitry111 · #12 28.12.2012, 15:34

Цитата:

Сообщение от M.A.D.M.A.N.

Наименование файла принципиально должно быть кириллицей?

да, это обязательно

Dmitry111 · #13 28.12.2012, 15:42

Все !!! Проблема решена

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;

NumLock · #14 28.12.2012, 15:43

смотри сниффером на сколько сильно XE3 корябит запрос. я этого не могу сделать. Indy 9.00.10 без проблем отсылает и кирилицей и олбаницей запрос)

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты

Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
Dmitry111 (28.12.2012)