1

Konu: Foxpro 9 ile video şifreleme

Merhaba,
Şuan için Foxpro 9.0 yazılımlarım da video izletme işlemleri yaptırmıştım.
Ancak istenen bir ara yazılımda şöyle bir istek geldi. Gösterilen videonun sadece hazırladığım yazılım ile izlenmesini içindeki videonun farklı media playerlarla izlenmesine olanak tanınmaması istendi. Bu koşulu da ancak video şifreleme ile çözümlenebileceği kanatindeyim. Bir kaç gündür araştırmama rağmen herhangi bir bilgiyle karşılaşmadım.
Video şifrelemeyi nasıl ve ne tür araçlarla yapabilirim. Eğer farklı bir araç ile şifreleme yaparsam bunu foxpro ile nasıl izletebilirim.

2

Re: Foxpro 9 ile video şifreleme

benim aklıma birkaç yöntem geliyor ama fikir fikirden üstündür

table içerisinde general alan aç videoyu oraya koy form içinde video oynatısı ile izlettir

veya bir memo alan aç videoyu str ye çevir orada sakla geçici dosya oluştur izlettir sonra sildir

gibi

Bilgi Paylaşıldıkça Artar...!

3

Re: Foxpro 9 ile video şifreleme

bence fikir güzel hiç bu şekilde yaklaşmamaıştım kafama koydum şifreleme diye ve hep o yönde araştırma yaptım. bir videonun boyutu en fazla 5 mb olacak ve 200 yakın video düşünüldüğünde 1gb bir tada dosyası demektirki bu sorun çıkarmazsa işimi fazlası ile çözer. açacağım dosyayı temp içinde rastgele bir isimle açar daha sonrasındada silerim. ancak hiç general veya memo alanla çalışmamıştı. sanırım biraz bu konuları inceleyip test etem gerekecek.
Teşekkür ederim

4

Re: Foxpro 9 ile video şifreleme

VFP nun Crypto API foundation class bölümü de işine yarayabilir.

5

Re: Foxpro 9 ile video şifreleme

Video işlemlerini filetostr ile saklayarak çözüm ürettim. Oldukça da başarılı oldu. Sorunsuz çalışıyor.
Ancak videoların ön izlemesi olarak ufak resimler oluşturulmuş ve bu resimler sql server (2012) veri tabanında image alanında saklanmış. bağlantı kurup verileri çektiğimde içindeki resimleri (general field olarak gösteriyor) bir image'de göstermem gerekiyor ancak içerisine saklanan resimleri bir türlü bu alanda gösteremedim. General alanda saklanmış resimleri (dışa açmama gerek yok) image'de gösterebilmem için ne yapmam lazım. direk pictureval değerine atama yaptığımda general alan olarak gördüğünden işleme almadan hata veriyor. bir kaç yerdeki örnektede dışarı açma göstemiş anck bunları test ettiğimde bozuk dosya oluşturuyor.

6

Re: Foxpro 9 ile video şifreleme

microsoftun makalelerinde aşağıdaki gibi bir kod ile karşılaştım. Ancak 599 bmp için sanırım. eğer jpg, png ve tif için bu alan değişiyor mudur? resimleri dışarı aktarma işlemi için uygulasam da resim açılmıyor.

Visual Fox Pro
handlein=FOPEN("temp.fpt")

      handleout=FCREATE("test.bmp")
 
      *** To determine the length of the Input file "Temp.fpt"
      gnEnd = FSEEK(handlein, 0, 2)
      gnTop = FSEEK(handlein, 0)
 
      *** Store the whole file into a string "str1"
      str1 = FREAD(handlein, gnEnd)
 
      ***  Offset 599 bytes from Str1 and save it to "str2"
      str2=RIGHT(str1,LEN(str1)-599)
 
      *** Write "Str2" into the BMP file "Test.BMP"
      n=FWRITE(handleout,str2)
 
      *** Close both opened files
      =FCLOSE(handlein)
      =FCLOSE(handleout)

7

Re: Foxpro 9 ile video şifreleme

ya çok şey yapmış gibi sevindim. Ama paylaşmadanda duramadım. Bilgi paylaştıkça çoğalıyor. Alttaki kod general alana yapılmış bir dosyanın ayrıştırılması için bire bir. Bu kod ile sql server image içerisine gömülmüş resimleri ayrıştırabildim.
Umarım birisinin işine yarar

Visual Fox Pro
USE aaa

COPY TO temp FIELDS imgdata NEXT 1
USE IN aaa
 
ll = fopen("temp.dbf",12)
fseek(ll,43)
fwrite(ll,'M')
fclose(ll)
 
use "temp.dbf" alias TT
lcFileName = "c:\ali.jpg" && test file name with result from SQL Server
if file(lcFileName)
  erase (lcFileName)
endif
* following commands you can replace also by STRtoFile function
local lH
lH = FCREATE(lcFileName)
FWRITE(lH,TT.imgdata)
FCLOSE(lH)
use in TT

her türlü paylaşımlarınız için teşekkürler. Umarım bu formatta C# formuda hazırlarsınız.