Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » ActiveX Kontrolleri » Formda pdf dosyası görüntülemek
Merhaba,
Önceden belirlediğim br pdf dosyasını bir formda göstermek istiyorum. Bunu Microsoft Web Browser ActiveX'i ile yapabiliyorum.
Ancak istediğim şey, kullanıcının bu dosyayı sadece yazdırabilmesi kaydedememesi. En azından sıradan kullanıcı kaydedememeli.
Teşekkürler.
Birkaç yıl geçtiği için, sorunu ancak mualak ifadelerle cevaplıyabilecem:
Vfp'nun kendi araçları ile bunu sanırım yapamasın.
En azından ben becerememişdim.
Sorunu şöyle çözmüşdüm: irfanview programı ile pdf dosyasını tif'e çevirdim. Yanlış hatırlamiyorsam pdf'den başka formata geçiş olmiyordu.
Onu sonra tekrar irfanview ile başka bir formata çevirdim ve sonra forma yansıtım.
http://www.irfanview.com/main_download_engl.htm
Addons'ların yüklenmesi gerekiyormuydu hatırlamiyorum. Galiba gerekmiyordu.
Tüm bu işlemleri vfp içinden ShellExecute kullanarak yapabilirsin.
Umarım aramızdan birisi daha basit bir yöntemi ortaya atar 
Verdiğim muallak cevap beni biraz rahatsız etti. Bu nedenle backup'larımdan birkaç geri yükleme yaptım.
1. irfanview yükle
2. addons'ları yükle
3. ghostscript yükle: http://www.ghostscript.com/download/gsdnld.html
4. tif konusunda yanılmışım, herhangi bir formata convert edebilirsin:
"C:\Program Files\IrfanView\i_view32.exe" C:\Temp\x.pdf /convert=C:\Temp\x.jpg
İlginize teşekkür ederim.
Başka bir formata dönüştürmek çok işime gelmiyor. Çünkü pdf olarak da ihtiyaç var.
Çözüme yaklaştım diyebilirim.
Şöyle ki form içindeki MS Web Browser objesinin DocumentComplete eventinin içine aşağıdaki kodu ekledim. Bu kodu internette buldum, sadeleştirdim.
Böylece Adobe Acrobat'ın toolbarını gizlemiş oldum. Böylelikle Save butonu da gizlenmiş oldu. Yazdırmak için ise, kullanıcı pdf dokumanı üzerinde sağ tıkladığında çıkan menüde print seçeneği çıkıyor.
LPARAMETERS pdisp, url
loDoc=Thisform.Ole1.OBJECT.Document
WITH loDoc
.setLayoutMode("OneColumn")
.setZoom(50)
.setShowToolbar(.F.)
.setShowScrollbars(.T.)
ENDWITH
Ayrıca, form üzerinde bir buton yapıp click eventine aşağıdaki kodu yazdım:
loDoc=Thisform.Ole1.OBJECT.Document
WITH loDoc
ENDWITH
Tek sorunum kaldı o da;
Adobe Acrobat'ın Preferences içinde olan Display in Browser seçeneğini programatik olarak işaretli hale getirmek. Çünkü eğer bu işaretli değil ise pdf dosyası benim formda değil Acrobat penceresinde açılıyor. O zaman da Save butonu çıkıyor ya da çıkarılabiliyor.
Bu sorunum için yardım ederseniz sevinirim.
Mobilden cevapladigim icin su an arsivim yanimda yok ancak html viewer kullanarak form icinde pdf i goruntuleyebilirsin , html viewer yazarak arama yaparsan forum icinde ornek kesinlikle var
http://www.fox4um.com/post/11939/#p11939
Buradaki navigate2 ile yazilan satira pdf dosya adresini yazarsan pdf dosyasi form icinde gozukecek ( artik tum tarayicilar IE,Firefox,Chrome vs built in pdf goruntuleyebiliyor)
Browser'ı kullanman güzel fikir.
Geçmişde pdf'i tif formatına çevirmenin nedeni: faks için gerekiyordu.
Adobe Acrobat'ın Preferences içinde olan Display PDF in Browser seçeneğini programatik olarak işaretli hale getirme sorunum sürüyor. Bunda da çözüme yaklaştım. Acrobat Reader'ın registry'e bir değer yazdığın öğrendim. Bunu programım ilk çalıştığında kontrol edip varsa silmek istiyorum.
Açarsam; Kullanıcı, Acrobat Reader'da Preferences'da Display PDF in Browser seçeneğini uncheck yaparsa
HKEY_CURRENT_USER\Software\Adobe\Acrobat Reader\9.0\Originals\"bBrowserIntegration"=dword:00000000 ekleniyor.
Eğer bu key olmazsa ya da 1 olursa PDF dökümanları Web Browser'da açılıyor. Ben bunu forse etmek için program ilk çalıştığında bu key'in var olup olmadığını kontrol edip varsa silmek istiyorum. Bunun için forumda arama yaptım. Registry'de bie key'in var olup olmadığını çek edebiliyoruz. Ancak sorunum şu: eğer makinada Acrobat reader 10 ya da 8 yüklü ise key'in path'i değişecek. Yani; HKEY_CURRENT_USER\Software\Adobe\Acrobat Reader\9.0\Originals\"bBrowserIntegration"=dword:00000000 yerine
HKEY_CURRENT_USER\Software\Adobe\Acrobat Reader\10.0\Originals\"bBrowserIntegration"=dword:00000000 olacak.
Yani bir HKEY_CURRENT_USER içinde bBrowserIntegration'ı arayan varsa silen (ya da 1 yapan) bir kod yazmam gerek.
yardımlarınız için teşekkürler.
Yanlış hatırlamiyorsam Vfp ile birlikde gelen registry class DWORD işlemleri içermiyordu. Onun için galiba Microsft MSN'den ek birşeyler bulmuşdum.
Herneyse, benim registry class'da şu var DWORD için:
PROCEDURE readregdword
* This function reads a REG_DWORD from the registry. It will return .T.
* if successful and store the value in nValueRead. If not successful, it
* will return .F. and nValueRead will contain -1.
LPARAMETERS nKey, cSubKey, cValue, nValueRead
* nKey The root key to open. It can be any of the constants defined below.
* #DEFINE HKEY_CLASSES_ROOT -2147483648
* #DEFINE HKEY_CURRENT_USER -2147483647
* #DEFINE HKEY_LOCAL_MACHINE -2147483646
* #DEFINE HKEY_USERS -2147483645
* cSubKey The SubKey to open.
* cValue The value that is going to be read.
* nValueRead What was read from the registry
* WIN 32 API functions that are used
*!* DECLARE INTEGER RegOpenKey IN Win32API INTEGER nHKey, STRING @cSubKey, INTEGER @nResult
*!* DECLARE INTEGER RegQueryValueEx IN Win32API INTEGER nHKey, STRING lpszValueName, INTEGER dwReserved,;
*!* INTEGER @lpdwType, STRING @lpbData, INTEGER @lpcbData
*!* DECLARE INTEGER RegCloseKey IN Win32API INTEGER nHKey
* Local variables used
LOCAL nErrCode && Error Code returned from Registry functions
LOCAL nKeyHandle && Handle to Key that is opened in the Registry
LOCAL lpdwValueType && Type of Value that we are looking for.
LOCAL lpbValue && The data stored in the value
LOCAL lpcbValueSize && Size of the variable
LOCAL lpdwReserved && Reserved Must be 0
* Initialize the variables
nKeyHandle = 0
lpdwReserved = 0
lpdwValueType = REG_DWORD
lpcbValueSize = 4 && DWORD is 4 bytes
nValueRead = -1
lpbValue = SPACE(4)
IF THIS.LoadRegFuncs() != ERROR_SUCCESS
RETURN FALSE
ENDIF
nErrCode = RegOpenKey(nKey, cSubKey, @nKeyHandle)
* If the error code isn't 0, then the key doesn't exist or can't be opened.
IF (nErrCode # 0) THEN
RETURN .F.
ENDIF
nErrCode=RegQueryValueEx(nKeyHandle, cValue, lpdwReserved, @lpdwValueType, @lpbValue, @lpcbValueSize)
=RegCloseKey(nKeyHandle)
IF (nErrCode # 0) THEN
RETURN .F.
ENDIF
nValueRead = THIS.StrToLong(lpbValue)
RETURN .T.
PROCEDURE writeregdword
* This function writes a REG_DWORD to the registry. It will return .T.
* if successful and .F. if it isn't successful.
PARAMETERS nKey, cSubKey, cValue, nValueToWrite
* nKey The root key to open. It can be any of the constants defined below.
* #DEFINE HKEY_CLASSES_ROOT -2147483648
* #DEFINE HKEY_CURRENT_USER -2147483647
* #DEFINE HKEY_LOCAL_MACHINE -2147483646
* #DEFINE HKEY_USERS -2147483645
* cSubKey The SubKey to open.
* cValue The value that is going to be written.
* nValueToWrite The value to write to the registry
* Local variables used
LOCAL nErrCode && Error Code returned from Registry functions
LOCAL nKeyHandle && Handle to Key that is opened in the Registry
LOCAL lpdwValueType && Type of Value that we are looking for.
LOCAL lpbValue && The data stored in the value
LOCAL lpcbValueSize && Size of the variable
LOCAL lpdwReserved && Reserved Must be 0
* Initialize the variables
nKeyHandle = 0
lpdwReserved = 0
lpdwValueType = REG_DWORD
lpcbValueSize = 4 && DWORD is 4 bytes
IF THIS.LoadRegFuncs() != ERROR_SUCCESS
RETURN FALSE
ENDIF
lpbValue = This.LongToStr(nValueToWrite)
nErrCode = RegOpenKey(nKey, cSubKey, @nKeyHandle)
* If the error code isn't 0, then the key doesn't exist or can't be opened.
IF (nErrCode # 0) THEN
RETURN .F.
ENDIF
nErrCode = RegSetValueEx(nKeyHandle, cValue, lpdwReserved, lpdwValueType, lpbValue, lpcbValueSize)
=RegCloseKey(nKeyHandle)
IF (nErrCode # 0) THEN
RETURN .F.
ENDIF
RETURN .T.
ENDPROC
Acrobat Reader ile bende senin yaşadığın sorunları yaşamışdım. Müşterilerime Foxit Reader'i yüklemelerini öneriyorum. Onunla bu problem yok.
Teşekkürler.
Deneyeceğim..
fox4um » ActiveX Kontrolleri » Formda pdf dosyası görüntülemek