1 Konuyu açan onders

  • onders
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 12.10.2006
  • İleti: 202

Konu: Resİm Dosyasi Formatlari

SELAM,

@  1,2  SAY "TOSHOBA.JPG" BITMAP ISOMETRIC SIZE  9.0,80

komutu çalıştığı halde


@  1,2  SAY "TOSHOBA.TIF" BITMAP ISOMETRIC SIZE  9.0,80


komut hata verdi ? amacım .tif veya .pdf ve multi tif dosyalarını ekran üzerinde görüntüleyebilmek.

Komut kullanımı nasıl olmalı ?

İyi çalışmalar

2 Cevaplayan soykanozcelik

  • soykanozcelik
  • soykanozcelik
  • Uzman Üye
  • Offline
  • Yer: Tekirdağ
  • Kayıt Tarihi: 25.08.2006
  • İleti: 1,513

Re: Resİm Dosyasi Formatlari

@  1,2  SAY "TOSHOBA.JPG" BITMAP ISOMETRIC SIZE  9.0,80
tarz programlamayi birakali 7 yil kadar oluyor sad gecti bile hatta... unuttum ama

bu tip dosyaları form uzerinde webbrowser kontrolu ile gostermek cok kolay bence bunun uzerinde ugras derim . Eğer VFP6 veya üzeri kullaniyorsan kendine eziyet ediyorsun VFP nin ve Object Oriented programlama kolayliginin nimetlerinden faydalanmak gerek...

* web browser kontrol örnegi kodu calistirinca eklemek istedigin Activex Control u sorar MS Web Browser Kontrol ü sec

Visual Fox Pro
m1 = Createobject("web_browser_form")

m1.Show(1)

 

 

**************************************************

*-- Class Library:  d:\soykan\mysoftware\emin_elk\web_browser_form.vcx

**************************************************

 

 

**************************************************

*-- Class:        web_browser_form (d:\soykan\mysoftware\emin_elk\web_browser_form.vcx)

*-- ParentClass:  form

*-- BaseClass:    form

*-- Time Stamp:   12/08/06 03:25:00 PM

*

m1 = Createobject("web_browser_form")

m1.Show(1)

 

 

DEFINE CLASS web_browser_form AS form

 

 

    Top = 0

    Left = 0

    Height = 329

    Width = 493

    DoCreate = .T.

    Caption = "Form1"

    Name = "Form1"

 

 

    ADD OBJECT olecontrol1 AS olecontrol WITH ;

        Top = 24, ;

        Left = 12, ;

        Height = 289, ;

        Width = 457, ;

        Name = "Olecontrol1"

 

 

    PROCEDURE Init

        With Thisform.olecontrol1 

        .Navigate2('file://'+SYS(5)+CURDIR()+[chbarap.tif]) && buradaki dosya ismini kendine göre degistir 

        *    .navigate2(m.lcXLSFile)

            Do While .ReadyState # 4 && Wait for ready state

            Enddo

        Endwith

    ENDPROC

 

 

ENDDEFINE

*

*-- EndDefine: web_browser_form

**************************************************

Ayrıca http://www.fox4um.com/viewtopic.php?id=119 linkinede bir bak

* forma image control koyup asagidaki komutlada gösterim yapabilirsin

Visual Fox Pro
Thisform.image1.Picture=Sys(5)+Curdir()+'BMP\nopicture.bmp'
https://www.twitter.com/soykanozcelik https://www.t.me/soykanozcelik https://soykanozcelik.wordpress.com

soykanozcelik's Website

3 Cevaplayan altun Son düzenleyen, altun (08.12.2006 16:09:09)

  • altun
  • altun
  • Uzman Üye
  • Offline
  • Yer: Offenbach / Almanya
  • Kayıt Tarihi: 07.10.2006
  • İleti: 68

Re: Resİm Dosyasi Formatlari

Pdf, resim veya herhangi bir dosyayı açmanın alternatif bir tekniği daha var.

Visual Fox Pro
cFileName = getfile("jpg; gif; pdf; avi, mpeg", "Dosya seçiniz")

oObject = CREATEOBJECT("Shell.Application")

oObject.Open(cFileName)


Aynı tekniği mail göndermek için veya web sayfası açmak içinde kullanabilirsiniz.

Mail göndermek için

Visual Fox Pro
cFileName = "mailto:altunali@hotmail.com"

oObject = CREATEOBJECT("Shell.Application")

oObject.Open(cFileName)

Web sayfası açmak için

Visual Fox Pro
cFileName = "http://www.zaman.com.tr"

oObject = CREATEOBJECT("Shell.Application")

oObject.Open(cFileName)

altun's Website