XProfan

Español

Georg
Hovenbitzer

¡Hola zusammen,
Yo necesidad eure Ayuda en una OCX Problema.
Gibt lo una Möglichkeit el URL uno Bildes de el Ver código fuente uno Webseite auszulesen?
Folgender Code liest me el Page ID y el Page Titel (Überschrift Forumsbeitrag) de.
Kompilieren Marca Separación

window 780,400
 $H Windows.ph
 $H ocx3a.ph
 $I ocx3a.inc
Declare Element&
Declare Text$
Declare Inhalt$
Declare PageID$
Declare PosID&
Declare PageTitel$
Declare WebControl&
ocxInit()
var File$="Test.htm"
var WebObject&=ocxCreate(File$,0,0,0,0,0,0,addr(WebControl&))
var Document&=ocxGet(WebObject&,"Document")
var Collection&=ocxGet(Document&,"links")

WhileLoop 0,ocxGet(Collection&,"length")-1

    Element&=ocxMethod(Collection&,"item",&loop,0)

    If PageID$ = ""

        Text$ = Trim$(ocxGet(Element&,"id"))

        If Text$ = "skipToContent"

            Inhalt$ = ocxGet(Element&,"href")
            PosID& = InStr("threadID", Inhalt$)
            PageID$ = Mid$(Inhalt$,(PosID& + 9),(Len(Inhalt$) - (PosID& + 9)))
            Text$ = ""

        EndIf

    EndIf

    If (PageID$ <> "") And (PageTitel$ = "")

        Text$ = ocxGet(Element&,"href")

        If Right$(Text$,Len("Thread&threadID=" + PageID$)) = "Thread&threadID=" + PageID$

            PageTitel$ = ocxGet(Element&,"innerText")

        EndIf

    EndIf

    ocxRelease(Element&)

EndWhile

Print PageID$
Print PageTitel$
sleep 1000
WaitInput
DestroyWindow(WebControl&)
ocxDeInit()
f='./../../function-references/XProfan/end/'>End

Auch si yo me todos Einträge el Yo bajo 'links' abrufen kann ansehe, Es el URL des Bildes no esta, weder en el Element id, name, innerText oder href.

Kann me hierbei alguien helfen?
Gibt lo una halbwegs bien verständliche Anleitung a OCX?

Viele Grüße
Georg

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

28.05.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Bild? Müsste doch SRC ser, ya danach geschaut?

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

29.05.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hilf me de tiempo Por favor,,

en me stürzt lo de - vlt. kannst veces Su HTML y el Inc en una Paket packen.

Grundsätzlich musst sólo el IMGs enumerieren y el haben el src-Attribut.

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

31.05.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hab Paket por PN obtener y qué gefunden!

So klappts: (sólo geänderter Zona)
Kompilieren Marca Separación

...
ocxInit()
var File$="file:///c:/dev/p/Test5.htm"
var WebControl&=create("htmlwin",%hwnd,file$,0,0,0,400,400)

while HTMLWin("GetBusy", WebControl&)

    sleep 200

endwhile

var WebObject&=HTMLWin("QueryInterface",WebControl&)
'var WebObject&=ocxCreate(File$,0,0,0,0,0,0,addr(WebControl&))
var Document&=ocxGet(WebObject&,"Document")
var Collection&=ocxGet(Document&,"images")

WhileLoop 0,ocxGet(Collection&,"length")-1

    Element&=ocxMethod(Collection&,"item",&loop,0)
    Text$ = Trim$(ocxGet(Element&,"src"))
    print text$
    continue

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

01.06.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Hovenbitzer

Super IF,
lo klappt - qué como alles auslesen kann!

Hast du irgendwo una Doku gefunden welche Schlüsselworte uno einsetzen kann y welcher Kombination?
En 'image' funktioniert id, title, alt, width, height y src.
Schwierig es con esta Informationen el Hauptbild (af2iofrr.jpg) para encontrar y el ganzen Avatare, Icons usw. a descartar.

Viele Grüße
Georg

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

02.06.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Lo son sólo el "document"-Objeto y lo son document.images,
el Imagen-Collection el hier angezapft se.

Unterobjekte: