Скачать: CL | DM;

Как скачать себе в программу ярлык сайта?   Найти похожие ветки 

← →
Dmitry_04   (2004-11-27 18:08) [0]

Как скачать себе в программу ярлык сайта и вставить его например в Image? т.е. ярлык который выводится на закладках страниц в Oper-е. Например Яндекса.

---

← →
Dmitry_04   (2004-11-27 21:21) [1]

это же можно как-то сделать... как это делает Opera

---

← →
TButton ©   (2004-11-27 21:50) [2]

> как это делает Opera

через раз она ето делает...

---

← →
Dmitry_04   (2004-11-27 22:04) [3]

а как это сделать? хоть через раз...

---

← →
Dmitry_04   (2004-12-07 10:29) [4]

Неужели вообще никто не знает как это сделать???

---

← →
Dolt ©   (2004-12-07 10:56) [5]

Значки лежат в файле favicon.ico, например:
http://www.yandex.ru/favicon.ico
http://www.google.ru/favicon.ico

Т.е. алгоритм следующий: пытаемся получить файл:

Procedure TF.Button1Click(sender:TObject);
begin
CopyURL("http://www.google.ru/favicon.ico", "c:\google.ico")
end;

procedure CopyURL(const URL, OutputFile: String);
const
 BufferSize = 1024;
var
 hSession, hURL: HInternet;
 Buffer: Array[0..Pred(BufferSize)] of Byte;
 BufferLength: DWORD;
 f: File;
begin
 hSession := InternetOpen("DrBob",INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
 try
   hURL := InternetOpenURL(hSession, PChar(URL), nil,0,0,0);
   try
     Assign(f, OutputFile);
     Rewrite(f,1);
     repeat
       InternetReadFile(hURL, @Buffer, BufferSize, BufferLength);
       BlockWrite(f, Buffer, BufferLength)
     until BufferLength = 0;
     Close(f);
   finally
     InternetCloseHandle(hURL)
   end
     finally
 InternetCloseHandle(hSession)
 end
end;

Удалось - сохраняем в какой-нибудь свой кэш и делаем с ним все что угодно.
Не удалось, выводим какую-нибудь свою иконку "по умолчанию"

---

← →
Dmitry_04   (2004-12-07 18:14) [6]

Dolt Спасибо тебе. Но я что-то не очень пойму где эта иконка хранится чтобы ее вставить в Image?

---

← →
Dmitry_04   (2004-12-07 18:16) [7]

В смысле после выполнения процедуры CopyURL в какой переменной иконка или она в буфере?

---

← →
Dmitry_04   (2004-12-07 18:23) [8]

Ой... все я понял... я сначала подумал что "c:\google.ico" это иконка по умолчанию, а оказывается она сохраняет в нее иконку

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c