yerel ağda programın çalışma mantığı

[bgoktas]

bunun için ini file'ı kullanmanı tavsiye ederim.

ini file için sitede örnek bulabilirsin. datamodul create edildikten sonra herhangi bir olaya;
data.databasename:= //inifileden okuduğun path
şeklinde bir kod ile atama yapabilirsin. Ayrıca databaseye atamayı yaptıktan sonra ona bağlı bütün tableleride active:=true yapmalısın...

Kolay gelsin...

[hdayi]

Sanırım text dosyanın içeriğini okumakta bir sıkıntı var.
Tahminime göre array ile yapılır ama ben biraz acemice bir yolla yapıyorum bunu.
Bir memo koyuyorum, visible:=false diyorum.

memo1.Lines.LoadFromFile('dosyanın pathi');

diyerek okutuyorum. ve her satıra ayrı ayrı işlem yapıyorum.
Yada yapıyordum diyelim. Registry daha uygun olur sanırım bu tür parametreleri saklamak için, şimdi registry'yi kullanıyorum.

Kolay gelsin...

[y.kulac]

hocam tasarım aşamasında ibdataset e çift tıklayınca ve remote seçilince
server yazılan bir yer var. buraya 10.0.0.5 yazıyorum.
ama ben bunu esneklik açısından server.txt isimli dosyadan almak istiyorum
iyi çalışmalar

[fduman]

Arkadaş kaynak kod istiyor yani. Vakti olan ve isteyen yazsın arkadaşlar. @sair'in makalesinde istediği kodlar var, ama nasıl olduysa olmamış.

[y.kulac]

hocam sair in makalesinde kod falan yok
ya da ben görmedim.
ayrıca gülmenize gerek yok
herkes sizin gibi profesyonel değildir.

iyi çalışmalar

[fduman]

sayın @y.kulac bu makalede kod yok mu diyorsunuz? Zannedersem siz başka makaleye bakıyorsunuz. Buyurun, sizi arama zahmetine sokmayayım.

viewtopic.php?t=4208

Ben kendime profesyonel falan demedim ki. Makaledeki kodlarla işinizi halledememeniz bana ilginç geldiği için güldüm. Gülmek iyi birşeydir. İnsan kendini iyi hisseder. Siz de gülün.

[y.kulac]

hocam inanın sabahtan beri forumdayım ve aramada yaptım
ama bu makaleyi açmadım galiba .
yardımlarınız için teşekkür ederim
iyi çalışmalar.

[celalatak]

Şair arkadaşın makalesinde yazdığı gibi

Şayet IP Kullanılmıyorsa:
Ana_Makina_Adı:c:\MyProg\Data\Data.gdb

şeklinde bağlantıyı ben de kuramadım ama ip dinamik olarak atanıyorsa bir çözüm bulmak gerekti. Ben ana bilgisayarın adını text dosyaya alıyorum daha sonra onun ip sini bulduruyorum.

Bu kodda makina adı ile gidiyorsunuz ip dönüyor.

Kod: Tümünü seç

function getIPs(Str:String): Tstrings;
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  I: Integer;
  GInitData: TWSAData;
begin
  WSAStartup($101, GInitData);
  Result := TstringList.Create;
  Result.Clear;
  phe := GetHostByName(PAnsiChar(Str));
  if phe = nil then Exit;
  pPtr := PaPInAddr(phe^.h_addr_list);
  I    := 0;
  while pPtr^[I] <> nil do
  begin
    Result.Add(inet_ntoa(pptr^[I]^));
    Inc(I);
  end;
  WSACleanup;
end;