Programı Network de çalıştırma

[ozcank]

Arkadaşlar programın içerisinden Network tanımlamalarını nasıl yaptırabilirim? Programın exe sini çalıştırdığımda paylaşıma açık hale getirsin. Terminal makinede kurduğum zaman programı çalıştırıp sürücü belirtmek istiyorum F:\SIS2003\DATA2004 şeklinde yardımcı olursanız çok sevinirim.

[shadowmann]

ben soruyu anlamadım ama eğer veritabanı sunucusna bağlanma ile ilgili ise ben ini dosyalarını tavsiye ederim.

[ozcank]

programın içerisine kod yazarak demek istedim. Kod yazarak network ile ilgili ayarları kullanıcıya bırakmadan, program çalıştırılınca ayarlansın.

[mkysoft]

bu konu ya 10 ya 15 başlık önce tartışıldı. Soru açık değil. Veri tabanı nedir? Paylaştırmak istediğin exe'mi yoksa database mi?, ... v.s.

[ozcank]

Detaya inerek anlatırsam sanırım bana yardımcı olacaksınız.

Benim yapmak istediğim şu ;

BDE ye giderek bazı ayarlamalar yapıyoruz,
Ana Makinede
Paradox tablolarının bulunduğu yer C:\SIS2003\DATA2004
PDOXUSRC.NET

BDE Ayarları
Alias : SIS2003
Path : C:\SIS2003
Configuration->Drıver->Native->PARADOX
NET DIR : C:\SIS2003\DATA2004
LANGDRIVER:paradox"turk"

Configuration->Sytem->INIT->PARADOX
LANGDRIVER:paradox"turk"
LOCALSHARE:TRUE

Terminal Makinede
Alias : SIS2003
Path : F:\SIS2003

Configuration->Drıver->Native->PARADOX
NET DIR : F:\SIS2003\DATA2004
LANGDRIVER:paradox"turk"

Configuration->Sytem->INIT->PARADOX
LANGDRIVER:paradox"turk"
LOCALSHARE:TRUE

bu yapılandırmalı müşteri tarafından değilde ben programın içerisinde kod yazarak bu işlemleri yağmak istiyorum bu konuda yardım istiyorum veya başka bir yolu var mı?

[mkysoft]

Web configure BDE in runtime için yaklaşık 18.000 sonuçtan 1 - 10 arası sonuçlar (0,25 saniye)

Borlandın kendi sitesinde çözümü var.
http://bdn.borland.com/article/0,1410,23231,00.html
özeti şu şekilde.

Kod: Tümünü seç

var
  hCur : hDBICur;
  Config : CFGDesc;
  ContinueIt: boolean;

...

  if DbiInit(nil) = DBIERR_NONE then
  begin
    hCur := nil;
    if DbiOpenCfgInfoList(nil, dbiREADWRITE, cfgPersistent,
        '\\DRIVERS\\PARADOX\\INIT', hCur) = DBIERR_NONE then
    begin
      if DbiSetToBegin(hCur) = DBIERR_NONE then
      begin
        ContinueIt := true;
        while ContinueIt do
        begin
          if(DbiGetNextRecord(hCur, dbiWRITELOCK, @Config, nil)
                 <> DBIERR_NONE) then
            ContinueIt := false
          else
            if StrIComp(Config.szNodeName, 'NET DIR') = 0 then
            begin
              StrCopy(Config.szValue, 'servervolumemydir');
              DbiModifyRecord(hCur, @Config, true);
              ContinueIt := false
            end;
        end;
      end;
    end;
    DbiExit();
  end;

Google'dan daha mı hızlıyız bilmiyorum ama ben google'da rahatça bulunabilecek şeylerin burada sorulmasından pek haz almıyorum. Adminler ne düşünür bilmem. İnternet bizi arama teşvik etmesi gerekirken köreltiyor sanırım.

[aLonE CoDeR]

İnternet bizi arama teşvik etmesi gerekirken köreltiyor sanırım.

Bizi körelten daha çok hazır kod olayı...

[mkysoft]

internnette bulduğun ingilizce kodlar zaten direk işine yaramaz. genelde onu türkçeye uyarlaman yada biraz değiştirmen gerekir. Bu esnada mantığını çözersin yada kendi yazmış olduğunun hatasını düzeltirsin. Bir şeyler kazanırsın yani. Bu arada iki-üç yabancı kelimede okursun, ingilizcen gelişir/unutmazsın.