Mehmet bey ;
Cevabınız için teşekkürler. internette araştırma yaparken Çetin beyin kodlarına ulaştım.Tam aradığım gibi bir kod ufak bir Fakat ile Çetin beye sormak istiyorum.
Çetin bey ;
1- web sitesindeki resimleri göstermiyor acaba neden.
2-Excel den veya word den tek başına çalışır html olarak kaydettiğimiz dosyalarıda açmamız mümkünmü.
3-Şansımızı birazdaha zorlayarak ) pdf dosyalarını göstermek mümkünmü ?
Burada benim amacım bu tür bilgilerin yazdırılmasını ve kopyalanmasını engellemek.Başka önerilerede açıgım.
Aşagıda Çetin beyin kodlarını ekledim .
SET SAFETY OFF
lcHTMLFile = FORCEPATH(SYS(2015)+'.htm',SYS(2023))
getFileFromURL("http://www.microsoft.com",m.lcHtmlFile)
lcContent = FILETOSTR(m.lcHtmlFile)
STRTOFILE(;
STUFF(m.lcContent,;
ATC('<body',m.lcContent)+LEN('<body'),0,' oncontextmenu="return false"'),;
m.lcHTMLFile)
public oForm
oForm = newobject('HTMLViewerForm')
oForm.show
with oForm.htmlviewer
.navigate2(m.lCHTMLFile)
DO WHILE .ReadyState # 4
ENDDO
ERASE (m.lcHTMLFile)
endwith
Procedure getFileFromURL
Lparameters tcRemoteFile,tcLocalFile
Declare Integer URLDownloadToFile In urlmon.Dll;
INTEGER pCaller, String szURL, String szFileName,;
INTEGER dwReserved, Integer lpfnCB
Return URLDownloadToFile(0, m.tcRemoteFile, m.tcLocalFile, 0, 0)
define class HTMLViewerForm as form
height = 500
width = 800
add object htmlviewer as olecontrol with ;
height = 500, width = 800, visible = .t., ;
oleclass = 'Shell.Explorer'
procedure htmlviewer.refresh
nodefault
endproc
enddefine
Bilgi Paylaşıldıkça Artar...!