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ı');