Рисунок из Интернета в TImage

← →
KonstantinXaker(KX) (2005-05-15 00:23) [0]

Люди! Каким образом мне из Интернета загрузить рисунок прямо в TImage????????????

← →
KonstantinXaker(KX) (2005-05-16 02:06) [1]

Неужели никто ответа не знает?????

← →
Antonn © (2005-05-16 06:14) [2]

клавиша залипает??????

← →
VMcL © (2005-05-16 07:54) [3]

>>KonstantinXaker(KX) (15.05.05 00:23)

1. TIdHTTP.Get() или TIdHTTP.Post() (вариант с TStream).
2. TJpegImage.LoadFromStream, TBitmap.LoadFromStream() или другой TGraphic.LoadFromStream() в зависимости от типа рисунка.
3. Image.Picture := экземпляр TGraphic"а из п. 2.

← →
VMcL © (2005-05-16 07:56) [4]

>>KonstantinXaker(KX) (16.05.05 02:06) [1]

>Неужели никто ответа не знает?????

Ночью все только и думают, как бы некоему Константину-Хакеру побыстрее ответить на его вопрос...

← →
Волк (2005-05-21 17:01) [5]

>>1. TIdHTTP.Get() или TIdHTTP.Post() (вариант с TStream).
>>2. TJpegImage.LoadFromStream, TBitmap.LoadFromStream() или другой TGraphic.LoadFromStream() в зависимости от типа рисунка.
>>3. Image.Picture := экземпляр TGraphic"а из п. 2.

Код написал следующий:

procedure TForm1.Button1Click(Sender: TObject); var s:TJpegImage; fs:TFileStream; strm:TStream; begin fs:=TFileStream.Create(idHTTP1.Get("http://www.mota.ru/space/img/space_087.jpg"),fmOpenRead); fs.CopyFrom(Strm, Strm.Size); fs.Free; s:=TJpegImage.Create; s.LoadFromStream(fs); image1.Picture.Assign(s); end;

Но ничего не пашет!!!
Дай реальный код!

← →
Волк (2005-05-21 17:02) [6]

то есть ПРИМЕР!!!

← →
Anatoly Podgoretsky © (2005-05-21 17:04) [7]

А чего в волка превратился, оборотень чтоли?

← →
Antonn © (2005-05-21 17:42) [8]

Волк (21.05.05 17:01) [5]
а создать Strm перед использованием? а s.free?

← →
XProger © (2005-05-22 04:16) [9]

Да и так не будет работать... файла ведь нет ;)

← →
KonstantinXaker(KX) (2005-05-22 15:27) [10]

Волк - это Волк, а не я - это во-первых.
Во-вторых - спасибо Antonn

Код теперь следующий:
procedure TForm1.Button1Click(Sender: TObject); var s:TJpegImage; fs:TFileStream; strm:TStream; begin strm:=TStream.Create; fs:=TFileStream.Create(idHTTP1.Get("http://www.mota.ru/space/img/space_087.jpg"),fmOpenRead); fs.CopyFrom(Strm, Strm.Size); fs.Free; strm.Free; s:=TJpegImage.Create; s.LoadFromStream(fs); image1.Picture.Assign(s); end;

НО! Теперь выскакивает ошибка: "Cannot open file <HTML><BODY> ...(весь код страницы)"
Что ещё нужно сделать?

← →
KonstantinXaker(KX) (2005-05-22 15:33) [11]

Вот сама ошибка:

Cannot open file <HTML><BODY>
<center>
<table width=800 height=80 cellpadding=2 cellspacing=0><tr align=center><td width=160 bgcolor=#F1F8FF><br>

<script>
var sto_login = "old-mota";
var sto_options = "";
var sto_random = Math.round(Math.random() * 100000);
function sto_getbanner(id){
if(!eval("document.sto_loaded_"+id)){
if(document.all&&!window.opera){doc=window.frames["sto"+id].document;}else{if(window.opera){while(!document.getElementBy Id("sto"+id).contentDocument){};};doc=document.getElementById("sto"+id).contentDocument;};doc.open();
doc.write("<div><table width=100 height=100 style="border: 1px solid #7f7f7f; background-color: #ffffff;" align=left><tr align=center valign=middle ><td><a href="http://100-100.ru/">100x100</a></td></tr></table></div>");
doc.write("<sc"+"ript src=http://www.100-100.ru/cgi-bin/iframe/"+sto_login+"?"+id+"&options=F"+sto_options+""></sc"+"ript>");
// if(eval("document.sto_mirror_"+id)<5){eval("document.sto_mirror_"+id+"++"); setTimeout("sto_getbanner("+id+")",5000);};
}}
if(document.getElementById&&!window.opera){
document.write("<span><iframe id="sto"+sto_random+"" width=100 height=100 marginwidth=0 marginheight=0 scrolling=no frameborder=0></iframe></span>");
eval("document.sto_mirror_"+sto_random+"=""");sto_getbanner(sto_random);
}else{document.write("<iframe src="http://100-100.ru/cgi-bin/iframe/"+sto_login+"?"+sto_random +"&"+sto_options+"" width=100 height=100 marginwidth=0 marginheight=0 scrolling=no frameborder=0><a href="http://100-100.ru/cgi-bin/href/"+sto_login+"?"+sto_random +"" target=_top><img src="http://100-100.ru/cgi-bin/banner/"+sto_login+"?"+sto_random +"&"+sto_options+"" alt="LBN" width=100 height=100 border=0 ismap></a></iframe>");}
</script><noscript><iframe src="http://100-100.ru/cgi-bin/iframe/old-mota" width=100 height=100 marginwidth=0 marginheight=0 scrolling=no frameborder=0><a href="http://100-100.ru/cgi-bin/href/old-mota" target=_top><img src="http://100-100.ru/cgi-bin/banner/old-mota" alt="LBN" width=100 height=100 border=0 ismap></a></iframe></noscript>

</td><td width=480><br>

<center><script language="JavaScript"> var loc = ""; </script>
<script language="JavaScript1.4">try{ var loc = escape(top.location.href); }catch(e){;}</script>
<script language="JavaScript">
var userid = 45337431; var page = 1;
var rndnum = Math.round(Math.random() * 999111);
document.write("<iframe src="http://ad8.bannerbank.ru/bb.cgi?cmd=ad&hreftarget="_blank"&pubid=" + userid + "&pg=" + page + "&vbn=1327&w=468&h=60&num=1&r=ssi&ssi=nofillers&r=ssi&nocache=" + rndnum + "&ref=" + escape(document.referrer) + "&loc=" + loc + "" frameborder=0 vspace=0 hspace=0 width=468 height=60 marginwidth=0 marginheight=0 scrolling=no>");
document.write("<a href="http://ad8.bannerbank.ru/bb.cgi?cmd=go&pubid=" + userid + "&pg=" + page + "&vbn=1327&num=1&w=468&h=60&nocache=" + rndnum + "&loc=" + loc + "&ref=" + escape(document.referrer) + "" target="_blank">");
document.write("<img src="http://ad8.bannerbank.ru/bb.cgi?cmd=ad&pubid=" + userid + "&pg=" + page + "&vbn=1327&num=1&w=468&h=60&nocache=" + rndnum + "&ref=" + escape(document.referrer) + "&loc=" + loc + "" width=468 height=60 Alt="Wallpapers Banner Network" border=0></a></iframe>");
</script>
</center>

</td><td width=160 bgcolor=#F1F8FF><br>

<script>
var sto_login = "old-mota";
var sto_options = "";
var sto_random = Math.round(Math.random() * 100000);
function sto_getbanner(id){
if(!eval("document.sto_loaded_"+id)){
if(document.all&&!window.opera){doc=window.frames["sto"+id].document;}else{if(window.opera){while(!document.getElementBy Id("sto"+id).contentDocument){};};doc=document.getElementById("sto"+id).contentDocument;};doc.open();
doc.write("<div><table width=100 height=100 style="border: 1px solid #7f7f7f; background-color: #ffffff;" align=left><tr align=center valign=middle ><td><a href="http://100-100.ru/">100x100</a></td></tr></table></div>");
doc.write("<sc"+"ript src=http://www.100-100.ru/cgi-bin/iframe/"+sto_login+"?"+id+"&options=F"+sto_options+""></sc"+"ript>");
// if(eval("document.sto_mirror_"+id)<5){eval("document.sto_mirror_"+id+"++"); setTimeout("sto_getbanner("+id+")",5000);};
}}
if(document.getElementById&&!window.opera){
document.write("<span><iframe id="sto"+sto_random+"" width=100 height=100 marginwidth=0 marginheight=0 scrolling=no frameborder=0></iframe></span>");
eval("document.sto_mirror_"+sto_random+"=""");sto_getbanner(sto_random);
}else{document.write("<iframe src="http://100-100.ru/cgi-bin/iframe/"+sto_login+"?"+sto_random +"&"+sto_options+"" width=100 height=100 marginwidth=0 marginheight=0 scrolling=no frameborder=0><a href="http://100-100.ru/cgi-bin/href/"+sto_login+"?"+sto_random +"" target=_top><img src="http://100-100.ru/cgi-bin/banner/"+sto_login+"?"+sto_random +"&"+sto_options+"" alt="LBN" width=100 height=100 border=0 ismap></a></iframe>");}
</script><noscript><iframe src="http://100-100.ru/cgi-bin/iframe/old-mota" width=100 height=100 marginwidth=0 marginheight=0 scrolling=no frameborder=0><a href="http://100-100.ru/cgi-bin/href/old-mota" target=_top><img src="http://100-100.ru/cgi-bin/banner/old-mota" alt="LBN" width=100 height=100 border=0 ismap></a></iframe></noscript>

</td></tr></table><br>
<HR size=1>
<font size=4><br>

Error: try <a href=http://www.mota.ru/>www.mota.ru</a></font>
<HR size=1>

<SCRIPT type="text/javascript">

</SCRIPT><NOSCRIPT><a href=http://top.novgorod.ru/cgi-bin/cshow><img src="http://top.novgorod.ru:81/79;0x0;0;0;-;0" width="1" height="1" border="0" alt=""></a></NOSCRIPT><br>

</BODY></HTML>

← →
KonstantinXaker(KX) (2005-05-22 15:39) [12]

Сам текст ошибки получил следующим образом:

memo1.Text:=idHTTP1.Get("http://www.mota.ru/space/img/space_087.jpg")

Напрашивается вопрос - каким образом загрузить сам рисунок?

← →
VMcL © (2005-05-23 00:59) [13]

>>KonstantinXaker(KX)

Ну дык, Вы в браузере откройте эту ссылку. Нет ведь файла, вот сервер и возращает HTML-страницу с описанием ошибки.

← →
KonstantinXaker(KX) (2005-05-23 17:12) [14]

>>VMcL
С Вами я согласен что ссылка не та. Вот другая ссылка (с моего сайта http://spacehome.narod.ru):
http://www.spacehome.narod.ru/4.jpg

Теперь выдаёт следующую всплывающую ошибку (и так с любым рисунком из интернета!):
"Cannot open file яШяа"

А теперь какой выход из положения?

← →
Antonn © (2005-05-23 17:20) [15]

KonstantinXaker(KX) (23.05.05 17:12) [14]
попробуй не с народа.
http://arscity.net.ru/img/silverpl.jpg

← →
Norny (2005-05-23 17:21) [16]

Попробовать с нормальными серверами! Загрузи файл "http://delphimaster.ru/i/star.gif"!

← →
KonstantinXaker(KX) (2005-05-23 20:14) [17]

Antonn, выдаёт ту же самую ошибку!
Norny, теперь ощибка другая, но подобного вида: "Cannot open file GIF89a§"

Получается что проблемма не в рисунке, не в ссылке, а в выявлении самого имени рисунка, скачивании его на диск, загрузка в TImage и удаление этого же рисунка с диска!
Как такое реализовать, товарищи?

← →
Lex_! © (2005-05-24 05:00) [18]

idHTTP1.Get("http://www.mota.ru/space/img/space_087.jpg")
в таком виде насколько я понимаю возвращается текст - Function Get(Aurl:string):string

а вот в таком:
Procedure get(AUrl:string; AResponseContent:TStream; AIgnoreReplies: array of smallint)
в принципе можно получить я так подозреваю то что нужно .....

ЗЫ - у меня дельфи 2005 так что у тебя может быть по другому, но в принципе там два ГЕТ, один возвращает строку, второй пишет в стрим...

← →
Lex_! © (2005-05-24 05:48) [19]

и еще...
выше приведен код:

fs.Free; ...... s.LoadFromStream(fs);
эть как?... почему сначала уничтожаем потом со стрима грузим?...
Или я чета не понял ....

← →
Slym © (2005-05-24 06:11) [20]

procedure TForm1.Button1Click(Sender: TObject); var MemoryStream:TMemoryStream; JpegImage:TJpegImage; begin MemoryStream:=TMemoryStream.Create; try idHTTP1.Get("http://www.mota.ru/space/img/space_087.jpg",MemoryStream); JpegImage:=TJpegImage.Create; try JpegImage.LoadFromStream(MemoryStream); image1.Picture.Assign(JpegImage); finally JpegImage.Free; end; finally MemoryStream.Free; end; end;

← →
KonstantinXaker(KX) (2005-05-24 17:09) [21]

>>Slym ©
Твой код больше похож на правду, но при загрузке рисунка выдаёт ошибку "JPEG error #41" (P.S.: я загружаю JPEG-рисунок. Не BMP и не другой формат)

>>Lex_! ©
Да, ты был прав что там ошибка!
Написал следующий код:

procedure TForm1.Button1Click(Sender: TObject); var s:TJpegImage; fs:TFileStream; strm:TStream; begin strm:=TStream.Create; fs:=TFileStream.Create(idHTTP1.Get("http://65.200.140.25/ec_metros/ourcams/big_ben.jpg"),fmOpenRead); fs.CopyFrom(Strm, Strm.Size); s:=TJpegImage.Create; s.LoadFromStream(fs); image1.Picture.Assign(s); fs.Free; strm.Free; end;

Результат тот же - выдаёт ошибку "Cannot open file яШяю"

Что ещё подскажете?

← →
seeker © (2005-05-24 19:11) [22]

вот, набросал на скорую руку...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ScktComp; type TForm1 = class(TForm) CS: TClientSocket; Button2: TButton; procedure Button2Click(Sender: TObject); procedure CSConnect(Sender: TObject; Socket: TCustomWinSocket); procedure CSRead(Sender: TObject; Socket: TCustomWinSocket); procedure CSDisconnect(Sender: TObject; Socket: TCustomWinSocket); private { Private declarations } public { Public declarations } end; var Form1: TForm1; st:TMemoryStream; Header:boolean; Len:integer; implementation uses Jpeg; {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject); begin CS.Host:="www.mota.ru"; CS.Port:=80; CS.Open; end; procedure TForm1.CSConnect(Sender: TObject; Socket: TCustomWinSocket); var str:string; begin st:=TMemoryStream.Create; str:="GET /nature/img/nature_537.jpg HTTP/1.1"+#13#10+ "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*"+#13#10+ "Referer: http://www.mota.ru/download.php?path=nature&img=537.jpg"+#13#10+ "Accept-Language: ru"+#13#10+ "Accept-Encoding: gzip, deflate"+#13#10+ "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"+#13#10+ "Host: www.mota.ru"+#13#10+ "Connection: Keep-Alive"+#13#10+#13#10; Header:=true; Socket.SendText(str); end; procedure TForm1.CSRead(Sender: TObject; Socket: TCustomWinSocket); var buf:Array [0..1023] of char; rb:integer; str:string; i:integer; begin rb:=Socket.ReceiveBuf(buf,SizeOf(buf)); if Header then begin for i:=0 to rb do begin str:=str+buf[i]; if pos(#13#10#13#10,str)>0 then begin Header:=false; Str:=copy(str,pos("Content-Length:",str)+length("Content-Length:")+1,length(str)); str:=copy(str,1,pos(#13#10,str)-1); Len:=StrToInt(str); move(buf[i+1],buf[0],SizeOf(buf)); dec(rb,i); Break; end; end; end; if len > rb then begin st.Write(buf,rb); dec(len,rb); end else begin st.Write(buf,len); CS.Close; end; end; procedure TForm1.CSDisconnect(Sender: TObject; Socket: TCustomWinSocket); begin st.SaveToFile("g:\qwqw.jpg"); st.Free; end; end.

Ну ты ваще...
Ты ссылку проверял?
http://www.mota.ru/space/img/space_087.jpg выдает отнюдь не рисунок!

> Ну ты ваще...
> Ты ссылку проверял?
> http://www.mota.ru/space/img/space_087.jpg выдает отнюдь
> не рисунок!

У кого как...
если заменить
str:="GET /nature/img/nature_537.jpg HTTP/1.1"+#13#10+ "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*"+#13#10+ "Referer: http://www.mota.ru/download.php?path=nature&img=537.jpg"+#13#10+ "Accept-Language: ru"+#13#10+ "Accept-Encoding: gzip, deflate"+#13#10+ "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"+#13#10+ "Host: www.mota.ru"+#13#10+ "Connection: Keep-Alive"+#13#10+#13#10;
на
str:="GET /space/img/space_087.jpg HTTP/1.1"+#13#10+ "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*"+#13#10+ "Referer: http://www.mota.ru/download.php?path=spacee&img=087.jpg"+#13#10+ "Accept-Language: ru"+#13#10+ "Accept-Encoding: gzip, deflate"+#13#10+ "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"+#13#10+ "Host: www.mota.ru"+#13#10+ "Connection: Keep-Alive"+#13#10+#13#10;
то выдает рисунок.
Вообще нужно знать как защищаются сайты от всякрго рода http запросов.
например, один из способов, работа с броузером не ниже какой-то версии.Тогда нужно самому делать запрос и в строке User-Agent указать кто пытается открыть страницу.
Второй способ, это Referer.Если ты попытаешься открыть страницу с какого-то другого места, то вылетит ошибка.
Ну и "Accept".Это ты сам догадайся...

← →
KonstantinXaker(KX) (2005-05-25 19:53) [25]

Здорово!
Теперь у меня следующий код: (загружаю рисунок http://65.200.140.25/ec_metros/ourcams/big_ben.jpg)

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ScktComp; type TForm1 = class(TForm) CS: TClientSocket; Button2: TButton; Image1: TImage; procedure Button2Click(Sender: TObject); procedure CSConnect(Sender: TObject; Socket: TCustomWinSocket); procedure CSRead(Sender: TObject; Socket: TCustomWinSocket); procedure CSDisconnect(Sender: TObject; Socket: TCustomWinSocket); private { Private declarations } public { Public declarations } end; var Form1: TForm1; st:TMemoryStream; Header:boolean; Len:integer; implementation uses Jpeg; {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject); begin CS.Host:="65.200.140.25"; CS.Port:=8080; CS.Open; end; procedure TForm1.CSConnect(Sender: TObject; Socket: TCustomWinSocket); var str:string; begin st:=TMemoryStream.Create; str:="GET /ec_metros/ourcams/big_ben.jpg HTTP/1.1"+#13#10+ "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*"+#13#10+ "Referer: http://www.mota.ru/download.php?path=nature&img=537.jpg"+#13#10+ "Accept-Language: ru"+#13#10+ "Accept-Encoding: gzip, deflate"+#13#10+ "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"+#13#10+ "Host: www.mota.ru"+#13#10+ "Connection: Keep-Alive"+#13#10+#13#10; Header:=true; Socket.SendText(str); end; procedure TForm1.CSRead(Sender: TObject; Socket: TCustomWinSocket); var buf:Array [0..1023] of char; rb:integer; str:string; i:integer; begin rb:=Socket.ReceiveBuf(buf,SizeOf(buf)); if Header then begin for i:=0 to rb do begin str:=str+buf[i]; if pos(#13#10#13#10,str)>0 then begin Header:=false; Str:=copy(str,pos("Content-Length:",str)+length("Content-Length:")+1,length(str)); str:=copy(str,1,pos(#13#10,str)-1); Len:=StrToInt(str); move(buf[i+1],buf[0],SizeOf(buf)); dec(rb,i); Break; end; end; end; if len > rb then begin st.Write(buf,rb); dec(len,rb); end else begin st.Write(buf,len); CS.Close; end; end; procedure TForm1.CSDisconnect(Sender: TObject; Socket: TCustomWinSocket); begin st.SaveToFile(ExtractFilePath(Application.ExeName)+"qwqw.jpg"); st.Free; image1.Picture.LoadFromFile("qwqw.jpg"); end; end.

Код я так понял что работать должен. Но у меня одна проблема - я работаю через Proxy-сервер... Как мне прописать Proxy и Proxy-port?

P/S.: После нажатия на кнопку сразу выдаётся ошибка: "Asynchronous socket error 10065" и рисунок загружаться не хочет.

← →
KonstantinXaker(KX) (2005-05-27 16:40) [26]

Как мне прописать Proxy и Proxy-port?

Как мне прописать Proxy и Proxy-port?

А этот вопрос обсуди в новой ветке.

← →
KonstantinXaker(KX) (2005-05-27 17:17) [28]

Сс проксяком у меня проблемы уже нет - я использую для загрузки рисунков компонент TNMHTTP

Теперь:
Каким образом мне проскочить ошибку Soccet is not connect

← →
KonstantinXaker(KX) (2005-05-29 02:23) [29]

Люди! Каким методом проскочить выше описанную ошибку?

Очевидно, нужно соединиться.

По по поводу примера: я заблуждаюсь, когда думаю, что в ответ на строку в заголовке HTTP "Accept-Encoding: gzip, deflate" я могу получить запакованный gzipом файл? Если нет, то почему это в примере не учитывется или почему этот заголовок не убран?

← →
KonstantinXaker(KX) (2005-05-30 16:45) [31]

Alex Konshin ©

Этот пример рабочий. Если что-то непонятно - пиши на мыло
NMHTTP1.InputFileMOde := true ; NMHTTP1.Body := edit5.Text ; //Сохранить в... (edit5.Text-путь, куда нужно сохранить файл) NMHTTP1.Get(edit3.Text); //Ссылка на любой файл

Рисунок из Интернета в TImage Найти похожие ветки