İnsanoğlu hala tüm bilgisayarların en alışılmadık olanıdır. Jhon F.Kennedy
19 Aralık 2019 Perşembe
Borland license information was found, but it is not valid for Delphi
Özellikle Delphi7 borland sürümlerinde karşılaşılan lisans doğrulama hataları için lisans aktivitesi ve doğrulama delphinin yüklü olduğu aşağıdaki dizinde:
C:\Program Files (x86)\Borland\Delphi7\Bin ..
- D7Reg.exe çalıştırılır.
- ardından delphi7 tekrar başlatılır.
19 Eylül 2019 Perşembe
Delphi InputQuery Kullanımı
Input Query Çoklu Değişken:
- Kullanıcı girişi için girilen değerler boşluktan farklı ise veritabanı sistemine bağlanan yapı aşağıdaki gibidir:
procedure dbBaglan(ext:string;userName:string=' ';Password:string=' ');
begin
ext:= "bir farklı veritabanına bağlanma durumunda, dosya uzantısının parametre şeklinde alınması";
userName:="bazı veritabanı bağlantılarında giriş kontrolü olmadığından default değer boş";
password:="bazı veritabanı bağlantılarında giriş kontrolü olmadığından default değer boş";
end;
Not: Aşağıdaki yapı userName ve Pass isteyen db bağlantılar için oluşturuldu.
var
vars:array of string;
vars[0]:=userName;
vars[1]:=Password;
if InputQuery('Kullanıcı Girişi',['Kullanıcı Adı','Şifre'],Vars,
function (const Values: array of string): Boolean
begin
Result := (Values[0]>' ') and (Values[1]>' ');
end) then
begin
dbBaglan(ext,userName,Password);
end else raise Exception.Create('Kullanıcı Girişi Hatası');
- Kullanıcı girişi için girilen değerler boşluktan farklı ise veritabanı sistemine bağlanan yapı aşağıdaki gibidir:
procedure dbBaglan(ext:string;userName:string=' ';Password:string=' ');
begin
ext:= "bir farklı veritabanına bağlanma durumunda, dosya uzantısının parametre şeklinde alınması";
userName:="bazı veritabanı bağlantılarında giriş kontrolü olmadığından default değer boş";
password:="bazı veritabanı bağlantılarında giriş kontrolü olmadığından default değer boş";
end;
Not: Aşağıdaki yapı userName ve Pass isteyen db bağlantılar için oluşturuldu.
var
vars:array of string;
vars[0]:=userName;
vars[1]:=Password;
if InputQuery('Kullanıcı Girişi',['Kullanıcı Adı','Şifre'],Vars,
function (const Values: array of string): Boolean
begin
Result := (Values[0]>' ') and (Values[1]>' ');
end) then
begin
dbBaglan(ext,userName,Password);
end else raise Exception.Create('Kullanıcı Girişi Hatası');
Kaydol:
Kayıtlar (Atom)