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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.09.2007, 18:22   #11
mikkis
 
Регистрация: 28.09.2007
Сообщений: 7
По умолчанию

По сути не должно ничего вывестись, когда я пробовал с переменной она была пуста
mikkis вне форума Ответить с цитированием
Старый 28.09.2007, 18:24   #12
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

Указанный мной выше код у меня кпримеру нормально выводит в showmessage содержание gif-а
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 28.09.2007, 18:29   #13
mikkis
 
Регистрация: 28.09.2007
Сообщений: 7
По умолчанию

Как жаль, что Delphi у меня только на работе и проверить не смогу
mikkis вне форума Ответить с цитированием
Старый 03.11.2007, 21:19   #14
key'
Пользователь
 
Регистрация: 08.08.2007
Сообщений: 15
По умолчанию

Вот собственно возник такой же вопрос =)
только интересует как получить картинку не создавая временый файл
key' вне форума Ответить с цитированием
Старый 04.11.2007, 22:18   #15
key'
Пользователь
 
Регистрация: 08.08.2007
Сообщений: 15
По умолчанию

ответ был найден вот кому интересно

=================================== ==
uses
JPEG

var
ms: TMemoryStream;
gif: TJPEGImage;

begin

ms := TMemoryStream.Create;
idhttp1.Host:='host.ru';
idhttp1.Port:=80;
IdHTTP1.Get('/img/flat.jpg', ms);
ms.Position := 0;

gif := TJPEGImage.Create;
gif.LoadFromStream(ms);
Image1.Picture.Assign(gif);
gif.Free;

ms.Free;

end;
=================================== ======
key' вне форума Ответить с цитированием
Старый 17.06.2009, 03:27   #16
Sergey2
Форумчанин
 
Регистрация: 08.01.2008
Сообщений: 233
По умолчанию

Цитата:
Сообщение от key' Посмотреть сообщение
ответ был найден вот кому интересно

=================================== ==
uses
JPEG

var
ms: TMemoryStream;
gif: TJPEGImage;

begin

ms := TMemoryStream.Create;
idhttp1.Host:='host.ru';
idhttp1.Port:=80;
IdHTTP1.Get('/img/flat.jpg', ms);
ms.Position := 0;

gif := TJPEGImage.Create;
gif.LoadFromStream(ms);
Image1.Picture.Assign(gif);
gif.Free;

ms.Free;

end;
=================================== ======
var ms: TMemoryStream;
begin
ms:=TMemoryStream.Create;
IdHTTP1.Get('http://my_site.ru/pic.jpg', ms);
ms.Position:=0;
Image1.Picture.Graphic:=TJPEGImage. Create;
Image1.Picture.Graphic.LoadFromStre am(ms);

только эжтим кодом не надо злоупотреблять, так как каждый раз создается новая картинка и возникает утечка памяти.
Sergey2 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
http://programmersclub.ru/help/ ben95 О форуме и сайтах клуба 6 02.02.2008 12:23
http.Get Domovoy Работа с сетью в Delphi 2 21.11.2007 18:37