twebbrowser Как получить ссылки на которые ведут картинки? [D7, WinXP]
darkcoder © (2008-03-06 19:07:00)
Как получить ссылки на которые ведут картинки?
<a href="нужно узнать что тут для данной
картинки"><img src=""></a>
Код приведенные ниже пытался модифицировать, не вышло.
for i := 0 to EmbeddedWB1.OleObject.Document.Images.Length -
1 do
begin
Document := Embeddedwb1.Document as
IHtmlDocument2;
// Retrieves the calculated width of the image.
ImageWidth :=
Embeddedwb1.OleObject.Document.Images.Item(i).Width;
// Retrieves the height of the image.
ImageHeight :=
Embeddedwb1.OleObject.Document.Images.Item(i).Height;
// Retrieves the file size of the image.
ImageFileSize := (Document.Images.Item(i, 0) as
IHTMLImgElement).FileSize;
// Retrieves the entire URL that the browser
uses to locate the image
ImageHref := (Document.Images.Item(i, 0) as
IHTMLImgElement).Href;
// Retrieves a text alternative to the graphic.
ImageTextAlternative := (Document.Images.Item(i,
0) as IHTMLImgElement).alt;
// Show image information in a TListbox
ListBox1.Items.Add(Format('%s : %d x %d Pixels;
%s Bytes; %s',
[ImageHref, ImageWidth, ImageHeight,
ImageFileSize, ImageTextAlternative]));
end;
darkcoder (2008-03-07 00:29:00) [1]
решено
Наверх 
ЧАТ |
Орешник |
|
