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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 02.08.2010, 21:13   #1
fezilk25
Форумчанин
 
Регистрация: 01.08.2010
Сообщений: 124
Радость Загрузить jpeg в image1 из сети

Добрый вечер!

Необходимо загрузить картинку (капчу) jpeg в image1.
Адрес картинки: http://u-tel.ru/ctrlimg?c=0430629575
Цифры меняются, их добываю парсингом со страницы http://u-tel.ru/facilities/sms

Почитал темы на этом форуме.

Сделал так:
Код:
var
  jpg: TMemoryStream;
  pic: string;
begin
  try
    jpg := TMemoryStream.Create;
    idHttp1.Get(pic, jpg);
    jpg.Position := 0;
    image1.Picture.Graphic.LoadFromStream(jpg);
  finally
    ms.Free;
  end;
jpeg подключил в uses, вылетает ошибка "Acces volation...." что-то типа такого. Прошу помощи.. Delphi 2009.
fezilk25 вне форума Ответить с цитированием
Старый 02.08.2010, 21:58   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

Код:
function LoadJPGFromURL(HTTP:TidHTTP;URL:string):TBitMap;
var M:TMemoryStream;
     J:TJPEGImage;
begin
 M:=TMemoryStream.Create;
 HTTP.Get(URL,M);
 M.Position:=0;
 Result:=TBitMap.Create;
 J:=TJPEGImage.Create;
 J.LoadFromStream(M);
 Result.Assign(J);
 J.Free;
 M.free;
end;
ну как то так
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 03.08.2010, 01:14   #3
fezilk25
Форумчанин
 
Регистрация: 01.08.2010
Сообщений: 124
По умолчанию

Спасибо!!!
fezilk25 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
image1 prod87 Общие вопросы Delphi 2 12.06.2010 15:28
не получается загрузить рисунок с расширением jpeg в компонент Image s2dentishe Помощь студентам 2 09.01.2010 02:04
Как загрузить в TImage Jpeg image? beemoto Общие вопросы Delphi 2 15.11.2009 14:05
как без ошибки загрузить jpeg в image beemoto Мультимедиа в Delphi 23 15.05.2009 01:16
Image1.Picture.SaveToFile TaTT DoGG Общие вопросы Delphi 3 03.05.2008 10:43