XProfan

window 50,100-700,300
 $H Windows.ph
 $H ocx2.ph
 $I ocx2.inc
'--Pfade bitte anpassen/ändern!
'var Quelle$="D:Entwicklunghlp-DatenInformatorAddOns_selbst_programmieren.htm"'--Offline
var Quelle$="https://xprofan.com/index.php"'--Online
var Ziel$="C:Dokumente und EinstellungenPascalDesktopTest.mht"
ocxInit()
var Object&=ocxCreate("CDO.Message")
ocxMethod(Object&,"CreateMHTMLBody","*"+Quelle$,0,0,0)
var Stream&=ocxMethod(Object&,"GetStream")
ocxMethod(Stream&,"SaveToFile","*"+Ziel$,2)'-- 2 = adSaveCreateOverWrite
ocxRelease(Stream&,Object&)
ocxDeInit()

while 1

    waitinput

endwhile