HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу httpcli1 как загрузить jpeg ?
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

httpcli1 как загрузить jpeg ?
  #1  
Старый 21.03.2008, 00:07
Student :)
Участник форума
Регистрация: 09.02.2007
Сообщений: 202
С нами: 10132786

Репутация: 9
По умолчанию httpcli1 как загрузить jpeg ?
Код:
var
ms:   TMemoryStream;
jpeg: TJpegImage;

try
httpcli1.URL:= ('http://milo.ru/captcha.php?id='+captcha_id);
httpcli1.ProxyPort:= porta;
httpcli1.ProxyUsername:=logina;
httpcli1.ProxyPassword:=passa;
httpcli1.Get;
httpcli1.RcvdStream:=ms;
ms.Position := 0;
jpeg.LoadFromStream(ms);
Image1.Picture.Graphic := jpeg;
finally
jpeg.Free; ms.Free; httpcli1.Free;
end;
не выводиться картинка в Image
Помогите пожалуйста.

на сервере создаёться файл в формате jpg
𝕏 Twitter Reddit Telegram Копировать ссылку
 
Ответить с цитированием

  #2  
Старый 21.03.2008, 00:11
~Real F@ck!~
Постоянный
Регистрация: 09.07.2006
Сообщений: 443
С нами: 10441826

Репутация: 354
По умолчанию
не легче перекодировать формат в том же Paint'e ?
 
Ответить с цитированием

  #3  
Старый 21.03.2008, 00:13
Student :)
Участник форума
Регистрация: 09.02.2007
Сообщений: 202
С нами: 10132786

Репутация: 9
По умолчанию
httpcli это ICS
 
Ответить с цитированием

  #4  
Старый 21.03.2008, 20:32
Pir4tt
Участник форума
Регистрация: 03.01.2008
Сообщений: 104
С нами: 9659698

Репутация: 111
По умолчанию
Код:
var
jpeg: TGraphic;

{CUttED}

  jpeg := TJpegImage.Create;
    try
      jpeg.LoadFromStream(ms);
      Image1.Picture.Graphic := jpeg;
    finally
      jpeg.Free;
    end;
 
Ответить с цитированием

  #5  
Старый 22.03.2008, 18:18
Student :)
Участник форума
Регистрация: 09.02.2007
Сообщений: 202
С нами: 10132786

Репутация: 9
По умолчанию
спасибо! щас попробуем
 
Ответить с цитированием

  #6  
Старый 23.03.2008, 02:31
Student :)
Участник форума
Регистрация: 09.02.2007
Сообщений: 202
С нами: 10132786

Репутация: 9
По умолчанию
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
ms:   TMemoryStream;
jpeg: TGraphic;
begin
ms := TMemoryStream.Create;
jpeg := TJpegImage.Create;
try
httpcli1.URL:= 'http://forum.antichat.ru/image.php?u=32867&dateline=1202417398';
httpcli1.Get;
httpcli1.RcvdStream:=ms;
jpeg.LoadFromStream(ms);
Image1.Picture.Graphic := jpeg;
finally
end;
end;
делаю так выскакивает ошибка
 
Ответить с цитированием

  #7  
Старый 23.03.2008, 03:59
Pir4tt
Участник форума
Регистрация: 03.01.2008
Сообщений: 104
С нами: 9659698

Репутация: 111
По умолчанию
а зочем ты туда гиф суёшь?
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.

×

Создать сделку

Продавец: ник или ID

Название сделки:

Сумма USDT:

Срок сделки, дней:

Кто платит комиссию:

Условия сделки:

После создания сделки средства будут зарезервированы в холде до завершения сделки.

×

Мои сделки

Загрузка...
×

Сделка

Загрузка чата...