Delphi'de webdeki veri tabanına bağlanma yolu

[astek2840]

yapacağım bi prgram üstünden net üzerindeki veritabanında sadece okuma yapmam gerekiyo yani programda kullanıcı ad ve şifre istenecek kullanıcı bilgileri girip enter'a bastığında ben sql sorgusu ile net üzerindeki veritabanına bağlanıp ilgili alan adlarında karşılaştırma yapıp karşılaştırma doğru ise program açılacak değilse açılmayacak internette araştırdığım kadarıyla mdb veritabanı olmuyo bu nedenle mysql'i kullanmak istiyorum ancak bazi bileşenlerin kurulması gerekiyomuş ancak nasıl yapılacğı konunda bi fikrim yok..bilgisi olan arkadaşların yardımına ihtiyacım var... teşekkürler..

[Lord_Ares]

mydec bileşenleri ile normal table bağlanır gibi kullanabilirsin. Kolay gelsin

[orhancc]

local ip yerine sunucu ipsini yazacaksın ve sunucu tarafında modem/internet için nat kısmından port yönlendirme yapman gerekiyor eğer varsa güvenlik duvarı için de izinleri ayarlaman gerekir.

[varyemez]

Karşıdaki sunucu senin değil , bir yerden hosting kullanıyorsun anlaşılan. O zaman makinaya ve modeme müdahale edemezsin fazla.
en kolay yolu arada çalışan bir php program yaz. delphiden ona veri gönderip alabilirsin. veya webservis yazacaksın yine php üzerinde. onun için de nusoap ı kurcala biraz..

[meron06]

webservice ile daha mantıklı bu gibi işler.

[greenegitim]

mysql veri tabanına uzaktan bağlanmanı sağlayacak izin verecek hosting firması bulmak biraz zor 3306 portuna pek az firma izin veriyor bunuda sabit ip kullandığını var sayarak veriyorlar. izin veren firmalarda Cpanel den mysql uzaktan erişime ip adresini eklemen gerekiyor.
Ben Zeos kullanmıştım

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
ZConnection1.Connected:=FALSE;
ZConnection1.Database:=Edit1.Text;
ZConnection1.HostName:=Edit2.Text;
ZConnection1.User:=Edit3.Text;
ZConnection1.Password:=Edit4.Text;
ZConnection1.Port:=strtoint(Edit5.Text);
ZConnection1.Connect;
if ZConnection1.Connected=true then
 begin
  Label6.Caption:='Bağlandı';
  Label6.Font.Color:=clblue;
 end
 else
 begin
  Label6.Caption:='Bağlandı Yok';
  Label6.Font.Color:=clred;
 end;
end;