Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.10.2010, 00:24   #1
Crystallon
Форумчанин
 
Регистрация: 05.04.2010
Сообщений: 273
По умолчанию JPEG error #53

Загружаю картинку(капчу) от сюда http://wonderage.org/inc/captcha/antibot.php и делфи выдает 53 ошибку, вот код:
Код:
Form7.Image1.Width:=StrToInt(s1_post_capcha_img_x);
Form7.Image1.Height:=StrToInt(s1_post_capcha_img_y);
MS:= TMemoryStream.Create;
jpg:=tjpegimage.create;
Form1.IdHTTP1.Get(post_capcha_img_url, MS);
MS.Position := 0;
jpg.LoadFromStream(MS);
Form7.Image1.Picture.Assign(jpg);
MS.Free;
jpg.Free;
Form7.Image1.Visible:=true;
Подскажите пожалуйста что я делаю нетак =)
Crystallon вне форума Ответить с цитированием
Старый 21.10.2010, 12:24   #2
Gambler
Игрок
Форумчанин
 
Аватар для Gambler
 
Регистрация: 29.10.2006
Сообщений: 367
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  MS:TMemoryStream;
  jpg:tjpegimage;
begin
MS:= TMemoryStream.Create;
jpg:=tjpegimage.create;
Form1.IdHTTP1.Get('http://wonderage.org/inc/captcha/antibot.php', MS);
MS.Position := 0;
jpg.LoadFromStream(MS);
Image1.Picture.Assign(jpg);
MS.Free;
jpg.Free;
end;
вот попробовал. Все работает
Жизнь всегда игра. Но смерть - не всегда поражение.

#define true (Math.random()>0.5) //Удачной отладки
Gambler вне форума Ответить с цитированием
Старый 21.10.2010, 14:34   #3
Crystallon
Форумчанин
 
Регистрация: 05.04.2010
Сообщений: 273
По умолчанию

Спасибо за тест, проблема как оказалось была в другом =)
Crystallon вне форума Ответить с цитированием
Старый 21.10.2010, 17:39   #4
Alexei91
Заблокирован
Форумчанин
 
Аватар для Alexei91
 
Регистрация: 30.12.2009
Сообщений: 544
По умолчанию

Цитата:
JPEG error #53
вылетает,если пытаться загрузить как TJPEGImage картинку другого формата.
Темы для WordPress. Русские WordPress шаблоны
Alexei91 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ищу причину ошибки: Error in loading DLL, она же Error 48. hozpraktik Microsoft Office Excel 1 19.11.2009 12:39
Как решить проблему с Error in loading DLL (Error 48)? Klim Bassenger Microsoft Office Excel 4 23.10.2009 13:44
JPEG Error #42 RIO Общие вопросы Delphi 6 17.09.2009 13:01
JPEG Error #53 sklazer Общие вопросы Delphi 5 22.07.2008 04:41