coklu kullanici (Sayfa 1 / 2)

program foxpro dos mu windows mu? eğer windows ise ve .exe dosyası serverda durup terminaller o exe yi ortak kullanıyorsa bu yüzden yavaşlama olur.

ben aşağıdaki kodla yazılmış bir başlatma programı ile çalıştırıyorum.
Mantığı şöyle: sunucudaki esasprogram.exe ile clienttaki esasprogram.exe yi tarih açısından karşılaştırıyor - yenisi var ise clienta kopyalıyor - clienttan programı çalıştırıyor - ilk defa kullanan clientta gerekli dosyaları da kopyalıyor...

*   PROGRAM BAŞLATICI - HER KULLANICI PROGRAMI SUNUCUDAN KOPYALAYIP KULLANIYOR

#DEFINE AYNI_ANDA "AYNI ANDA İKİ AYNI UYGULAMA ÇALIŞMAMALI"

#DEFINE UYGULAMA_ACIK "UYGULAMA AÇIK"

#DEFINE KAYNAK_YOK "kaynak dosya yok"

#DEFINE MUHTEMELEN "muhtemelen sunucuya bağlanmadınız"

#DEFINE SORUNU_COZEMEZSENIZ "SORUNU ÇÖZEMEZSENİZ SİSTEM SORUMLUSUNA DANIŞIN"

#DEFINE LUTFEN_BEKLEYIN "lütfen bekleyin"

#DEFINE YENI_SURUM "programın yeni sürümü kopyalanıyor"

#DEFINE CRT CHR(13)

 

LOCAL lokaldizin, kaynakdizin, lokaldosya, kaynakdosya, uygulama

 

ON ERROR RETURN 

uygulama="exeirs9.exe"

lokaldizin="C:\atenuygulamalar"

 

dlldizin="\\tlsanasunucu\fox\vf9rf"

kaynakdizin="\\tlsanasunucu\fox\prgexe"

 

* önce lokal bilgisayarda dizin oluştur ve vfp dll dosyaları kopyala...

SET PATH TO

IF ! DIRECTORY(lokaldizin)

  MD(lokaldizin)

ENDIF

*vfp9r.dll

*vfp9t.dll

*vfp9renu.dll

*msvcr71.dll

*gdiplus.dll

*msvcr70.dll

 

IF !FILE(lokaldizin+"\vfp9r.dll")

  kaynakdosya=dlldizin+"\*.dll"

  lokaldosya=lokaldizin+"\*.dll"

  COPY FILE &kaynakdosya TO &lokaldosya                

ENDI

 

SET DEFA TO &lokaldizin

 

** PROGRAMIN ÇALIŞIP ÇALIŞMADIĞINI KONTROL ET

IF uygulamaçik(JUSTFNAME(ADDBS(lokaldizin)+uygulama))

  =MESSAGEBOX(AYNI_ANDA,16,UYGULAMA_ACIK)

  RETU

ENDI

 

lokaldosya=ADIR(dosyabilgilerilokal,uygulama)                     && lokal dizin: default

kaynakdosya=ADIR(dosyabilgilerikaynak,ADDBS(kaynakdizin)+uygulama) && kaynak dizin

 

IF kaynakdosya= 0 && kaynak yoksa çık

  =MESSAGEBOX( KAYNAK_YOK+CRT+MUHTEMELEN,16,SORUNU_COZEMEZSENIZ)

  RETU && QUIT

ENDI

 

IF lokaldosya=0 OR ; && ilk defa 

   ! dosyabilgilerilokal[1,3]=dosyabilgilerikaynak[1,3] OR ;

   ! dosyabilgilerilokal[1,4]=dosyabilgilerikaynak[1,4]

 

  WAIT WINDOW LUTFEN_BEKLEYIN+CRT+YENI_SURUM NOWAIT NOCLEAR 

  SET SAFE OFF  && KULLANICIYA İNSİYATİF İÇİN KALDIRILABİLİNİR

  kaynakdosya=ADDBS(kaynakdizin)+uygulama

  lokaldosya=ADDBS(lokaldizin)+uygulama

  COPY FILE &kaynakdosya TO &lokaldosya    

  SET SAFE ON

  WAIT CLEAR

ENDIF

 

** uygulamayı başlat 

lnWindowState = 9 && SW_SHOWNORMAL

lnhWnd = 0

lcop = 'open'

lcparms = ""

*lcfilename = "   " ->lokaldosya=lokaldizin+uygulama  

*lcpath = JUSTPATH(lcFilename) ->lokaldizin

lokaldosya=ADDBS(lokaldizin)+uygulama

 

DECLARE INTEGER ShellExecute IN Shell32;

   INTEGER hWnd, STRING @lpOperation,;

   STRING @lpFile, STRING @lpParameters,;

   STRING @lpDirectory, INTEGER nShowCmd

 

lnresult = ShellExecute(0, @lcop, @lokaldosya,;

   @lcparms, @lokaldizin, lnWindowState)

 

IF lnresult < 33  && Error occurred

  IF lnresult = 31 && No file associated

    DECLARE INTEGER GetSystemDirectory IN Win32API STRING @lpBuffer, INTEGER nSize

    lnsize = 260

    lcbuffer = SPACE(lnsize)

    lnsize = GetSystemDirectory(@lcbuffer, lnsize)

    IF lnsize > 0

      lcbuffer = LEFT(lcbuffer, lnsize)

      lcrundll = "RUNDLL32.EXE"

      lcparms = "shell32.dll,OpenAs_RunDLL "

      lnresult = ShellExecute(lnhWnd, @lcop, lcrundll,;

         lcparms + lokaldosya, lcbuffer, lnWindowState)

    ENDI

  ENDI

ENDI

 

RETURN lnresult

 

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

** UYGULAMA TEK ÇALIŞMALI

PROCEDURE uygulamaçik

** uygulamaçik("uygulama.exe")

PARAMETERS myApp

=ddesetoption("SAFETY",.F.)

ichannel = DDEINITIATE(myapp,"ZOOM")

IF ichannel =>0

  =DDETERMINATE(ichannel)

  RETU .t.&& QUIT

ENDI

=DDESETSERVICE(myapp,"define")

=DDESETSERVICE(myapp,"execute")

=DDESETTOPIC(myapp,"","ddezoom")

RETURN .f.

 

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

problemin sebebi .EXE serverda olunca temprorary (geçici) dosyalar da server'da oluşuyor. yavaşlığın sebebi bu. yazılımcı firmayla görüşüp .EXE dosyasının terminalden çalışıp dosyaları serverda görecek şekilde ayarlamalarını istemeniz gerekiyor. benim VFP ile çalışan tüm programlarım böyle. terminallerde .EXE ana makinada data. o zaman hız problemi ortadan kalkar.
başka networklerde denemek filan dediğin gibi nafile. işe yaramaz. çözüm bu.

Metin,
Ilk akla gelen temp dosya trafigi, ama bu yeni bir sistem ise, sadece 7 kullanici ve henuz az olan data bana meselenin o olmadigini dusunduruyor. Network trafigi gozlenebilir ama bu gunun 100/1000 Mbit LAN ortamlarinda bana gore dusuk olasililk.
Bana daha cok sanki buffer kullanilmamis ve otomatik kilitlemeler filan yapiliyor gibi geldi.

benim örnek öyle yapıyor: esas programı çalıştırıp (veya çalıştıramayıp) işini bitiriyor
bir avantajı da ana makinedeki esas programda değişiklik yapınca her client programı açıp kapadığında yeni versiyon yükleniyor. (aksi takdirde yeni versiyonu derlemek için herkese programdan çıkması söylenir

Ben bu güne kadar exe nin server dan shortcut ile çalıştırılıp da yavaşladığına şahit olmadım.

Programları aynı anda en az 10 kullanıcı sürekli kullanıyor, aynı program aynı terminalden birden fazlada açılıyor. Temp dosyalar için veya başka şeyler için bir ayarlama da yapmıyorum.

Ama hiç büyük exe yapmadım, birtane start için küçük bir exe diğer tüm uygulamalar değişik app lerin içinden çağrılıyor, bunun hıza etkisi varmı bilmiyorum bence fazla yok, zaten uygulamalara ait programları bir kere çalıştırınca hafızada kalıyor bir dahaki çalıştırmada ilk çalıştırmadan daha hızlı geliyor.

Eğer SQL server veya benzeri database lere remote bağlanılacaksa tamam ama network driver map edilmişse terminallere program kopyalamak gereksiz. Exe swap gibi bir şeyle uğraşmakta gereksiz.

Muse_star ın yavaşlama şikayeti için, hemen exe server üzerinde olduğu için yavaşlıyordur demek şu sorular ve cevapları ortada yokken yanlış.

- Program açılırken mi yavaş.
- Menu den bir item seçildiğinde form veya ne çalışacaksa yavaş mı açılıyor.
- Bir edit işleminden sonra kaydet denilince mi yavaş.
- Data okuma veya yazma anında mı yavaş.
- Server ın gücü Operating sistemi, memory si nedir.
- Terminallerin gücü memory si nedir.

Çetin in dediği gibi aynı makine üzerinde birkaç kere çalıştırıp bakmak lazım, önemli bir gösterge olabilir.

Onun dışında ya network te bir problem var, yada program kötü yazılmıştır.

Bu arada foxpro içinden ShellExecute ile başka bir foxpro programını çalıştırmak akla ziyan bişey.

merhaba
program acilirken yavas degil
mesela makine listesinde bir makinenin uzerine tiklayinca makinein resimlerinin de oldugu detayli bir sayfa aciliyor. Bu mesela cok yavas aciliyor ve bilgiler cok sonra geliyor
edi isleminden sonra kaydette cok yavas
server da w2000 var. 1012 DDram
terminallerde cesitli bilgisayarlar var mesela 512 k dade yavas 1024 dede.

ayni bilgisayara yukleyip dediginiz denemeyi yapamiyorum zira ayni pc de ikinci defa baslatinca hata veriyor.

Programci da benim sizden aldigim cevablari tercumem ile bisey ler yapmaya calisiyor. Alman bir programci.

isin ilginc kismi bu programin bir onceki versiyonunu da kullandik. ayni sekilde server dan .exe dosyasina kisa yol veriyorduk. hic bu sorun olmuyordu. yeni versiyonun demosunu bize gosterdiginde aslanda cok sevinmistik. cok hizliydi . ama server a yukleyince su an kimse calisacamz oldu.
Patronun da beni kesmesine az kaldi zaten

EXE SWAP örnek kodu var mı elinizde? Bana bu konuda olmasa bile başka bir konuda gerekiyor.

Konuka ' nın çözümüne alternatif bir çözüm benim kullandığım;

* UT 'den Nick Neklioudov ve George Tasker in ürettiği bir çözüm bu

server da app nin calistigi dizine http://www.fox4um.com/downloads/launcher.zip launcher.exe ve launcher.ini kopyalanacak ve asagidaki islemler yapilacak

1- Server a NetWorkMap (ağ sürücüsü ile bağlanilacak ve bir surucu yaratilacak)
Örn: H:\

H:\My_app dizininde olması gerekenler  && server

2- launcher.exe
launcher.ini
myapp.exe && uygulama exe niz

launcher.ini de
guncellenmesi gereken dosya adları yazılacak

myapp.exe
data\dd.dbf gibi

&& bu sekilde terminalde guncellenmesi gereke ne varsa launcher.ini bunlari server dan cekecek

3- C:\my_app &&client pc de olacak

Client desktop shortcut parametreleri && uygulamaanin kisayolu

Target: (hedef)
H:\my_app\launcher.exe c:\my_app

Start in: (başlangıç yeri)
c:\my_app

bu kısayol uzerinden uygulamanizi calistirdiginizda once serverdaki launcheri calistiracak gerekli guncelleme kontrolunu yapacak .ini dosyadaki belirtilenlere göre eğer güncelleme gerekiyorsa bu dosyalari client a kopyalayacak ve ardindan clieanttan uygulama exe nizi calistiracak.

bu sayede clientlar icin guncelleme ile ilgili takibi unutacaksiniz

muse_star ben almanca biliyorum gerekirse sorununu almanca yada ingilizce olarak programciniza iletebilirim ama aldigin hatalari net olarak buraya aktarabilmen gerek...

Metin Hocam;
exenin terminallerde datanın server da olması olayını, 2003 servere uzak masaüstü bağlantılardaki öneriniz nedir. örneğin bir müşterim yaklaşık 70 client ı lisans maliyetinden dolayı, tamamını uzak masaüstü bağlantısıyla çözüp, terminallere işletim sistemsiz (en azından xp,vista) bağlantıyla çözmek istiyor. Tam teknik yapısını bilmiyorum ama sonuçta terminallerde disk olmadan bir şekilde servera uzak masaüstü bağlantıyla çözmek istiyor. böyle bir çalışma ortamında yorumunuz ne olur?

terminal server kullanınca lisans maliyeti düşmez. hatta yükselir. her kullanıcı için birer terminal server lisansı gerekir. ayrıca client pc lerde birer işletim sistemi (linux olursa bedava) şart. ms-office yi bedava kullanıcam diyorsa hayal kuruyor. çünkü ms office lisansında bu uyarı var. terminal server ortamındaki tüm office kullanan terminaller için birer lisans alması gerekiyor.

terminallerde disk olmadan ana makinaya erişmenin en güzel yolu thin-client. thin-client içinde de en iyi marka wyse. ben müşterilerime wyse thin-client tavsiye ediyorum. dağıtıcısı arena bilgisayar.

hazir .exe ama vfp ile yapilmis bir .exe

yaptigi once serverdaki .exe yi calistirmak ve ve start in de ki exe versiyonu ile karsilastirmak ,
eger serverdaki exe daha yeni ise bunu terminale kopyalamak ve yeni exe ile baslamasini saglamak
tabii yaptigi sadece exe degil .ini icine yazdiklarini da kontrol etmek ve gereken yere kopyalamak...

swap yapmiyor