VB6 načtení PHP výstupu – Visual Basic – Fórum – Programujte.com

mám na netu nějakou stránku řekněme http://blabla.com/?page=home

a potřeboval bych načíst zdrojový kód z PHP výstupu, tzn. že bych chtěl pouze zdrojový kód stránky HTML
(jako když si zadáte do prohlížeče http://blabla.com/?page=home a pak dáte zobrazit zdrojový kód)

jak se to dá udělat?

Uděláš to pomocí komponenty Microsoft Internet Transfer Control (INET)

Dim html As String

Inet1.Protocol = icHTTP

html = Inet1.OpenURL("www.sample.com/?id=440")

Text1 = html 'nacte obsah promene do Text1

To JMM : dík funguje ... akorád mám takovou otázku : neni to nějak omezený počtem znaků, které se načtou? protože se mi načte jen necelá 1/3 stránky.

To tonez : no string má rozsah něco přes 65 000 znaků. Jaká je ta stránka?

To JMM : jde mi o tuhle stránku http://www.q3df.org/?site=server ... ale stránka je různě velká podle toho kolik uživatelů je tam zobarezeno a tak. Nedalo by se to vyřešit nějakým cyklem, který by ukládal do nějakých polí ty 65000 znakový kousky?

To tonez : no problém bude i v TextBoxu, kterej má tuším taky omezení něco málo přes 65 000 znaků, takže jsem to zkoušel na RichtextBoxu a šlo to

mno když použiju

Inet1.Protocol = icHTTP 

RichtextBox1.Text = Inet1.OpenURL("www.q3df.org/?site=server") 

To tonez : chybu v tom žádnou nevidím, mě to jde v pohodě, zkusím to až tam bude víc než 8 záznamů
Zkusil sem to s forem programujte, které má přes 70000 znaků a v pohodě... dávám sem teda zdroják
Pokud to nepujde, napiš kolik to má znaků, funkce Len(string)

To JMM : mno když načítám fórum programujte tak mi to načete pokaždé 2711 znaků ani o jeden víc ... když sem zkusil načítat q3df.org tak mi to načítalo 2405, 2469 nebo 1009 nechápu proč pokaždé jinak dlouhý string.

A nešlo by nějak stáhnout tu stránku a jako html soubor uložit a pak ten soubor zpracovávat?

To tonez : šlo, přes ten INET do souboru

Dim html As String

Inet1.Protocol = icHTTP

html = Inet1.OpenURL("http://programujte.com/index.php?akce=diskuze")

    Open "C:\test.html" For Append As #1

        Print #1, html

    Close #1

'Soubor, ktery je jako default se ulozi na

' disk C:\ jako swit.html

Dim strUrl

strUrl = "http://www.seznam.cz"

If (DwnFile(strUrl, _

"c:\seznam.html")) Then

MsgBox "OK, stazeno"

Else

MsgBox "Pri stahovani doslo k chybe."

End If

To JMM : dík moc za pomoc ;)

To tonez : není zač

abych nemusel dělat nový téma tak to píšu sem ...

měl bych ještě jeden dotaz ...
jak načtu obrázek "http://q3a.ath.cx/levelshot_small.php/wtf10.jpg" do objektu image?

zkoušel sem fci loadpicture() a psalo mi to

Run-time error '75':
Path/File access error:
'http://q3a.ath.cx/levelshot_small.php/wtf10.jpg'

No tohle nemám ze své hlavy. Ale je to jednoduché. Nahrát obrázek z internetu nelze udělat tak jak jsi to zkoušel. Možná by to šlo i přes nějakou API to nevím. Ale našel sem toto. Obrázek se stáhne a poté zobrazí.

'**************************************

' Name: Download Picture From Internet

' Description:download picture from inte

'     rnet, display in a picturebox and save i

'     t.

' By: Rosli Abas

'

' Inputs:1 picture box & 1 command butto

'     n

'

'This code is copyrighted and has' limited warranties.Please see http://w

'     ww.Planet-Source-Code.com/vb/scripts/Sho

'     wCode.asp?txtCodeId=56982&lngWId=1'for details.'**************************************







Private Type TGUID

    Data1 As Long

    Data2 As Integer

    Data3 As Integer

    Data4(0 To 7) As Byte

    End Type





Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" _

    (ByVal szURLorPath As Long, ByVal punkCaller As Long, _

    ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, _

    ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long

    Dim filename As String





Private Sub Command1_Click()



    filename = "http://q3a.ath.cx/levelshot_small.php/wtf10.jpg"

    Picture1.Picture = LoadPicture(filename)

    'to save it

    SavePicture Picture1.Picture, "c:\wtf10.jpg"

End Sub







Public Function LoadPicture(ByVal filename As String) As Picture



    Dim myTGUID As TGUID

    myTGUID.Data1 = &H7BF80980

    myTGUID.Data2 = &HBF32

    myTGUID.Data3 = &H101A

    myTGUID.Data4(0) = &H8B

    myTGUID.Data4(1) = &HBB

    myTGUID.Data4(2) = &H0

    myTGUID.Data4(3) = &HAA

    myTGUID.Data4(4) = &H0

    myTGUID.Data4(5) = &H30

    myTGUID.Data4(6) = &HC

    myTGUID.Data4(7) = &HAB

    On Error GoTo LblError

    OleLoadPicturePath StrPtr(filename), 0, 0, 0, myTGUID, LoadPicture

    Exit Function

LblError:

    Set LoadPicture = VB.LoadPicture(filename)

End Function

To JMM : wow ... tak ještě jednou díky :)