Bir web sitesinden resimler çekmem gerekiyor. Öğrenci resimlerini kendi sistemimizde aynı öğrencilerin resim bölümüne kayıt etmek için.
Şöyle bir yapısı var görsellik açısından
webBrowser den getElementById metoduyla çekiyorum verileri. Ancak resimde biraz sorun yaşıyorum.
Satır satır dolaşıyorum tabloyu normalde. burada her resimin id si var(her resimin ayrı ID si var 1.satırdaki resim1 gibi).
tablo içinde dolaşarakta denedim, getElementById ile de almayı denedim.
variant olarak image/stream birşeylere dönüştürmeyide denedim.
birçok şey denedim ama datasını alamadım bir türlü resimin. Aldıktan sonra Delphi'de bir treelist de göstereceğim.
- Burada URLDownloadToFile gibi birşeyle almak istemiyorum çünkü resimler sayfada yükleniyor ve boyutları o kadar
resim in src adresinde url var onu açınca resim tek başına açılıyor onun src sindede url var
ben sayfa yüklendikten sonra üstünden resimleri direk çekmek istiyorum çünkü resimlerden dolayı zaten sayfa geç yükleniyor
yada sayfayı açarken resimleri açmamasını saglayabilirsem URLDownloadToFile gibi birşeyle url den de alırım
Kod: Tümünü seç
<td class="dataGridActive" align="center">
<img id="dgListe_imgResim_0" src="Oabcabcabcab.aspx?dataTC=11111111111" style="color:#0000C0;border-width:1px;border-style:Solid;height:171px;width:133px;">
</td>
Kod: Tümünü seç
function webGet(aWb : TWebBrowser ; aOle : OleVariant ; aVariable, aFilter : String) : OleVariant;
begin
if aWb <> nil then
begin
if aFilter = 'ID' then
result := aWb.OleObject.Document.getElementById(aVariable);
if aFilter = 'TAGNAME' then
result := aWb.OleObject.Document.getElementsByTagName(aVariable);
if aFilter = 'CLASSNAME' then
result := aWb.OleObject.Document.getElementsByClassName(aVariable);
end;
if not(VarIsNull(aOle)) then
begin
if aFilter = 'ID' then
result := aOle.getElementById(aVariable);
if aFilter = 'TAGNAME' then
result := aOle.getElementsByTagName(aVariable);
if aFilter = 'CLASSNAME' then
result := aOle.getElementsByClassName(aVariable);
end;
end;
Kod: Tümünü seç
Count := aTable.Rows.Length;
for I := 1 to (Count - 1) do
begin
oleProfil := webGet(wbBack, null, K2_ID.RESIM_IMG_PROFIL+IntToStr((i-1)),'ID' );
// jpegProfil := oleProfil.item(0);
oleProfil.focus;
// oleProfil2 := oleProfil.activeElement;
//'[object HTMLImageElement]'
// aaa := oleProfil.load;
oleProfil.images;
?????????????????????
end;
Teşekkürler.