| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Рисунок из Интернета в TImage [D6, D7, WinXP]

Страницы:   < 1 2 >

KonstantinXaker(KX) ©   (2005-05-15 00:23:00) 

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

---

KonstantinXaker(KX)   (2005-05-22 15:33:00) [21]

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

Cannot open file





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("100x100");
doc.write("');}





var loc = '';
try{ var loc = escape(top.location.href); }catch(e){;}

var userid = 45337431; var page = 1;
var rndnum = Math.round(Math.random() * 999111);
document.write('');
document.write('');
document.write('');







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("100x100");
doc.write("');}








Error: try http://www.mota.ru/>www.mota.ru




http://top.novgorod.ru/cgi-bin/cshow>

---

KonstantinXaker(KX)   (2005-05-22 15:27:00) [22]

Волк - это Волк, а не я - это во-первых.
Во-вторых - спасибо 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> ...(весь код страницы)"
Что ещё нужно сделать?

---

XProger   (2005-05-22 04:16:00) [23]

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

---

Antonn   (2005-05-21 17:42:00) [24]

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

---

Anatoly Podgoretsky   (2005-05-21 17:04:00) [25]

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

---

Волк   (2005-05-21 17:02:00) [26]

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

---

Волк   (2005-05-21 17:01:00) [27]

>>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;

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

---

VMcL   (2005-05-16 07:56:00) [28]

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

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

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

---

VMcL   (2005-05-16 07:54:00) [29]

>> 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.

---

Antonn   (2005-05-16 06:14:00) [30]

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

---

KonstantinXaker(KX)   (2005-05-16 02:06:00) [31]

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

---

Страницы:   < 1 2 >

Наверх